p_smdljf.dpr

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· DPR 代码 · 共 224 行

program P_SMDLJF;

{%File 'RepeatLNo_F.cpp'}

uses
  Forms,
  Windows,
  Dialogs,
  SysUtils,
  Main_F in 'Main_F.pas' {F_Main},
  Station_F in 'Station_F.pas' {F_Station},
  Table_DM in 'Table_DM.pas' {DM_Table: TDataModule},
  Login_F in 'Login_F.pas' {F_Login},
  CommSmdljf in 'CommSmdljf.pas',
  Face_F in 'Face_F.pas' {F_Face},
  Setup_F in 'Setup_F.pas' {F_Setup},
  Town_F in 'Town_F.pas' {F_Town},
  Multi_House_F in 'Multi_House_F.pas' {F_Multi_House},
  About_F in 'About_F.pas' {F_About},
  Ammeter_Data_F in 'Ammeter_Data_F.pas' {F_Ammeter_Data},
  Default_F in 'Default_F.pas' {F_Default},
  NewMonth_F in 'NewMonth_F.pas' {F_NewMonth},
  CheckFee_F in 'CheckFee_F.pas' {F_CheckFee},
  ValidFee_F in 'ValidFee_F.pas' {F_ValidFee},
  Fee_Balance_F in 'Fee_Balance_F.pas' {F_Fee_Balance},
  Proc_Dm in 'Proc_Dm.pas' {DM_Proc: TDataModule},
  Line_F in 'Line_F.pas' {F_Line},
  Village_R in 'Village_R.pas' {R_Village: TQuickRep},
  Help_F in 'Help_F.pas' {F_Help},
  House_F in 'House_F.pas',
  Single_House_R in 'Single_House_R.pas' {R_Single_House: TQuickRep},
  Single_House_F in 'Single_House_F.pas' {F_Single_House},
  Fee_List_F in 'Fee_List_F.pas' {F_Fee_List},
  Fee_List_R in 'Fee_List_R.pas' {R_Fee_List: TQuickRep},
  ExecSQL_F in 'ExecSQL_F.pas' {F_ExecSQL},
  Transfer_R in 'Transfer_R.pas' {R_Transfer: TQuickRep},
  Ammeter_Data_R in 'Ammeter_Data_R.pas' {R_Ammeter_Data: TQuickRep},
  PageSetup_F in 'PageSetup_F.pas' {F_PageSetup},
  Fee_List_New_F in 'Fee_List_New_F.pas' {F_Fee_List_New},
  Msg_F in 'Msg_F.pas' {F_Msg},
  Fee_Multi_List_F in 'Fee_Multi_List_F.pas' {F_Fee_Multi_List},
  Fee_Multi_List_R in 'Fee_Multi_List_R.pas' {R_Fee_Multi_List: TQuickRep},
  Fee_List_New_R in 'Fee_List_New_R.pas' {R_Fee_List_New: TQuickRep},
  Buy_F in 'Buy_F.pas' {F_Buy},
  Fee_Line_F in 'Fee_Line_F.pas' {F_Fee_Line},
  Transfer_Wasting_F in 'Transfer_Wasting_F.pas' {F_Transfer_Wasting},
  Transfer_Wasting_R in 'Transfer_Wasting_R.pas' {R_Transfer_Wasting: TQuickRep},
  Fee_Line_R in 'Fee_Line_R.pas' {R_Fee_Line: TQuickRep},
  Fee_Transfer_R in 'Fee_Transfer_R.pas' {R_Fee_Transfer: TQuickRep},
  Fee_Transfer_F in 'Fee_Transfer_F.pas' {F_Fee_Transfer},
  ChangePassword_F in 'ChangePassword_F.pas' {F_ChangePassword},
  MonthFeeThread in 'MonthFeeThread.pas',
  LineSelect_F in 'LineSelect_F.pas' {F_LineSelect},
  CopyList_F in 'CopyList_F.pas' {F_CopyList},
  CopyList_R in 'CopyList_R.pas' {R_CopyList: TQuickRep},
  AmmeterReplace_F in 'AmmeterReplace_F.pas' {F_AmmeterReplace},
  TransferAlterLine_F in 'TransferAlterLine_F.pas' {F_TransferAlterLine},
  MergeTransfer_F in 'MergeTransfer_F.pas' {F_MergeTransfer},
  Backup_F in 'Backup_F.pas' {F_Backup},
  AmmeterMove_F in 'AmmeterMove_F.pas' {F_AmmeterMove},
  LineCopyRate_F in 'LineCopyRate_F.pas' {F_LineCopyRate},
  Line_Frm in 'Line_Frm.pas' {Frm_Line: TFrame},
  Transfer_Frm in 'Transfer_Frm.pas' {Frm_Transfer: TFrame},
  TransferSelect_F in 'TransferSelect_F.pas' {F_TransferSelect},
  LineCopyRate_R in 'LineCopyRate_R.pas' {R_LineCopyRate: TQuickRep},
  ProgressThread in 'ProgressThread.pas',
  CopyRate_F in 'CopyRate_F.pas' {F_CopyRate},
  CopyRate_R in 'CopyRate_R.pas' {R_CopyRate: TQuickRep},
  House_Arrearage_F in 'House_Arrearage_F.pas' {F_House_Arrearage},
  ZeroFee_F in 'ZeroFee_F.pas' {F_ZeroFee},
  ZeroFee_R in 'ZeroFee_R.pas' {R_ZeroFee: TQuickRep},
  ExportFee_F in 'ExportFee_F.pas' {F_ExportFee},
  ExportResult_F in 'ExportResult_F.pas' {F_ExportResult},
  Export_DM in 'Export_DM.pas' {DM_Export: TDataModule},
  CommExport in 'CommExport.pas',
  Mobile_DM in 'Mobile_DM.pas' {DM_Mobile: TDataModule},
  LNoSet_F in 'LNoSet_F.pas' {F_LNoSet},
  LNoManager_F in 'LNoManager_F.pas' {F_LNomanager},
  RepeatLNo_F in 'RepeatLNo_F.pas' {F_RepeatLNo},
  Fee_Single_List_F in 'Fee_Single_List_F.pas' {F_Fee_Single_List},
  Fee_Single_List_R in 'Fee_Single_List_R.pas' {R_Fee_Single_List: TQuickRep},
  Fee_Balance_R in 'Fee_Balance_R.pas' {R_Fee_Balance: TQuickRep},
  Fee_Line_New_R in 'Fee_Line_New_R.pas' {R_Fee_Line_New: TQuickRep},
  Fee_Transfer_New_R in 'Fee_Transfer_New_R.pas' {R_Fee_Transfer_New: TQuickRep},
  Update_DM in 'Update_DM.pas' {DM_Update: TDataModule},
  HouseCard_F in 'HouseCard_F.pas' {F_HouseCard},
  Invoice10KV_F in 'Invoice10KV_F.pas' {F_Invoice10kv},
  UpperMoney_U in 'UpperMoney_U.pas',
  Invoice400v_F in 'Invoice400v_F.pas' {F_Invoice400v},
  Msg_R in 'Msg_R.pas',
  Charge_Report_10KV_F in 'Charge_Report_10KV_F.pas' {F_Charge_Report_10KV},
  Charge_Report_400V_F in 'Charge_Report_400V_F.pas' {F_Charge_Report_400V},
  Fee_Balance2_F in 'Fee_Balance2_F.pas' {F_Fee_Balance2},
  QRPrntr in 'C:\Program Files\Borland\Delphi5\quickrpt\qrprntr.pas',
  Comm in 'Comm.pas',
  CommFee in 'CommFee.pas',
  DataModule_10KV in 'DataModule_10KV.pas' {DM_10KV: TDataModule},
  LineFee_F in 'LineFee_F.pas' {F_LineFee},
  RB_F in 'RB_F.pas' {RB},
  HouseFee_F in 'HouseFee_F.pas' {F_HouseFee},
  TransferFee_F in 'TransferFee_F.pas' {F_TransferFee},
  Transfer_Wasting2_F in 'Transfer_Wasting2_F.pas' {F_Transfer_Wasting2};

{$R *.RES}
var
	wHandle :HWND;//窗口句柄
    mProgressThread: TProgressThread;//进度线程
begin
	wHandle := FindWindow('TF_Login','注册窗口');
	if  (wHandle <> 0) then
	begin
    	SetForegroundWindow(wHandle);//激活窗口
//    	Halt;
    End;
  	F_Login := TF_Login.Create(Nil);
  	If ParamCount > 0 Then//用户指定了参数
    Begin
    	WIth F_Login.IB_Database Do
        Begin
            If Connected Then
                Connected := False;
            Params.Clear();
            Params.Add('USER NAME=sysdba');
            Params.Add('PASSWORD=masterkey');
            Params.Add('SERVER NAME='+ParamStr(2)+':'+ParamStr(1));
        End;
        F_Login.E_DBName.Text := ParamStr(1);
        F_Login.E_Server.Text := ParamStr(2);
    End;
  	F_Login.ShowModal();
  	If F_Login.bQuit Then
  		Exit;
  gRootPath := ExtractFilePath(Application.ExeName);
  Application.Initialize;
  Application.Title := '嵩电计费系统';
  F_Face := TF_Face.Create(Application);
  F_Face.ProgressBar.Max := 100;
  mProgressThread := TProgressThread.Create(F_Face.ProgressBar,false);
  Try
    F_Face.Show();
    Application.CreateForm(TF_Main, F_Main);
  Application.CreateForm(TDM_Proc, DM_Proc);
  Application.CreateForm(TDM_Table, DM_Table);
  Application.CreateForm(TF_Station, F_Station);
  Application.CreateForm(TF_Setup, F_Setup);
  Application.CreateForm(TF_Town, F_Town);
  Application.CreateForm(TF_Multi_House, F_Multi_House);
  Application.CreateForm(TF_About, F_About);
  Application.CreateForm(TF_Ammeter_Data, F_Ammeter_Data);
  Application.CreateForm(TF_Default, F_Default);
  Application.CreateForm(TF_NewMonth, F_NewMonth);
  Application.CreateForm(TF_CheckFee, F_CheckFee);
  Application.CreateForm(TF_ValidFee, F_ValidFee);
  Application.CreateForm(TF_Fee_Balance, F_Fee_Balance);
  Application.CreateForm(TF_Line, F_Line);
  Application.CreateForm(TR_Village, R_Village);
  Application.CreateForm(TF_Help, F_Help);
  Application.CreateForm(TR_Single_House, R_Single_House);
  Application.CreateForm(TF_Single_House, F_Single_House);
  Application.CreateForm(TF_Fee_List, F_Fee_List);
  Application.CreateForm(TR_Fee_List, R_Fee_List);
  Application.CreateForm(TF_ExecSQL, F_ExecSQL);
  Application.CreateForm(TR_Transfer, R_Transfer);
  Application.CreateForm(TR_Ammeter_Data, R_Ammeter_Data);
  Application.CreateForm(TF_PageSetup, F_PageSetup);
  Application.CreateForm(TF_Fee_List_New, F_Fee_List_New);
  Application.CreateForm(TF_Msg, F_Msg);
  Application.CreateForm(TF_Fee_Multi_List, F_Fee_Multi_List);
  Application.CreateForm(TR_Fee_Multi_List, R_Fee_Multi_List);
  Application.CreateForm(TR_Fee_List_New, R_Fee_List_New);
  Application.CreateForm(TF_Fee_Line, F_Fee_Line);
  Application.CreateForm(TF_Transfer_Wasting, F_Transfer_Wasting);
  Application.CreateForm(TR_Transfer_Wasting, R_Transfer_Wasting);
  Application.CreateForm(TR_Fee_Line, R_Fee_Line);
  Application.CreateForm(TF_Fee_Transfer, F_Fee_Transfer);
  Application.CreateForm(TF_ChangePassword, F_ChangePassword);
  Application.CreateForm(TF_LineSelect, F_LineSelect);
  Application.CreateForm(TF_CopyList, F_CopyList);
  Application.CreateForm(TR_CopyList, R_CopyList);
  Application.CreateForm(TF_AmmeterReplace, F_AmmeterReplace);
  Application.CreateForm(TF_TransferAlterLine, F_TransferAlterLine);
  Application.CreateForm(TF_MergeTransfer, F_MergeTransfer);
  Application.CreateForm(TF_Backup, F_Backup);
  Application.CreateForm(TF_AmmeterMove, F_AmmeterMove);
  Application.CreateForm(TF_LineCopyRate, F_LineCopyRate);
  Application.CreateForm(TF_TransferSelect, F_TransferSelect);
  Application.CreateForm(TR_LineCopyRate, R_LineCopyRate);
  Application.CreateForm(TF_CopyRate, F_CopyRate);
  Application.CreateForm(TR_CopyRate, R_CopyRate);
  Application.CreateForm(TF_ZeroFee, F_ZeroFee);
  Application.CreateForm(TR_ZeroFee, R_ZeroFee);
  Application.CreateForm(TDM_Export, DM_Export);
  Application.CreateForm(TDM_Mobile, DM_Mobile);
  Application.CreateForm(TF_Fee_Single_List, F_Fee_Single_List);
  Application.CreateForm(TR_Fee_Single_List, R_Fee_Single_List);
  Application.CreateForm(TR_Fee_Balance, R_Fee_Balance);
  Application.CreateForm(TR_Fee_Line_New, R_Fee_Line_New);
  Application.CreateForm(TDM_10KV, DM_10KV);
  Application.CreateForm(TRB, RB);
  Except
  	ShowMessage('系统警告，默认打印机不正常或编译前数据库已打开，系统可能不能正常运行！');
  End;
  Try
  	Application.CreateForm(TDM_Update, DM_Update);
  Except
  	ShowMessage('请安装Office2000');
  End;
  Application.CreateForm(TF_HouseCard, F_HouseCard);
  if (mProgressThread.Times > 0) Then
  Begin
   	ProgressBarStep := ProgressBarStep Div mProgressThread.Times;
  	Dec(ProgressBarStep);
  End
  else//只在低于90%时才调整进度
  	if(F_Face.ProgressBar.Position < 90) Then
	  	Inc(ProgressBarStep);

  //引用了F_Face中的进度条，应先终止
  mProgressThread.Terminate();
  F_Face.Destroy();

  Application.Run;
end.