?? passedit.pas
字號:
unit PassEdit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseNormal, StdCtrls, Buttons, ADODB;
type
TPassEditForm = class(TBaseNormalForm)
Edit1: TEdit;
Label1: TLabel;
bbOk: TBitBtn;
bbNo: TBitBtn;
procedure bbNoClick(Sender: TObject);
procedure bbOkClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FADOQryTmp: TADOQuery;
public
{ Public declarations }
end;
procedure ShowPassEditForm(ADOQryTmp: TADOQuery);
implementation
uses SysPublic;
{$R *.dfm}
procedure ShowPassEditForm(ADOQryTmp: TADOQuery);
var
PassEditForm: TPassEditForm;
begin
PassEditForm:= TPassEditForm.Create(Nil);
PassEditForm.FADOQryTmp:= ADOQryTmp;
PassEditForm.ShowModal;
end;
procedure TPassEditForm.bbNoClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TPassEditForm.bbOkClick(Sender: TObject);
begin
inherited;
try
FADOQryTmp.Edit;
FADOQryTmp.FieldByName('員工密碼').AsString := Trim(Edit1.Text);
FADOQryTmp.Post;
ShowMsg('密碼修改成功!');
Close;
except
end;
end;
procedure TPassEditForm.FormCreate(Sender: TObject);
begin
inherited;
bOperateLog:= False;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -