signalproject.~dpr

来自「信号机测试信号管理软件 其中含有文件上传及修改数据库数据的功能」· ~DPR 代码 · 共 51 行

program signalProject;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unitsr in 'Unitsr.pas' {Formsr},
  loginUnit in 'loginUnit.pas' {Form2},
  Unitmodule in 'Unitmodule.pas' {DataModule2: TDataModule},
  Unitcx in 'Unitcx.pas' {Formcx},
  Unitls in 'Unitls.pas' {Formls},
  Unitmainfr in 'Unitmainfr.pas' {mainform},
  Unitworkerfr in 'Unitworkerfr.pas' {workerfr},
  Unitbasicinfofr in 'Unitbasicinfofr.pas' {basicinfofr},
  Unituserfr in 'Unituserfr.pas' {userfr},
  Unitbeifen in 'Unitbeifen.pas' {Formbeifen},
  Unitrecord in 'Unitrecord.pas' {recordfr},
  Unithuifu in 'Unithuifu.pas' {Formhuifu},
  Unittrain in 'Unittrain.pas' {trainfr};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);
  //Application.CreateForm(Ttrainfr, trainfr);
  //Application.CreateForm(TFormhuifu, Formhuifu);
  //Application.CreateForm(Trecordfr, recordfr);
  //Application.CreateForm(TForm3, Form3);
  //Application.CreateForm(Tmainform, mainform);
  //Application.CreateForm(Tworkerfr, workerfr);
  //Application.CreateForm(Tbasicinfofr, basicinfofr);
  //Application.CreateForm(Tuserfr, userfr);
  Login:=Tform2.Create(nil);
  Login.ShowModal;
  if m then
  begin
    Application.CreateForm(Tmainform,mainform);
   // Application.CreateForm(Tuserfr, userfr);
    Login.Close;        //注意：此处选择LOGIN.CLOSE而不选用LOGIN.FREE，以免不能正常跳转
    Application.Run;
  end;
  {end else
  begin
    Login.free;
    datamodule2.Free;
  end;
  //Application.Run; }


end.