?? unit3.~pas
字號:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBTables, DB, Mask, DBCtrls, ADODB;
type
TForm3 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit10;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
var
h,k:string;
begin
with dm.ADOQuery2 do
begin
close;
SQL.Clear;
SQL.Add('select * from PW where PW.ID=:a');
parameters.ParamByName('a').Value:=Trim(Edit1.Text);
Open;
end;
h:=edit2.Text;
k:=edit3.Text;
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') then
begin
application.MessageBox('信息不完整!','錯誤操作',mb_ok);
exit;
end
else if h<>k then
begin
application.MessageBox('密碼不匹配!','錯誤操作',mb_ok);
exit;
end
else
if dm.ADOQuery2.Eof=false then
begin
ShowMessage('該用戶已經存在,請重新填寫');
Edit1.Clear
end
else
begin
with dm.adoquery3 do
begin
close;
sql.clear;
sql.add('insert into PW(ID,PW)values (:1,:2)');
parameters.parambyname('1').value:=''+Edit1.Text+'';
parameters.parambyname('2').value:=''+Edit2.Text+'';
execsql;
application.MessageBox('恭喜,注冊完成!','完成提示',mb_ok);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form3.Visible:=false;
Form1.show;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -