ulogin.~pas

ＤＥＬＰＨＩ开发的寝室管理系统

unit Ulogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, jpeg, ADODB, DB;

type
  Tfrmlogin = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    edUser: TEdit;
    edPwd: TMaskEdit;
    Label3: TLabel;
    bbOK: TBitBtn;
    bbCancel: TBitBtn;
    Image1: TImage;
    procedure bbCancelClick(Sender: TObject);
    procedure bbOKClick(Sender: TObject);
    procedure edPwdExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogin: Tfrmlogin;

implementation

uses DataModule,Ubedroom;

{$R *.dfm}

procedure Tfrmlogin.bbCancelClick(Sender: TObject);
begin
  close;
  frmbedroom.Visible:=true;
end;

procedure Tfrmlogin.bbOKClick(Sender: TObject);
begin
    try
      with DataModuleADO.ADOQuery1 do
      begin
        SQL.Clear;
        SQl.Add('select password from user where name=:name');
        Parameters.ParamByName('name').Value :=edUser.Text;
        Open;
        if  RecordCount<>0 then begin
           if edpwd.Text=DataModuleADO.ADOQuery1.FieldByName('password').Text then begin
              frmbedroom.Button2.Enabled:=true;
              frmbedroom.Button3.Enabled:=true;
              frmbedroom.Button4.Enabled:=true;
              frmbedroom.Button5.Enabled:=true;
              frmbedroom.Button6.Enabled:=true;
              frmbedroom.Button7.Enabled:=true;
              bbCancel.OnClick(Sender);
              frmbedroom.Visible:=true;
           end
           else
             showmessage('登陆失败');
        end;
        Close;
      end;
    except
      showmessage('登陆<'+edUser.Text+'>出错');
    end;
end;

procedure Tfrmlogin.edPwdExit(Sender: TObject);
begin
    self.bbOK.Click;
end;

procedure Tfrmlogin.FormActivate(Sender: TObject);
begin
  self.edUser.Text:='';
  self.edPwd.Text:='';
  self.Left:=(screen.Width-self.Width)div 2;
  self.Top:=(screen.Height-self.Height)div 2;
end;

end.