logunit.pas

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

unit logunit;

interface

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

type
  TlogForm = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox1Change(Sender: TObject);
  private
     times:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  logForm: TlogForm;

implementation

uses datamoduleUnit,mainformunit;

{$R *.dfm}

procedure TlogForm.FormCreate(Sender: TObject);
begin
times:=0;
with datamodule1.tablesys do
 begin
   open;
   while not eof do
      begin
      combobox1.Items.Add(fieldbyname('user').AsString);
      next;
      end;
  close;
 end;
end;

procedure TlogForm.BitBtn1Click(Sender: TObject);
begin
 with datamodule1.tablesys do
   begin
    open;
    if Locate('user;psw',vararrayof([trim(combobox1.Text),edit1.Text]),[]) then
      begin
       with mainform.StatusBar1 do
          begin
          Panels[1].Text:=combobox1.Text;
          Panels[3].Text:=FieldByName('role').AsString;
          panels[5].Text:=fieldbyname('type').AsString;
          end;
        mainform.user:=combobox1.Text ;
        if fieldbyname('role').AsString='数据库管理员' then
          begin
          mainform.admin:=true
          end
        else
        mainform.admin:=false;
        mainform.makeable(mainform.admin);
        modalresult:=mrok;
      end
    else if times<3 then
          begin
           messagebox (handle,'密码或用户名错误！请检查','警告',mb_ok) ;
           times:=times+1;
           edit1.SetFocus;
           exit;
           end
          else
           begin
            messagebox (handle,'对不起，你已连续三次输入错误！','严重警告',mb_ok) ;
            application.Terminate;
           end;


   end;
end;

procedure TlogForm.BitBtn2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TlogForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.Tablesys.Close;
end;

procedure TlogForm.ComboBox1Change(Sender: TObject);
begin
if (combobox1.Text<>'') and (edit1.Text<>'') then
  bitbtn1.Enabled:=true
else
  bitbtn1.Enabled:=false;
end;

end.