?? login_unit.~pas
字號:
unit login_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, StdCtrls, TradeImage, LabelButton, MoveImageButton,
Menus, ComCtrls, ToolWin, ExtCtrls, DB, ADODB;
type
Tlogin = class(TTEMPLETF)
MIBtnOK: TMoveImgBtn;
lbBtnOK: TLabelBtn;
LabelBtn1: TLabelBtn;
TradeImg1: TTradeImg;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
qry: TADOQuery;
DataSource1: TDataSource;
procedure MIBtnOKClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure TradeImg1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
login: Tlogin;
implementation
uses data_unit,main_unit;
{$R *.dfm}
procedure Tlogin.MIBtnOKClick(Sender: TObject);
begin
inherited;
with qry do
begin
close;
sql.Clear ;
sql.add('select * from usremployee where id=:name and Password=:pw');
parameters.ParamByName('name').Value:=edit1.Text ;
parameters.ParamByName('pw').Value:=edit2.Text ;
open;
if recordcount=0 then
begin
application.messagebox('你輸入的用戶名或密碼不正確!','系統信息',mb_ok+mb_iconinformation);
edit1.Clear ;
edit2.Clear ;
exit;
end
else
begin
main_form.Edit1.Text:=inttostr(qry.fieldbyname('Permit').Value);
main_form.Edit2.Text:=Edit1.Text;
main_form.fcOutlookBar1fcShapeBtn2.Enabled:=true;
main_form.fcOutlookBar1fcShapeBtn3.Enabled:=true;
main_form.fcOutlookBar1fcShapeBtn4.Enabled:=true;
main_form.fcOutlookBar1OutlookList1.Items[0].Text:='用戶注銷';
login.close;
end;
end;
end;
procedure Tlogin.FormShow(Sender: TObject);
begin
inherited;
edit1.Clear ;
edit2.Clear ;
edit1.SetFocus ;
end;
procedure Tlogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if key=#13 then
begin
MIBtnOKClick(nil);
end;
end;
procedure Tlogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if key=#13 then
selectnext (activecontrol,true,true);
end;
procedure Tlogin.TradeImg1Click(Sender: TObject);
begin
inherited;
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -