appmain.dpr

来自「里面有EXE文件,直接运行就可以,密码也在说明文件里,如有需要可做相应的改变」· DPR 代码 · 共 38 行

program AppMain;

uses
  Forms,
  UntMain in 'Source\UntMain.pas' {FrmMain},
  UntLogin in 'Source\UntLogin.pas' {FrmLogin},
  UntWelcome in 'Source\UntWelcome.pas' {FrmWelcome},
  UntBaseClass in 'Source\UntBaseClass.pas',
  UntDataClass in 'Source\UntDataClass.pas',
  UntExcSQL in 'Source\UntExcSQL.pas',
  UntDMAppMDI in 'Source\UntDMAppMDI.pas' {DM: TDataModule},
  UntAppMDIConsts in 'Source\UntAppMDIConsts.pas',
  UntAdmin in 'Source\UntAdmin.pas' {FrmAdmin},
  UntChangePsw in 'Source\UntChangePsw.pas' {FrmChangePsw},
  UntPartyMain in 'Source\UntPartyMain.pas' {FrmPartyMain},
  UntPartyBranch in 'Source\UntPartyBranch.pas' {FrmPartyBranch},
  UntPartyInfo in 'Source\UntPartyInfo.pas' {FrmPartyInfo},
  UntSearchBase in 'Source\UntSearchBase.pas' {FrmSearchBase},
  UntPartyEditAdd in 'Source\UntPartyEditAdd.pas' {FrmPartyEditAdd},
  UntBaseSet in 'Source\UntBaseSet.pas' {FrmBaseSet},
  UntReMent in 'Source\UntReMent.pas' {FrmReMent},
  UntPrint in 'Source\UntPrint.pas' {FrmPrint},
  UntOtherSelect in 'Source\UntOtherSelect.pas' {FrmOtherSelect},
  UntAbout in 'Source\UntAbout.pas' {AboutBox};

{$R *.res}

begin
  Application.Initialize;
  FrmWelcome:=TFrmWelcome.Create(Application);
  FrmWelcome.Show;
  FrmWelcome.Update;
  Application.Title := '安徽新华学院党员管理系统';
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TDM, DM);
  Application.Run;
end.