program dbtestframework_gui; {$mode objfpc}{$H+} // Note that this Lazarus project by default re-compiles all DB-units! This eases // developing, but asks some attention from the developer. // If you want to use the default, installed db-units, simply clear the search path // in the compiler-options. // It could also be that after compiling this project, you have to manually clean // the .ppu files before you can build fcl-db in the regular way. (Using fpmake) uses Interfaces, Forms, // GUI: GuiTestRunner, inieditor, // Generic DB test framework units ToolsUnit, // Connectors for different database-types sqldbtoolsunit, dbftoolsunit, bufdatasettoolsunit, memdstoolsunit, SdfDSToolsUnit, tcsdfdata, // DB unittest testbasics, TestFieldTypes, TestDBBasics, TestDatasources, TestBufDatasetStreams, TestSpecificTBufDataset, TestDBExport; {$R *.res} var DBSelectForm: TFormIniEditor; begin Application.Initialize; DBSelectForm:=TFormIniEditor.Create(nil); try DBSelectForm.INIFile:='database.ini'; DBSelectForm.ProfileSelectSection:='Database'; DBSelectForm.ProfileSelectKey:='type'; // We can ignore resulting db selection as the file is saved already: DBSelectForm.ShowModal; finally DBSelectForm.Free; end; Application.CreateForm(TGuiTestRunner, TestRunner); Application.Run; end.