?? bm_loginu.pas
字號:
unit BM_LOGINU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls;
type
TBM_LOGINF = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;
edtPassword: TEdit;
edtAliasName: TEdit;
Panel2: TPanel;
btnOK: TSpeedButton;
btnCancel: TSpeedButton;
procedure btnOKClick(Sender: TObject);
procedure edtAliasNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure edtPasswordKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure btnCancelClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BM_LOGINF: TBM_LOGINF;
Logined: Boolean = false;
function LoginExecute(aFormClass: TFormClass): Boolean; //打開登錄窗口,并判斷是否登錄成功
implementation
uses BM_DMU, BM_OFICEU;
{$R *.dfm}
function LoginExecute(aFormClass: TFormClass): Boolean;
begin
with aFormClass.Create(Application) do
begin
Logined := False;
try
showModal;
finally
free;
end;
result := Logined;
end;
end;
procedure TBM_LOGINF.btnOKClick(Sender: TObject);
var
vLogined: variant;
sql2,bumen:string;
begin
with dm.User do
begin
Close ;
sql.Clear;
sql2:='select A.*,B.部門編碼,B.部門名稱 from 用戶權限 A,部門 B where A.用戶名稱= "';
sql2:=sql2+ edtAliasName.TEXT+'"'+' and A.密碼= "'+ edtPassword.Text +'"';
sql2:=sql2+ ' and A.部門=B.部門編碼';
sql.Add(sql2);
open;
if RecordCount> 0 then vLogined:=true
else vLogined:=false;
end;
if vLogined=false then
begin
Application.MessageBox('用戶名和密碼不正確,請重新輸入', '提示信息', mb_iconInformation + mb_defbutton1);
exit;
end
else
begin
BM_OFFICEF.StatusBar1.Panels[0].TEXT :='系統提示:' ;
BM_OFFICEF.StatusBar1.Panels[1].TEXT := '北明公司: '+dm.User.Fields[6].AsString+' 操作員: ' +dm.User.Fields[4].AsString ;
BM_OFFICEF.StatusBar1.Panels[2].TEXT := '登陸時間: '+FormatDateTime('YYYY"年" MMMM DD"日" TT',now);
end;
Logined := true;
Close;
end;
procedure TBM_LOGINF.edtAliasNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
edtPassword.setfocus;
end;
procedure TBM_LOGINF.edtPasswordKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
btnOK.click;
end;
procedure TBM_LOGINF.btnCancelClick(Sender: TObject);
begin
if Application.MessageBox('請確認是否退出本系統', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
application.Terminate ;
end;
procedure TBM_LOGINF.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
// canclose:=false;
//if Application.MessageBox('請確認是否退出本系統', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
// canclose:=true;
//application.Terminate ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -