loginform.pas

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

unit LoginForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, ADODB;

type
  TFormLogin = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
     function Login(AUser,APassword:string):smallint;
  public
    { Public declarations }

  end;

var
  FormLogin: TFormLogin;
  highTemp : Integer = 0; // 高温
  lowTemp : Integer = 0; // 低温
  highHum : Integer = 0; // 高湿
  lowHum : Integer =0; // 低湿
  setSaveTimeSpace : Integer =0; // 设定的存储时间间隔
  setBaud : String; // 波特率
implementation

uses
  untMain,untDMmain;



{$R *.DFM}


procedure TFormLogin.BitBtn2Click(Sender: TObject);
begin
    ModalResult := mrCancel;
end;

procedure TFormLogin.BitBtn1Click(Sender: TObject);
begin
    if Edit1.Text = '' then
    begin
        ShowMessage('用户名不能为空，请重新输入！');
        Edit1.SetFocus;
        Exit;
    end;
    if Edit2.Text = '' then
    begin
        ShowMessage('用户口令不能为空，请重新输入！');
        Edit2.SetFocus;
        Exit;
    end;

   if Login(Edit1.Text,Edit2.Text) < 0 then
        ModalResult := mrAbort
    else
        ModalResult := mrOk;

end;

procedure TFormLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        if Length(Edit1.Text)=0 then
        begin
            ShowMessage('用户名不能为空，请重新输入！');
            Edit1.SetFocus;
        end
        else Edit2.SetFocus;
    end;
end;

procedure TFormLogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        if Length(Edit2.Text)=0 then
        begin
            ShowMessage('密码不能为空,请重新输入！');
            Edit2.SetFocus;
        end
        else BitBtn1.SetFocus;
    end;
end;

function TFormLogin.Login(AUser, APassword: string): smallint;
var
    //mQuery: TADOQuery;
    mPassword_ : string;
begin
   // mQuery := TADOQuery.Create(nil);
     try
        with DMmain.ADOQueryMain do
        begin
            SQL.Clear;
            SQL.Add('select password from tblUser ');
            SQL.Add('where username = :UserName');
            Parameters[0].Value := AUser;
            Open;
            if RecordCount <> 1 then Result := -2
            else begin
                mPassword_ := FieldByName('password').AsString;
                if mPassword_ = APassword then
                  begin
                  //  用户名,密码正确的情况
                  Result := 1;
                  // 查找最后的参数设置
                  SQL.Clear;
                  SQL.Add('select * from tblSysAlarmPara ');
                  Open;
                  Last;
                  highTemp := FieldByName('highTemp').AsInteger; // 高温
                  lowTemp := FieldByName('lowTemp').AsInteger; // 低温
                  highHum := FieldByName('highHum').AsInteger; // 高湿
                  lowHum := FieldByName('lowHum').AsInteger; // 低湿
                  SQL.Clear;
                  SQL.Add('select * from tblSysSaveTimePara ');
                  Open;
                  Last;
                  setSaveTimeSpace := FieldByName('saveTimeSpace').AsInteger; // 存储间隔
                  SQL.Clear;
                  SQL.Add('select * from tblSysBaudPara ');
                  Open;
                  Last;
                  setBaud := FieldByName('baudSet').AsString; // 波特率

                end
                else Result := -1;
            end;
        end;
    finally
        DMmain.ADOQueryMain.Free;
    end;
end;

end.