sdmsg.dpr

水电管理系统,你们不妨看看怎么样?我再继续给你们别的

program SDMsg;

uses
  Forms,
  ufrmMaim in 'ufrmMaim.pas' {frmMaim},
  UCommon in 'UCommon.pas',
  ufrmAbout in 'ufrmAbout.pas' {frmAbout},
  uConst in 'uConst.pas',
  ufrmMeter in 'ufrmMeter.pas' {frmMeter},
  ufrmCnfgPara in 'ufrmCnfgPara.pas' {frmCnfgPara},
  ufrmWorkshop in 'ufrmWorkshop.pas' {frmWorkshop},
  ufrmMeterSort in 'ufrmMeterSort.pas' {frmMeterSort},
  ufrmPrice in 'ufrmPrice.pas' {frmPrice},
  ufrmReport in 'ufrmReport.pas' {frmReport},
  ufrmTakeMeter in 'ufrmTakeMeter.pas' {frmTakeMeter},
  uLogin in 'uLogin.pas' {frmLogin};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '水电管理系统';

  frmLogin := TfrmLogin.Create(Application);
  frmLogin.ShowModal;
  if frmLogin.IsOk then
    frmLogin.Close;  

  Application.CreateForm(TfrmMaim, frmMaim);
  Application.Run;
end.