gz2000.dpr

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

program Gz2000;

uses
  Forms,
  windows,
  sysutils,
  MAINUNIT in 'MAINUNIT.pas' {MainForm},
  BackUpUnit in 'BackUpUnit.pas' {BackUp},
  Dateunit in 'Dateunit.pas' {DateR},
  gethzpy in 'gethzpy.pas',
  gjjunit in 'gjjunit.pas' {gjj},
  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},
  AboutUnit in 'AboutUnit.pas' {AboutBox},
  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},
  BackckUnit in 'BackckUnit.pas' {BackckForm},
  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},
  InputUnit in 'InputUnit.pas' {InputForm},
  CnDateUnit in 'CnDateUnit.pas' {CnDateForm},
  GlZjUnit in 'GlZjUnit.pas' {GlForm};

{$R *.RES}

 var
     hmutex:hwnd;
     ret:integer;
begin
  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(2000);
  Application.Title := '龙口矿务局工资系统 V 2000';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tdata, data);
  Application.CreateForm(TDataT, DataT);
  Application.CreateForm(Tpassword, password);
  ok.Hide;
  ok.Release;
  PassWord.showmodal;
  Application.Run;
  end
  else
  Application.MessageBox('龙口矿务局工资 2000 程序已经运行！！！为了保持数据的一致性，您不能打开第二个副本。','警告',mb_ok+MB_Iconstop);
  releasemutex(Hmutex);

end.