ratetools.dpr

来自「简单的电力计息系统（针对用友财务系统）」· DPR 代码 · 共 31 行

program ratetools;

uses
  Forms,
  main in 'main.pas' {fmMain},
  DM in 'DM.pas' {FDM: TDataModule},
  Consts in '..\public\Consts.pas',
  DBGridEhToExcel in '..\public\DBGridEhToExcel.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '德阳电力结算中心计息系统';
  Application.HelpFile:= '';
  try
  Application.CreateForm(TfmMain, fmMain);
  InitOKConn:=InitApplication>0;
    if InitOKConn then
    begin
    end else begin
      //程序初始化失败, 终止
      Application.Terminate;
    end;
  except
    Application.Terminate;
  end;
  Application.Run;

end.