var
DatabaseName, ServerName, UserName, ThePassword: string;
begin
ServerName := 'BigRedS';
UserName := 'SYSDBA';
ThePassword := 'masterkey';
if LocalInterbase then DatabaseName := 'd:\delphi\work\bigreds.gdb'
else DatabaseName := 'conan@vol1:\delphi\work\bigreds.gdb';
if Report1.Connect(ctIDAPIInterBase, ServerName, UserName, ThePassword,
DatabaseName) then Report1.Run;
end;
The Server type is in reports.pas. Here are the constants:
const
ctDBase = 2;
ctExcel = 3;
ctParadox = 4;
ctAscii = 5;
ctSqlServer = 6;
ctOracle = 7;
ctDB2 = 8;
ctNetSQL = 9;
ctSybase = 10;
ctBtrieve = 11;
ctGupta = 12;
ctIngres = 13;
ctWatcom = 14;
ctOcelot = 15;
ctTeraData = 16;
ctDB2Gupta = 17;
ctAS400 = 18;
ctUnify = 19;
ctQry = 20;
ctMinNative = 2;
ctMaxNative = 20;
ctODBCDBase = 40;
ctODBCExcel = 41;
ctODBCParadox = 42;
ctODBCSqlServer = 43;
ctODBCOracle = 44;
ctODBCDB2 = 45;
ctODBCNetSql = 46;
ctODBCSybase = 47;
ctODBCBtrieve = 48;
ctODBCGupta = 49;
ctODBCIngres = 50;
ctODBCDB2Gupta = 51;
ctODBCTeraData = 52;
ctODBCAS400 = 53;
ctODBCDWatcom = 54;
ctODBCDefault = 55;
ctODBCUnify = 56;
ctMinODBC = 40;
ctMaxODBC = 56;
ctIDAPIStandard = 60;
ctIDAPIParadox = 61;
ctIDAPIDBase = 62;
ctIDAPIAscii = 63;
ctIDAPIOracle = 64;
ctIDAPISybase = 65;
ctIDAPINovSql = 66;
ctIDAPIInterbase = 67;
ctIDAPIIBMEE = 68;
ctIDAPIDB2 = 69;
ctIDAPIInformix = 70;
ctMinIDAPI = 60;
ctMaxIDAPI = 70;