park.dpr

停车厂管理系统 麻雀虽小 但是五脏齐全

program park;

uses
  Forms,
  Windows,
  Controls,
  Dialogs,
  SysUtils,
  Unit11 in 'Unit11.pas' {DataModule11: TDataModule},
  Unit1 in 'Unit1.pas' {entry},
  Unit2 in 'Unit2.pas' {mainform},
  Unit3 in 'Unit3.pas' {password},
  Unit4 in 'Unit4.pas' {history},
  Unit5 in 'Unit5.pas' {allcharge},
  Unit6 in 'Unit6.pas' {form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10},
  Unit12 in 'Unit12.pas' {Form12},
  Unit13 in 'Unit13.pas' {printcarout},
  Unit_settime in 'settime1\Unit_settime.pas' {timecharge},
  Unit14 in 'Unit14.pas' {Form14},
  Unit15 in 'Unit15.pas' {yhxf},
  Unit16 in 'Unit16.pas' {czysf},
  Unit17 in 'Unit17.pas' {Form17},
  Unit18 in 'Unit18.pas' {ccdy},
  Unit19 in 'Unit19.pas' {rctc},
  Unit20 in 'Unit20.pas' {kclc},
  Unit21 in 'Unit21.pas' {tckbl},
  Unit22 in 'Unit22.pas' {tckwh},
  Unit23 in 'Unit23.pas' {tccx},
  Unit24 in 'Unit24.pas' {khwh},
  Unit26 in 'Unit26.pas' {ShouFenJinEr};

{$R *.res}
var
  i: integer;
begin
  Application.Initialize;
   entry:=Tentry.Create(Nil);
    
     i:=1;
     while(i<=3) do
     begin
      entry.ShowModal;
      if (entry.ModalResult=mrok) or canclose then
         break;
      if (trim(entry.username.Text)='') or (trim(entry.password.Text)='') then
         i:=i-1;
      i:=i+1;
     end;
     if (i>3) then
        begin
           showmessage('您的密码超过3次错误，请退出！');
           entry.Close;
     end  ;
      If  entry.ModalResult=mrOK Then
      Begin
        entry.Free;
          Application.CreateForm(TDataModule11, DataModule11);
  Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(Tpassword, password);
  Application.CreateForm(Tallcharge, allcharge);
  Application.CreateForm(Tform6, form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(Tprintcarout, printcarout);
  Application.CreateForm(Ttimecharge, timecharge);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(Tyhxf, yhxf);
  Application.CreateForm(Tczysf, czysf);
  Application.CreateForm(TForm17, Form17);
  Application.CreateForm(Tccdy, ccdy);
  Application.CreateForm(TShouFenJinEr, ShouFenJinEr);
  Application.Run;
      End
      Else
      Begin
        entry.Free;
        Application.Terminate;
      End;

end.