gz2001.dpr

工资管理系统

program Gz2001;

uses
  Forms,
  windows,
  sysutils,
  MAINUNIT in 'MAINUNIT.pas' {MainForm},
  BackUpUnit in 'BackUpUnit.pas' {BackUp},
  DateCurShjunit in 'DateCurShjunit.pas' {DataCurShj},
  gethzpy in 'gethzpy.pas',
  shjunit in 'shjunit.pas' {shj},
  gzdata in 'gzdata.pas' {data: TDataModule},
  GzKqSrUnit in 'GzKqSrUnit.pas' {GzSr},
  GZPUNIT in 'GZPUNIT.pas' {gzP},
  gztunit in 'gztunit.pas' {Gzt},
  JJSRUNIT in 'JJSRUNIT.pas' {Jjsr},
  KqDayUnit in 'KqDayUnit.pas' {KqDay},
  NoInputUnit in 'NoInputUnit.pas' {NoInput},
  Okunit in 'Okunit.pas' {OK},
  PassWordUnit in 'PassWordUnit.pas' {PassWord},
  printmainunit in 'printmainunit.pas' {printmainform},
  ViewUnit in 'ViewUnit.pas' {View},
  WHUNIT in 'WHUNIT.pas' {WH},
  DataTUnit in 'DataTUnit.pas' {DataT: TDataModule},
  XgKlUnit in 'XgKlUnit.pas' {XgKlForm},
  ZjdwUnit in 'ZjdwUnit.pas' {DwBmForm},
  DwLbUnit in 'DwLbUnit.pas' {DwLbForm},
  ZjYhUnit in 'ZjYhUnit.pas' {ZjYhForm},
  PrintShowUnit in 'PrintShowUnit.pas' {PrintShowForm},
  DelUserUnit in 'DelUserUnit.pas' {DelUserForm},
  jjDateunit in 'jjDateunit.pas' {jjDate},
  CssjDateunit in 'CssjDateunit.pas' {CssjDate},
  KsBmPrintUnit in 'KsBmPrintUnit.pas' {KsBmPrint},
  KsBmXzUnit in 'KsBmXzUnit.pas' {KsBmXz},
  ZhiChengXzUnit in 'ZhiChengXzUnit.pas' {zhichengXz},
  ZhiChengPrintUnit in 'ZhiChengPrintUnit.pas' {ZhiChengPrint},
  FLBmPrintUnit in 'FLBmPrintUnit.pas' {FlBmPrint},
  FLBmXzUnit in 'FLBmXzUnit.pas' {FlBmXz},
  DelRecUnit in 'DelRecUnit.pas' {DelRecForm},
  DelGzDateunit in 'DelGzDateunit.pas' {DelGzDate},
  KkSrUnit in 'KkSrUnit.pas' {KKSr},
  KkDateunit in 'KkDateunit.pas' {KkDate},
  JsBmXzUnit in 'JsBmXzUnit.pas' {JsBmXz},
  TzhDateunit in 'TzhDateunit.pas' {DateTZh},
  TzhPrintUnit in 'TzhPrintUnit.pas' {TzhPrintForm},
  SjLbUnit in 'SjLbUnit.pas' {SjLbForm},
  CsHUnit in 'CsHUnit.pas' {CsHForm},
  TcjPrintunit in 'TcjPrintunit.pas' {TcjPrint},
  TcjXzUnit in 'TcjXzUnit.pas' {TcjXz},
  TjXzUnit in 'TjXzUnit.pas' {TjXz},
  TjPrintUnit in 'TjPrintUnit.pas' {TjPrint},
  QueryJjUnit in 'QueryJjUnit.pas' {QueryJjForm},
  RecUnit2 in 'RecUnit2.pas' {RecForm},
  CcUnit in 'CcUnit.pas' {CcForm},
  ZjZdUnit in 'ZjZdUnit.pas' {ZjZdForm},
  previewt in 'previewt.pas' {prev},
  AddUnit in 'AddUnit.pas' {AddForm},
  CnDateUnit in 'CnDateUnit.pas' {CnDateForm},
  GlZjUnit in 'GlZjUnit.pas' {GlForm},
  GJJUNIT in 'GJJUNIT.PAS' {gjj},
  DatePrevShjunit in 'DatePrevShjunit.pas' {DataPrevShj};

{$R *.RES}

 var
     hmutex:hwnd;
     ret:integer;
begin
//Used for Registration of AHM Components ... Do not modify this Line ... AHM
  
  Application.Initialize;
  Application.Title:='aaaaaaaa';
  hmutex:=createmutex(nil,false,'aaaaaaaa');
  ret:=GetLastError;
  if ret<>error_already_exists then
begin
 // Application.Initialize;
  ok:=tok.create(ok);
  ok.show;
  ok.update;
  sleep(1000);
  Application.Title := '龙矿集团工资系统 V 2001';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tdata, data);
  Application.CreateForm(TDataT, DataT);
  Application.CreateForm(Tpassword, password);
  Application.CreateForm(Tgjj, gjj);
  Application.CreateForm(TDataPrevShj, DataPrevShj);
  ok.update;
  ok.Hide;
  ok.Release;
  PassWord.showmodal;
  Application.Run;
  end
  else
  Application.MessageBox('龙矿集团工资 2000 程序已经运行！！！为了保持数据的一致性，您不能打开第二个副本。','警告',mb_ok+MB_Iconstop);
  releasemutex(Hmutex);

end.