unit8.~pas

图书管理系统的简单制作

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TFormdzdj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Editjszh: TEdit;
    Editxm: TEdit;
    Editdw: TEdit;
    Editbz: TEdit;
    ComboBoxxb: TComboBox;
    ComboBoxzy: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdzdj: TFormdzdj;

implementation

{$R *.dfm}

procedure TFormdzdj.Button1Click(Sender: TObject);
var
djjszh,djxm,djxb,djzy,djdw,djbz:string;
begin
   djjszh:=editjszh.Text;
   djxm:=editxm.Text;
   djxb:=comboboxxb.Text;
   djzy:=comboboxzy.Text;
   djdw:=editdw.Text;
   djbz:=editbz.Text;
   if(djjszh='')or(djxm='')or(djxb='')then
   showmessage('请将登记读者的信息输入完全！')
   else
    begin
      with ADOQuery1 do
       begin
       close;
       sql.Clear;
       sql.Add('insert into dzmc');
       sql.Add('values(:djjszhname,:djxmname,:djxbname,:djzyname,:djdwname,:djbzname)');
       parameters.ParamByName('djjszhname').Value:=djjszh;
       parameters.ParamByName('djxmname').Value:=djxm;
       parameters.ParamByName('djxbname').Value:=djxb;
       parameters.ParamByName('djzyname').Value:=djzy;
       parameters.ParamByName('djdwname').Value:=djdw;
       parameters.ParamByName('djbzname').Value:=djbz;
       prepared;
       execsql;
       end;
       editjszh.Text:='';
       editxm.Text:='';
       comboboxxb.Text:='';
       comboboxzy.Text:='';
       editdw.Text:='';
       editbz.Text:='';
       showmessage('读者登记成功！');
       end;
end;

procedure TFormdzdj.Button2Click(Sender: TObject);
begin
close;
end;

end.