?? password.pas
字號:
unit Password;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, ADODB, Db;
type
TGetPass = class(TForm)
EditCode: TEdit;
EditName: TEdit;
EditPassword: TEdit;
BitBtnOk: TBitBtn;
BitBtnCancel: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Bevel2: TBevel;
ADOTablePassword: TADOTable;
procedure EditPasswordChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtnOkClick(Sender: TObject);
procedure BitBtnCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure EditCodeChange(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GetPass: TGetPass;
implementation
uses PDataModuleMain, PPublic;
{$R *.DFM}
procedure TGetPass.EditPasswordChange(Sender: TObject);
begin
BitBtnOk.Enabled := ADOTablePassword.Active and (trim(ADOTablePassword.FindField('AMCode').AsString) = EditCode.Text) and
(trim(ADOTablePassword.FindField('AMPassword').AsString)=EditPassword.Text);
if BitBtnOk.Enabled then
BitBtnOk.SetFocus;
end;
procedure TGetPass.FormShow(Sender: TObject);
begin
try
ADOTablePassword.Connection:=DataModuleMain.ADOConnectionBarCode;
ADOTablePassword.TableName:='Users';
ADOTablePassword.Open;
except
Application.MessageBox('錯誤','錯誤',MB_OKCANCEL);
Application.Terminate;
end;
end;
procedure TGetPass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOTablePassword.Close;
end;
procedure TGetPass.BitBtnOkClick(Sender: TObject);
begin
UserCode:=EditCode.Text;
UserName:=EditName.Text;
ADOTablePassword.Close;
end;
procedure TGetPass.BitBtnCancelClick(Sender: TObject);
begin
ADOTablePassword.Close;
Close;
end;
procedure TGetPass.FormCreate(Sender: TObject);
begin
UserCode:='';
end;
procedure TGetPass.EditCodeChange(Sender: TObject);
begin
ADOTablePassword.Filter := ' AMCode= ''' + EditCode.Text+'''';
if not ADOTablePassword.Eof then
EditName.Text := ADOTablePassword.FindField('AMName').AsString
else
EditName.Text := '';
BitBtnOk.Enabled := ADOTablePassword.Active and (trim(ADOTablePassword.FindField('AMCode').AsString) = EditCode.Text) and
(trim(ADOTablePassword.FindField('AMPassword').AsString)=EditPassword.Text);
end;
procedure TGetPass.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
SelectNext(ActiveControl,True,True);
Key:=#0;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -