login.pas

在Dephi中可执行 多多支持

unit Login;

interface

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

type
  TFormLogin = class(TForm)
    LabelTiShi: TLabel;
    LabelYongHu: TLabel;
    LabelPassWord: TLabel;
    EditUser: TEdit;
    EditPassWord: TEdit;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    TableYongHu: TTable;
    TableYongHuYongHu: TStringField;
    TableYongHuKouLing: TStringField;
    TableYongHuQuanXian: TStringField;
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure TableYongHuBeforeOpen(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLogin: TFormLogin;
  TimeID:Integer;
  QuanXian:String;
implementation

{$R *.DFM}

procedure TFormLogin.ButtonOkClick(Sender: TObject);
begin

   TimeID:=TimeID+1;
   TableYongHu.SetKey;
   TableYongHu.FieldByName('YongHu').AsString:=EditUser.Text;
   TableYongHu.GotoKey;

   If (EditUser.Text=TableYongHu.FieldByName('YongHu').AsString) And (EditPassWord.Text=TableYongHu.FieldByName('KouLing').AsString) Then
       Begin
       ModalResult:=mrOK;
       QuanXian:=TableYongHu.FieldByName('QuanXian').AsString;
       End
   Else
   Begin
      If TimeID>3 Then
      Begin
      Application.Terminate;
      End
      Else If EditUser.Text <> TableYongHu.FieldByName('YongHu').AsString Then
        Begin
        Application.MessageBox('非法用户，请您输入正确的用户名！','用户名',MB_OK+MB_ICONEXCLAMATION);
        EditUser.SetFocus;
        End
      Else
        Begin
        Application.MessageBox('输入密码错误，请再输入一次','密码',MB_OK+MB_ICONEXCLAMATION);
        EditPassWord.SetFocus;
        End;
   End;
End;

procedure TFormLogin.ButtonCancelClick(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TFormLogin.TableYongHuBeforeOpen(DataSet: TDataSet);
begin
   Session.AddPassword('kaoqin');
end;

procedure TFormLogin.FormShow(Sender: TObject);
begin
   TimeID:=0;
end;



procedure TFormLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then
  Begin
    perform(WM_NEXTDLGCTL,0,0);
  End;
end;

end.