denglu.~pas

帮助学校更快捷方便的完成考试

unit denglu;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit2Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  i:integer=0;  m: Boolean = False;
implementation

{$R *.dfm}

procedure TForm2.Edit2Change(Sender: TObject);
begin
  if(Trim(Edit1.Text)<>' ')and(Trim(Edit2.Text)<>' ')then
    BitBtn1.Enabled:=True
  else
    BitBtn1.Enabled:=False;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if(Key=vk_Return)or(Key=vk_Down)or(Key=vk_Tab)then
    Edit2.SetFocus;
end;

procedure TForm2.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if(Key=vk_Return)or(Key=vk_Down)or(Key=vk_Tab)then
    Edit1.SetFocus;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
   with data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 操作员信息表 where(操作员姓名=:a)and(操作员密码=:b)');
    Parameters.ParamByName('a').Value :=Trim(Edit1.Text);
    Parameters.ParamByName('b').Value :=Trim(Edit2.Text);
    Open;
    end;
    if data.ADOQuery1.RecordCount >0 then
    begin
      czy:=data.ADOQuery1.FieldByName('操作员姓名').AsString;
      m:=True;
      Form1.StatusBar1.Panels[3].Text:=czy;
      Edit1.Clear;
      Edit2.Clear;
     Form1.ShowModal;
     Close;
    end
    else
    begin
      if i<3 then
      begin
        Application.MessageBox('用户名称或密码不正确，请重新输入！','提示',0+64);
        Edit1.Clear;
        Edit2.Clear;
        Edit1.SetFocus;
        Inc(i);
      end
      else
      begin
        Application.MessageBox('对不起，您无权使用本系统！','提示',0+64);
        Application.Terminate;
      end;
    end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if m = False then
    Application.Terminate
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
    Close;
end;

end.