login.pas

delphi+sql server 我是delphi的初学者

unit LOGIN;

interface

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

type
  TFRMLOGIN = class(TForm)
    Image1: TImage;
    EdDM: TEdit;
    EdKL: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EdDMKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdDMKeyPress(Sender: TObject; var Key: Char);
    procedure EdKLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMLOGIN: TFRMLOGIN;

implementation
USES UDM,main;
{$R *.dfm}

procedure TFRMLOGIN.BitBtn2Click(Sender: TObject);
begin
   CLOSE;
end;

procedure TFRMLOGIN.FormShow(Sender: TObject);
begin
  dm.ADOusermight.Open;
   dm.ADOLOGIN.Open;
   EdDM.Text:='';
   EdKL.Text:='';
  Label3.Caption:='当前日期：'+FORMATDATETIME('YYYY-MM-DD',Now);
end;

procedure TFRMLOGIN.EdDMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 IF Key=$0D then
 EdKL.SetFocus;
end;

procedure TFRMLOGIN.EdDMKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TFRMLOGIN.EdKLKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
 BitBtn1Click(Sender);
end;

procedure TFRMLOGIN.BitBtn1Click(Sender: TObject);
var
  hid:integer;
begin
  with dm.ADOLOGIN do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select userid,username,userpsd,codeplace from usertable');
    SQL.Add('where userid=:userid and userpsd=:userpsd');
    Parameters.ParamByName('userid').Value:=Trim(EdDM.Text);
    Parameters.ParamByName('userpsd').Value:=Trim(EdKL.Text);
    Prepared;
    Open;
  end;
    if DM.ADOLOGIN.RecordCount<>0 then
      begin
        if dm.HDM='01' then
        hid:=1
        else
        if dm.HDM='02' then
        hid:=2
        else
        if dm.HDM='03'  then
        hid:=3
        else
        if dm.HDM='04' then
        hid:=4
        else
        hid:=0;

     with dm.ADOusermight do
     begin
       close;
       sql.Clear;
       sql.Add('select * from usermghit');
       sql.Add('where czydm=:czydm');
       parameters.ParamByName('czydm').Value:=eddm.Text;
       prepared;
       open;
     end;
     if not dm.ADOusermight.Locate('id',hid,[]) then
     begin
     messagebox(0,'操作员未被授权!!','系统提示',MB_OK+MB_iconinformation);
     eddm.SetFocus;
     exit;
     end;
      FRMLOGIN.Close;
      frmmain.ShowModal;
      end
      else
      begin
        ShowMessage('密码错误，请重新定义!');
        exit;
      end;

end;

procedure TFRMLOGIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADOLOGIN.Close;
  dm.ADOusermight.Close;

end;

end.