?? ulogin.~pas
字號:
unit uLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, DB, DBClient, ExtCtrls, Grids,
DBGrids, ADODB, main, kxiancommon;
type
TLoginDlg = class(TForm)
Label1: TLabel;
Label2: TLabel;
edtPassword: TEdit;
edtAccount: TEdit;
Panel1: TPanel;
btnOK: TButton;
btnCancel: TButton;
adoqUser: TADOQuery;
procedure btnOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
//驗證帳號匹配,具體實現(xiàn)應不同的存儲方式而不同,將在以下各實現(xiàn)細節(jié)中說明
function VerifyAccount: Boolean;
//一個類方法,以便在Project主程序中調(diào)用此方法來執(zhí)行登錄,
//如果登錄成功返回True,否阿返回False。
class function Execute(var AUserID: string; var AUserName: string): Boolean;
end;
implementation
{$R *.dfm}
{ TLoginDlg }
class function TLoginDlg.Execute(var AUserID: string; var AUserName: string): Boolean;
begin
RESULT := FALSE;
with TLoginDlg.Create(nil) do
try
Result := ShowModal = mrOk;
AUserID := adoqUser.FieldByName('UserID').Asstring;
AUserName := adoqUser.FieldByName('UserName').Asstring;
sTrueName := adoqUser.FieldByName('TrueName').Asstring;
finally
Free;
end;
end;
function TLoginDlg.VerifyAccount: Boolean;
begin
Result := False;
with adoqUser do
begin
Parameters.ParamByName('userName').Value := edtAccount.Text;
Parameters.ParamByName('Password').Value := edtPassword.Text;
if Active then Close;
Open;
if RecordCount > 0 then ModalResult := mrOk;
end;
Result := ModalResult = mrOk;
end;
procedure TLoginDlg.btnOKClick(Sender: TObject);
begin
if not VerifyAccount then ShowMessage('用戶或密碼錯誤,請重新輸入!');
end;
procedure TLoginDlg.FormCreate(Sender: TObject);
begin
adoquser.Connection := adocwdkz;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -