shoufei.dpr

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

program ShouFei;

uses
  Forms,
  Windows,
  Controls,
  MainForm in 'MainForm.pas' {FormMain},
  DataMod in 'DataMod.pas' {DataMD: TDataModule},
  splash in 'SPLASH.PAS' {FormSplash},
  Commfunc in 'Commfunc.pas',
  register in 'register.pas' {FormRegister},
  SelDate in 'SelDate.pas' {FormDate},
  SelOpDate in 'SelOpDate.pas' {FormOpDate},
  ShouFeiSet in 'ShouFeiSet.pas' {FormSetup},
  AdvanceSEt in 'AdvanceSEt.pas' {FormAdvance},
  TestWin in 'TestWin.pas' {FormTest},
  SelectCase in 'SelectCase.pas' {FormCase},
  InfoWin in 'InfoWin.pas' {FormInfoList},
  AboutBox in 'AboutBox.pas' {FormAbout},
  PrinInfoUnit in 'PrinInfoUnit.pas' {FormPrintInfo},
  Consts in 'VCL\Consts.pas',
  InitDbSetUnit in 'InitDbSetUnit.pas' {FormInitDBSet};

{$R *.RES}
exports
  HaveThesePower,
  RefreshDesk;
var
  FormRegister: TFormRegister;
  FormDate: TFormDate;
begin
  Formsplash:=TFormSplash.Create(application);
  FormSplash.Show;
  FormSplash.Update;
  Application.Initialize;
  Application.Title:='电费征收系统';
  Application.CreateForm(TDataMD, DataMD);
  if not Application.Terminated then begin
    FormRegister:=TFormRegister.Create(Application);
    if FormRegister.ShowModal=mrCancel then begin;
       FormRegister.Free;
       DataMD.Free;
       Application.Terminate;
       Exit;
    end;
    FormRegister.Free;
  end;
  Application.CreateForm(TFormMain, FormMain);
  if not Application.Terminated then begin
    FormDate:=TFormDate.Create(Application);
    FormDate.ShowModal;
    FormDate.Free;
  end;
  FormSplash.Hide;
  FormSplash.Free;
  Application.Run;
end.