logotest.pas

结于初学者来说这对数据库是一个很好的例子

unit logotest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, DB;

type
  TForm36 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    PassWord: TEdit;
    Button1: TButton;
    Button2: TButton;
    Database1: TDatabase;
    T_user: TTable;
    Q_operator: TQuery;
    Database2: TDatabase;
    username: TComboBox;
    Table1: TTable;
    procedure Button1Click(Sender: TObject);
    procedure UserNameKeyPress(Sender: TObject; var Key: Char);
    procedure PassWordKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure usernameSelect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sys_username:string;
  end;

var
  Form36: TForm36;

implementation

uses LoginUser, main;

{$R *.dfm}

procedure TForm36.Button1Click(Sender: TObject);
begin
    T_user.Filter:='Name='''+UserName.Text+'''';
    T_user.Filtered:=True;
    T_user.Open;
  if T_user.RecordCount=1 then
    begin
      Q_operator.SQL.Clear;
      Q_operator.SQL.Add('select * from operator');
      Q_operator.Open;
      Q_operator.Edit;
      Q_operator['Name']:=T_user.FieldByName('Name').asstring;
      Q_operator['ManagerRight']:=T_user.FieldByName('ManagerRight').asinteger;
      Q_operator.Post;
      Q_operator.Close;
      if T_user['Pass']=PassWord.Text then
        begin
          sys_username:=username.Text;
          form36.Hide;
          form1.operator.Caption:=username.Text;
//系统初始化，根据登陆决定开关状态
    case T_user.FieldByName('ManagerRight').AsInteger  of
      0:
        begin
          Form1.N1.Enabled:=True;
          Form1.N2.Enabled:=False;
          Form1.N3.Enabled:=False;
          Form1.N4.Enabled:=False;
          Form1.N5.Enabled:=False;
          Form1.N6.Enabled:=false;
          Form1.N7.Enabled:=False;
          Form1.N8.Enabled:=False;
          Form1.N9.Enabled:=true;
          Form1.N10.Enabled:=False;
          Form1.N11.Enabled:=False;
          Form1.N12.Enabled:=True;
          Form1.N13.Enabled:=True;
          Form1.N14.Enabled:=False;
          Form1.N15.Enabled:=True;
          Form1.N16.Enabled:=False;
          Form1.N17.Enabled:=False;
          Form1.N18.Enabled:=False;
          Form1.N19.Enabled:=False;
          Form1.N20.Enabled:=False;
          Form1.N21.Enabled:=False;
          Form1.N22.Enabled:=False;
          Form1.N28.Enabled:=False;
          Form1.N29.Enabled:=False;
        end;
      1:
        begin
          Form1.N1.Enabled:=True;
          Form1.N2.Enabled:=False;
          Form1.N3.Enabled:=False;
          Form1.N4.Enabled:=False;
          Form1.N5.Enabled:=False;
          Form1.N6.Enabled:=false;
          Form1.N7.Enabled:=False;
          Form1.N8.Enabled:=False;
          Form1.N9.Enabled:=True;
          Form1.N10.Enabled:=True;
          Form1.N11.Enabled:=True;
          Form1.N12.Enabled:=True;
          Form1.N13.Enabled:=True;
          Form1.N14.Enabled:=True;
          Form1.N15.Enabled:=True;
          Form1.N16.Enabled:=True;
          Form1.N17.Enabled:=False;
          Form1.N18.Enabled:=False;
          Form1.N19.Enabled:=False;
          Form1.N20.Enabled:=False;
          Form1.N21.Enabled:=False;
          Form1.N22.Enabled:=False;
          Form1.N28.Enabled:=False;
          Form1.N29.Enabled:=False;
        end;
      2:
        begin
          Form1.N1.Enabled:=True;
          Form1.N2.Enabled:=False;
          Form1.N3.Enabled:=False;
          Form1.N4.Enabled:=False;
          Form1.N5.Enabled:=False;
          Form1.N6.Enabled:=false;
          Form1.N7.Enabled:=False;
          Form1.N8.Enabled:=False;
          Form1.N9.Enabled:=True;
          Form1.N10.Enabled:=True;
          Form1.N11.Enabled:=True;
          Form1.N12.Enabled:=True;
          Form1.N13.Enabled:=True;
          Form1.N14.Enabled:=True;
          Form1.N15.Enabled:=True;
          Form1.N16.Enabled:=True;
          Form1.N17.Enabled:=false;
          Form1.N18.Enabled:=True;
          Form1.N19.Enabled:=True;
          Form1.N20.Enabled:=True;
          Form1.N21.Enabled:=True;
          Form1.N22.Enabled:=True;
          Form1.N28.Enabled:=True;
          Form1.N29.Enabled:=True;
        end;
    end;
//结束

          form1.show;
        end
        else
          begin
            Application.MessageBox('密码错误，请注意大小写！','密码不正确',MB_OK);
            password.SetFocus;
          end
    end
    else
      begin
        Application.MessageBox('请确认用户名是否正确！','无此用户',MB_OK);
        username.SetFocus;
      end;



end;

procedure TForm36.UserNameKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm36.PassWordKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm36.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm36.FormShow(Sender: TObject);
begin
 table1.Active:=False;
 Table1.Active:=True;
 while not table1.Eof do
 begin
   username.Items.Add(table1.fieldbyname('name').AsString);
   table1.Next;
 end;
 table1.Active:=False;
end;

procedure TForm36.usernameSelect(Sender: TObject);
begin
 password.SetFocus;
end;

end.