?? unit6.pas
字號:
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB;
type
Tdzdj = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ADOQuery1: TADOQuery;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dzdj: Tdzdj;
implementation
{$R *.dfm}
procedure Tdzdj.BitBtn2Click(Sender: TObject);
begin
close
end;
procedure Tdzdj.BitBtn1Click(Sender: TObject);
var a,b,c,d,e,f:string;
begin
a:=edit1.Text;
b:=edit2.Text;
c:=combobox1.Text;
d:=combobox2.Text;
e:=edit3.Text;
f:=edit4.Text;
if(a='')or(b='')or(c='')then
showmessage('請將讀者信息輸入完全!')
else
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert dzmc');
sql.Add('values(:an,:bn,:cn,:dn,:en,:fn');
Parameters.ParamByName('an').Value:=a;
Parameters.ParamByName('bn').Value:=b;
Parameters.ParamByName('cn').Value:=c;
Parameters.ParamByName('dn').Value:=d;
Parameters.ParamByName('en').Value:=e;
Parameters.ParamByName('fn').Value:=f;
prepared;
execsql;
end;
edit1.Text:='';
edit2.Text:='';
combobox1.Text:='';
edit3.Text:='';
combobox2.Text:='';
edit4.Text:='';
showmessage('讀者登記成功!');
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -