main.pas

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

unit main;

interface

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

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

var
  Form1: TForm1;

implementation

uses mainmenu;

{$R *.dfm}

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

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

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

procedure TForm1.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_snusername:=trim(username.Text);
//系统初始化，根据登陆决定开关状态
    case T_user.FieldByName('ManagerRight').AsInteger  of
      0:
        begin
          Form2.N1.Enabled:=True;
          Form2.N2.Enabled:=true;
          Form2.N3.Enabled:=False;
          Form2.N4.Enabled:=False;
          Form2.N5.Enabled:=False;
          Form2.N6.Enabled:=False;
          Form2.N7.Enabled:=true;
          Form2.N8.Enabled:=False;
          Form2.N9.Enabled:=False;
          Form2.N10.Enabled:=True;
          Form2.N11.Enabled:=true;
          Form2.N12.Enabled:=false;
          Form2.N13.Enabled:=True;
          Form2.N14.Enabled:=False;
          Form2.N15.Enabled:=false;
          Form2.N16.Enabled:=False;
          Form2.N17.Enabled:=False;
          Form2.N18.Enabled:=False;
          Form2.N19.Enabled:=False;
          Form2.N20.Enabled:=False;
          Form2.N21.Enabled:=False;
 //         Form2.N22.Enabled:=False;
        end;
      1:
        begin
          Form2.N1.Enabled:=True;
          Form2.N2.Enabled:=true;
          Form2.N3.Enabled:=False;
          Form2.N4.Enabled:=False;
          Form2.N5.Enabled:=False;
          Form2.N6.Enabled:=False;
          Form2.N7.Enabled:=true;
          Form2.N8.Enabled:=true;
          Form2.N9.Enabled:=True;
          Form2.N10.Enabled:=True;
          Form2.N11.Enabled:=True;
          Form2.N12.Enabled:=True;
          Form2.N13.Enabled:=True;
          Form2.N14.Enabled:=True;
          Form2.N15.Enabled:=false;
          Form2.N16.Enabled:=false;
          Form2.N17.Enabled:=False;
          Form2.N18.Enabled:=False;
          Form2.N19.Enabled:=False;
          Form2.N20.Enabled:=False;
          Form2.N21.Enabled:=False;
//          Form2.N22.Enabled:=False;
        end;
      2:
        begin
          Form2.N1.Enabled:=True;
          Form2.N2.Enabled:=true;
          Form2.N3.Enabled:=False;
          Form2.N4.Enabled:=False;
          Form2.N5.Enabled:=False;
          Form2.N6.Enabled:=False;
          Form2.N7.Enabled:=true;
          Form2.N8.Enabled:=true;
          Form2.N9.Enabled:=True;
          Form2.N10.Enabled:=True;
          Form2.N11.Enabled:=True;
          Form2.N12.Enabled:=True;
          Form2.N13.Enabled:=True;
          Form2.N14.Enabled:=True;
          Form2.N15.Enabled:=false;
          Form2.N16.Enabled:=True;
          Form2.N17.Enabled:=False;
          Form2.N18.Enabled:=False;
          Form2.N19.Enabled:=True;
          Form2.N20.Enabled:=True;
          Form2.N21.Enabled:=True;
//          Form2.N22.Enabled:=True;
        end;
    end;
//结束

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

      end;
   end;

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

procedure TForm1.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;

end.