ktassistant.~dpr

显示当前采集的10个测量点的路温湿度值： 温度单位是℃

program ktAssistant;

uses
  Forms,
  Dialogs,
  SysUtils,
  untMain in 'untMain.pas' {FrmMAIN},
  untLOGO in 'untLOGO.pas' {FrmLOGO},
  LoginForm in 'LoginForm.pas' {FormLogin},
  untDMmain in 'untDMmain.pas' {DMmain: TDataModule},
  untTemSearch in 'untTemSearch.pas' {frmWdSearch},
  untHumSearch in 'untHumSearch.pas' {frmSdSearch},
  untSysAlarmSet in 'untSysAlarmSet.pas' {frmAlarmSet},
  untSaveTimeSet in 'untSaveTimeSet.pas' {frmSaveTimeSet},
  untBaudSet in 'untBaudSet.pas' {frmBaudSet},
  untAbout in 'untAbout.pas' {frmAbout};

{$R *.res}
var
    i :integer;
    mRun : boolean;
    mRet :integer;
    
begin
  Application.Initialize;
  FrmLOGO := TFrmLOGO.Create(nil);
  FrmLOGO.Show;
  FrmLOGO.Update;
  Sleep(2000); // stop time 2s
  FrmLOGO.Close;
  Application.CreateForm(TDMmain, DMmain);
  Application.CreateForm(TFormLogin, FormLogin);
  //Application.CreateForm(TFrmMAIN, FrmMAIN);
  mRun := False;
  for i:=0 to 2 do
  begin
        //设置用户输入的焦点
        if i = 0 then FormLogin.ActiveControl := FormLogin.Edit1
        else FormLogin.ActiveControl := FormLogin.Edit2;

        mRet := FormLogin.ShowModal;
        //用户取消
        if mRet = 2 then break; //mrCancel
        //成功登录
        if mRet = 1 then        //mrOk
        begin
            mRun := True;
            Break;
        end;
        //用户名和口令不正确
        if mRet = 3 then  //mrAbort
        begin
            ShowMessage('你输入的用户名和口令不正确！');
        end;
    end;
    //登录三次错误
    if i = 3 then
    begin
        ShowMessage('你三次输入的用户名和口令都不正确，系统将退出！');
    end;

    if mRun then
    begin
        // close login form
       FormLogin.Destroy;
       Application.CreateForm(TfrmMAIN, frmMAIN);
       Application.CreateForm(TfrmWdSearch, frmWdSearch);
       Application.CreateForm(TfrmSdSearch, frmSdSearch);
       Application.CreateForm(TfrmAlarmSet, frmAlarmSet);
       Application.CreateForm(TfrmSaveTimeSet, frmSaveTimeSet);
       Application.CreateForm(TfrmBaudSet, frmBaudSet);
       FrmMAIN.Show;
       Application.Run;
    end
    else
    begin
        // close login form
       FormLogin.Destroy;
       DMmain.Destroy ;
       // program quit
      Application.Terminate;
    end;  
end.