cjsys.dpr

一个电力部门的催缴费用系统

program CJSys;

uses
  Forms,
  MainCjFM in 'MainCjFM.pas' {FM_MainCj},
  BaseEditFrm in 'baseedit\BaseEditFrm.pas' {Form_BaseEdit},
  CjUserListFM in 'userlist\CjUserListFM.pas' {FM_CjUserList},
  systemDM in 'sysModule\systemDM.pas' {sysDM: TDataModule},
  systemLoginFM in 'sysModule\systemLoginFM.pas' {frm_Login},
  systemLogoFaceFM in 'sysModule\systemLogoFaceFM.pas' {frm_LogoFace},
  systemPH in 'sysModule\systemPH.pas',
  systemModipwdFM in 'sysModule\systemModipwdFM.pas' {frm_ModiPwd},
  CallDfgxdll in 'sysModule\CallDfgxdll.pas',
  CommonDataDM in 'userModule\CommonDataDM.pas' {DM_CommonData: TDataModule},
  SourceDM in 'userModule\SourceDM.pas' {DM_Source: TDataModule},
  SourcePH in 'userModule\SourcePH.pas',
  CreateCJDataFM in 'CreateCJData\CreateCJDataFM.pas' {FM_CreateCJData},
  ChildFM in 'userModule\ChildFM.pas' {fm_Child},
  CallOutTimeTableFM in 'userModule\CallOutTimeTableFM.pas' {fm_CallOutTimetable},
  CjUserInfoFM in 'userModule\CjUserInfoFM.pas' {FM_CjUserInfo},
  CjStatisticsFM in 'userModule\CjStatisticsFM.pas' {fm_CjStatistics},
  AboutFM in 'userModule\AboutFM.pas' {FM_About},
  FindCjUserFM in 'userModule\FindCjUserFM.pas' {FM_FindCjUser},
  PrintCjUserFM in 'userModule\PrintCjUserFM.pas' {FM_PrintCjUserList},
  RptCjUserFM in 'userModule\RptCjUserFM.pas' {FM_RptCjUser},
  lQfWarningValFM in 'userModule\lQfWarningValFM.pas' {FM_lQfWarningVal};

{$R *.RES}

begin
  Application.Initialize;
  if not SystemInit then exit;
  LoadLogo;                SetLogo(30);
  Application.CreateForm(TsysDM, sysDM);
  if not sysDM.ConnectFlag then
  begin
    Application.MessageBox('连接数据库失败，请检查网络设置和数据库配置！','提示',0);
    exit;
  end;
  SetLogo(60);
  Application.CreateForm(TDM_Source, DM_Source);
  Application.CreateForm(TDM_CommonData, DM_CommonData);
  if not sysDM.CallLogin then exit;
  SetLogo(90);
  Application.CreateForm(TFM_MainCj, FM_MainCj);
  FreeLogo;
  Application.Run;
end.