loginut.~pas

用delphi+access给单位做的实用,简单的.

unit loginut;

interface

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

type
  Tloginfm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    yhxm: TComboBox;
    dlmm: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery: TADOQuery;
    Label3: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure yhxmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dlmmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfm: Tloginfm;

implementation

uses mainut;

{$R *.dfm}

procedure Tloginfm.BitBtn2Click(Sender: TObject);
begin
//退出系统
if messagedlg('确定退出系统吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;
end;

procedure Tloginfm.BitBtn1Click(Sender: TObject);
begin
if yhxm.Text='' then
   begin
     showmessage('请选择或者输入用户姓名');
     yhxm.SetFocus;
     exit;
   end
  else
    dlmm.SetFocus;
with adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 用户表 where 姓名="'+trim(yhxm.Text)+'" and 密码="'+dlmm.Text+'"');
    open;
      if recordcount<>1 then
        begin
          showmessage('用户名或者密码不正确，确定输入是否正确否则请与管理员联系!');
          exit;
        end
      else
           begin
           mainfm.limt:=fieldbyname('权限').AsString;
           mainfm.yhxm:=fieldbyname('姓名').AsString;
           if  mainfm.limt<>'管理员' then
             begin
               mainfm.add.Enabled:=false;
               mainfm.edit.Enabled:=false;
               mainfm.del.Enabled:=false;
               mainfm.N1.Enabled:=false;
               mainfm.N5.Enabled:=false;
               mainfm.N9.Enabled:=false;
             end
             else
               begin
                mainfm.add.Enabled:=true;
                mainfm.edit.Enabled:=true;
                mainfm.del.Enabled:=true;
                mainfm.N1.Enabled:=true;
                mainfm.N5.Enabled:=true;
                mainfm.N9.Enabled:=true;
               end;
           mainfm.StatusBar1.Panels[0].Text:='当前用户：'+mainfm.yhxm;
           mainfm.logined:=true;
           loginfm.Close;
         end;
  end;
 yhxm.Text:='';
 dlmm.Text:='';
end;

procedure Tloginfm.FormCreate(Sender: TObject);
begin
  with adoquery do
    begin
      close;
      sql.Clear;
      sql.Add('select 姓名 from 用户表');
      open;
      first;
       while not eof do
         begin
           yhxm.Items.Add(fieldbyname('姓名').AsString);
           next;
         end;
    end;
end;

procedure Tloginfm.yhxmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
 if yhxm.Text='' then
   begin
     showmessage('请选择或者输入用户姓名');
     yhxm.SetFocus;
     exit;
   end
  else
    dlmm.SetFocus;
end;

procedure Tloginfm.dlmmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
BitBtn1.Click;
end;

end.