kxian.~dpr

来自「该系统将温度数据以类似股票K线显示方式进行分析」· ~DPR 代码 · 共 37 行

program KXian;

uses
  Forms,
  Splash in 'Splash.pas' {SplashForm},
  Main in 'Main.pas' {MainForm},
  KXianMain in 'KXianMain.pas' {FormKXianMain},
  uLogin in 'uLogin.pas' {LoginDlg},
  upass in 'upass.pas' {PassEditDlg},
  uSystemMonitor in 'uSystemMonitor.pas' {fSystemMonitor},
  kxiancommon in 'kxiancommon.pas',
  TempAddr in 'TempAddr.pas' {fTempAddr},
  RightMan in 'RightMan.pas' {fRightMan},
  uAddModuleDlg in 'uAddModuleDlg.pas' {AddModuleDlg},
  uRightsManage in 'uRightsManage.pas' {RightsManageFrm},
  uUserManage in 'uUserManage.pas' {UserManageFrm};

{$R *.res}
begin
  PrintRight :=-1;
  Application.Initialize;
  Application.Title := '葡醛内酯温度在线控制系统';
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  while not SplashForm.Timeout do
    Application.ProcessMessages;
  do_connect;

  if TLoginDlg.Execute(iUserID, sUserName) then
  BEGIN
        Application.CreateForm(TMainForm, MainForm);
  SplashForm.Free;
        Application.Run;
  END;

end.