sqltest.dpr

包含众多详细的delphi对数据库的访问代码

program SQLTest;

uses
  Forms,
  UnitMain in 'UnitMain.pas' {FormMain},
  UnitFlash in 'UnitFlash.pas' {FormFlash},
  UnitDataBaseInfo in 'UnitDataBaseInfo.pas' {FormDataBaseInfo},
  UnitInStore in 'UnitInStore.pas' {FormInStore},
  UnitSingleEmployee in 'UnitSingleEmployee.pas' {FormSingleEmployee},
  UnitSingleStore in 'UnitSingleStore.pas' {FormSingleStore},
  UnitSingleGoods in 'UnitSingleGoods.pas' {FormSingleGoods},
  UnitGoods in 'UnitGoods.pas' {FormGoods},
  UnitEmployee in 'UnitEmployee.pas' {FormEmployee},
  UnitStore in 'UnitStore.pas' {FormStore},
  UnitStorage in 'UnitStorage.pas' {FormStorage};

{$R *.RES}

begin
  Application.Initialize;
  FormFlash:=TFormFlash.Create(Application);
  //Delphi的Project把第一个调用Application的CreateForm方法创建的Form作为整个系统的主Form，
  //而系统的主Form一旦关闭，则整个系统就会退出，所以启动欢迎屏幕不能是系统的主Form，所以这里调用
  //TFormFlash的Create构造函数创建FormFlash。
  FormFlash.Show;
  FormFlash.Update;
  //这个窗口不会自动显示。
  try
    Try
      Application.CreateForm(TFormMain, FormMain);
    Except//在主Form的构造函数中，如果打开数据库出错，将不创建FormMain的实例，就会触发异常，这里让异常不显示。
    end;
  Finally
    FormFlash.Free;
    //当主窗体创建好后就自动Free系统欢迎窗口。
  end;
  if MainFormCreated then
    Application.Run;
end.