unitkey.pas.~51~

1.大家请将SQLServer2000中的sa用户的密码设定为sa2.将DataBase目录下的数据库附加到SQLSERVER中 应用于出租车车辆管理中的

unit unitkey;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, DBTables, Grids, DBGrids,
  Mask, FMTBcd, SqlExpr;

type
  Tformkey = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Query1: TSQLQuery;
    Label2: TLabel;
    edtUserName: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formkey: Tformkey;

implementation

uses Unit1, utData;

{$R *.dfm}

procedure Tformkey.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
query1.Active :=False;
query1.params.ParamByName('stUserName').Value  :=edtUserName.Text;
query1.Params.ParamByName('stPassword').Value   :=Edit1.Text;
query1.Active :=True;

showmessage(String(query1.Fields[0].Value));
if query1.RecordCount >0 then //<>0 then 2002.08.10 by zjs
  begin
  close;
  end
else
  begin
  messagedlg('密码输入有误，请重试！',mterror,[mbok],0);
  edtUserName.Clear;
  edit1.Clear;
  end
end;


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

procedure Tformkey.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then  BitBtn1.SetFocus;
end;

procedure Tformkey.FormShow(Sender: TObject);
begin
query1.Open;
end;

procedure Tformkey.FormClose(Sender: TObject; var Action: TCloseAction);
begin
query1.Close;
action:=cafree;
end;
end.