judgement.dpr

仲裁委仲裁案件计酬程序.有基础资料设置、分级设置

program Judgement;

{$R *.res}

uses
  Forms,
  Link in 'Link.pas' {LinkSQL: TDataModule},
  MDIChild in 'MDIChild.pas',
  Main in 'Main.pas' {MainFrm},
  PubData in 'E:\Program Files\Borland\Pub\PubData.pas',
  Pub in 'E:\Program Files\Borland\Pub\Pub.pas',
  Wait in 'Wait.pas' {WaitFrm},
  Judge in 'Judge.pas' {JudgeFrm},
  Method in 'Method.pas' {MethodFrm},
  FCase in 'FCase.pas' {CaseFrm},
  Emp in 'Emp.pas' {EmpFrm},
  SumByPerson in 'SumByPerson.pas' {SumByPersonFrm},
  TaxRateSet in 'TaxRateSet.pas' {TaxRateSetFrm},
  Login in 'Login.pas' {LoginFrm},
  MyInterface in 'MyInterface\MyInterface.pas',
  InterfaceDLLLoader in 'MyInterface\InterfaceDLLLoader.pas',
  DLLLoader in 'MyInterface\DLLLoader.pas',
  PWDDlg in 'PWDDlg.pas' {PWDDlgFrm},
  Ime in 'E:\Program Files\Borland\Pub\Ime.pas',
  CaseList in 'CaseList.pas' {CaseListFrm},
  PayRateSet in 'PayRateSet.pas' {PayRateSetFrm},
  CaseByPerson in 'CaseByPerson.pas' {CaseByPersonFrm},
  RateSet in 'RateSet.pas' {RateSetFrm},
  ListByCases in 'ListByCases.pas' {ListByCasesFrm};

Var Stytle:Integer;
begin
  Application.Initialize;
  Application.Title := '佛山市仲裁委仲裁员计酬程序';
Try
  Application.CreateForm(TLinkSQL, LinkSQL);
  LoginFrm := TLoginFrm.Create(Application);
//  if LinkSQL.Connected then flagLogined :=LoginFrm.ShowModal;
  if LinkSQL.Connected then Stytle:=LoginFrm.ShowModal;
  LoginFrm.Free;
  If  Stytle=1 Then
  Begin
  Application.CreateForm(TMainFrm, MainFrm);
  Application.Run;
  End
  Else
  Application.Terminate;
  finally

  end;
end.