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.