?? managerunit.~pas
字號:
unit managerunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, Buttons,Db;
type
Tmanagerfrm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
managerfrm: Tmanagerfrm;
implementation
uses datamoduleUnit;
{$R *.dfm}
procedure Tmanagerfrm.SpeedButton1Click(Sender: TObject);
begin
with datamodule2 do
begin
if ADSid.Locate('username',edit1.Text,[loPartialKey]) then
if edit2.Text=ADSid.Lookup('username',edit1.Text,'password') then
begin
with ADSid do
begin
ADSid.Edit;
if edit3.Text=edit4.Text then
begin
fieldbyname('password').AsString:=edit3.Text;
ADSid.Post ;
ADSid.Refresh;
showmessage('密碼修改成功!')
end
else showmessage('確認錯誤!');
end; //with
end//if
else showmessage('密碼輸入錯誤!');
end;//with
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
managerfrm.Close;
end;
procedure Tmanagerfrm.SpeedButton2Click(Sender: TObject);
begin
with datamodule2.ADSid do
begin
insert;
FieldByName('username').AsString:=edit1.Text;
FieldByName('password').AsString:=edit3.Text;
post;
refresh;
end;
showmessage('注冊成功!');
managerfrm.Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -