fpglxt.dpr

一个票据管理系统

program FPGLXT;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {MainForm},
  createdata in 'createdata.pas' {createdataForm},
  dm in 'dm.pas' {DMData: TDataModule},
  OpenUnit in 'OpenUnit.pas' {Openform},
  CreateUnit1 in 'CreateUnit1.pas' {CreateZtForm},
  yhhz_AboutBox in 'yhhz_AboutBox.pas' {F_ABox},
  updataztUnit in 'updataztUnit.pas' {updataForm},
  BmUnit in 'BmUnit.pas' {BmForm},
  BjqlUnit in 'BjqlUnit.pas' {BjqlForm},
  GrUnit in 'GrUnit.pas' {GrForm},
  QcKqUnit in 'QcKqUnit.pas' {QcKqForm},
  GrqxUnit in 'GrqxUnit.pas' {GrqxForm},
  BjllUnitpas in 'BjllUnitpas.pas' {bjllForm},
  XhUnit in 'XhUnit.pas' {XhForm},
  ThUnit in 'ThUnit.pas' {ThForm},
  GrmsUnit in 'GrmsUnit.pas' {GrmsForm},
  LeUnit in 'LeUnit.pas' {leForm},
  KqUnit in 'KqUnit.pas' {KqForm},
  XhqyUnit in 'XhqyUnit.pas' {XhqyForm},
  BmkqUnit in 'BmkqUnit.pas' {BmkqForm},
  LeMsUnit in 'LeMsUnit.pas' {LeMsForm},
  KqMsUnit in 'KqMsUnit.pas' {KqMsForm},
  XhMsUnit in 'XhMsUnit.pas' {XhMsForm},
  BmKqMsUnit in 'BmKqMsUnit.pas' {BmKqMsForm},
  JzUnit in 'JzUnit.pas' {JzForm},
  FzUnit in 'FzUnit.pas' {FzForm},
  jqUnit in 'jqUnit.pas' {jqform},
  thqsUnit in 'thqsUnit.pas' {thqsForm},
  thmsUnit in 'thmsUnit.pas' {thmsForm};

{$R *.res}
begin
  Application.Initialize;
  Application.Title := '票据管理系统';
  Application.CreateForm(TDMData, DMData);
  Application.CreateForm(TOpenform, Openform);
  //dmdata.ADOConnectiondata.Connected:=false;
  //createdataform.ShowModal;
  //if dmdata.ADOConnectiondata.Connected then
  //begin
   // createdataform.free;
   //application.CreateForm(Topenform,openform);
    openform.ShowModal;
   // application.CreateForm(TMainForm,MainForm);
   // Application.Run;
    if openform.loginok then
    begin
    openform.Free;
    application.CreateForm(TMainForm,MainForm);
    Application.Run;

    //end;
  end
  else
   Application.Terminate;
end.