sbank.dpr

小银行系统

program SBank;

uses
  Forms,
  U_main in 'U_main.pas' {F_main},
  UDM in 'Source\UDM.pas' {DM: TDataModule},
  U_child in 'Source\U_child.pas' {F_child},
  U_child1_2 in 'Source\U_child1_2.pas' {F_child1_2},
  U_child2_1 in 'Source\U_child2_1.pas' {F_child2_1},
  U_child2_2 in 'Source\U_child2_2.pas' {F_child2_2},
  fuct_server in 'Source\fuct_server.pas',
  U_seek in 'Source\U_seek.pas' {F_seek},
  U_print in 'Source\U_print.pas' {F_print},
  U_child1_1 in 'source\U_child1_1.pas' {F_child1_1},
  uCostomerFunc in 'source\uCostomerFunc.pas',
  U_user in 'source\U_user.pas' {F_user},
  U_useset in 'source\U_useset.pas' {F_useset},
  U_program in 'source\U_program.pas' {F_program},
  U_sele in 'source\U_sele.pas',
  U_pgrd in 'source\U_pgrd.pas' {F_Pgrd},
  U_login in 'source\U_login.pas' {F_login},
  ufrmreport in 'source\ufrmReport.pas',
  uYDF1Control in 'source\uYDF1Control.pas',
  UfrmAbout in 'source\UfrmAbout.pas' {frmAbout},
  CHILDWIN in 'source\CHILDWIN.PAS' {MDIChild},
  user_func in 'source\user_func.pas',
  UExcelTools in 'source\UExcelTools.pas',
  U_ChildQ in 'source\U_ChildQ.pas' {F_ChildQ},
  user_fac in 'source\user_fac.pas' {frmUser_fac},
  UfrmSec in 'source\UfrmSec.pas' {frmSec},
  UfrmFactory in 'source\UfrmFactory.pas' {frmFactory},
  UfrmCancelAccount in 'source\UfrmCancelAccount.pas' {frmCancelAccount},
  DosMove in '..\component\DOSMOVE\DosMove.pas',
  UfrmBalanceMaster in 'source\UfrmBalanceMaster.pas' {frmBalanceMaster},
  UfrmDeposit in 'source\UfrmDeposit.pas' {frmDeposit},
  UfrmInterRestRep in 'source\UfrmInterRestRep.pas' {frmInterRestRep},
  UfrmInterRest in 'source\UfrmInterRest.pas' {frmInterRest},
  UfrmLock_Deposit in 'source\UfrmLock_Deposit.pas' {frmLock_Deposit},
  UfrmTryBalanceRep in 'source\UfrmTryBalanceRep.pas' {frmTryBalanceRep},
  UfrmDepositRep in 'source\UfrmDepositRep.pas' {frmDepositRep},
  UfrmRep_Loss in 'source\UfrmRep_Loss.pas' {frmRep_Loss},
  UfrmStd_Rate in 'source\UfrmStd_Rate.pas' {frmStd_Rate},
  UfrmOpenAccount in 'source\UfrmOpenAccount.pas' {frmOpenAccount};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '华坚工资科应用系统1.0版';
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TF_main, F_main);
  F_login := TF_login.Create(Application);
  F_login.Show;
  while  not F_login.flag do Application.ProcessMessages;
      if  F_login.flag1 then
      begin
        f_main.Close;
      end
      else
        F_login.Hide;

  Application.Run;
end.