?? login_unit.~pas
字號:
unit Login_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, ADODB;
type
TfrmLogin = class(TForm)
btnLogin: TBitBtn;
edtUserPwd: TEdit;
Label1: TLabel;
Label2: TLabel;
edtUserID: TEdit;
btnExit: TBitBtn;
Image1: TImage;
procedure btnLoginClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmLogin: TfrmLogin;
implementation
uses DM_Unit, Common_Unit;
{$R *.dfm}
procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
SQL :string;
begin
SQL :='SELECT * FROM [User] WHERE UserID='
+Quotedstr(edtUserID.Text) + ' AND UserPassword=' + Quotedstr(edtUserPwd.Text);
if SQLSearch(SQL,DM.ADOConn) = False then
begin
Application.MessageBox('登錄信息錯誤,請重新登錄!','錯誤',16);
edtUserPwd.Text :='';
edtUserID.SetFocus;
Exit;
end
else
LoginUser := frmLogin.edtUserID.Text; //登錄后將登錄編號賦給全局變量
Self.Close;
end;
procedure TfrmLogin.btnExitClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
//回車換行
if Key = #13 then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key := #0;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -