unit7.pas

图书管理系统的简单制作

unit Unit7;

interface

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

type
  TFormtsdj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Editsh: TEdit;
    Editsm: TEdit;
    ComboBoxlb: TComboBox;
    Editzz: TEdit;
    ComboBoxcbs: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Editdj: TEdit;
    Editbz: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formtsdj: TFormtsdj;

implementation

{$R *.dfm}

procedure TFormtsdj.Button1Click(Sender: TObject);
var djsh,djsm,djlb,djzz,djcbs,djcbrq,djdj,djbz,zk:string;
begin
  djsh:=editsh.Text;
  djsm:=editsm.Text;
  djlb:=comboboxlb.Text;
  djzz:=editzz.Text;
  djcbs:=comboboxcbs.Text;djcbrq:=datetostr(datetimepicker1.Date);
  djdj:=editdj.Text;
  djbz:=editbz.Text;
  zk:='在库';
  if(djsh='')or(djsm='')or(djlb='')or(djcbs='')then
   showmessage('请将登记图书信息输入完全！')
   else
    begin
    with ADOQuery1 do
    begin
    close;
    sql.Clear;
    sql.Add('insert into tsbm');
    sql.Add('values(:djshname,:djsmname,:djlbname,:djzzname,:djcbsname,:djcbrqname,:djdjname,:djbzname)');
    parameters.ParamByName('djshname').Value:=djsh;
    parameters.ParamByName('djsmname').Value:=djsm;
    parameters.ParamByName('djlbname').Value:=djlb;
    parameters.ParamByName('djzzname').Value:=djzz;
    parameters.ParamByName('djcbsname').Value:=djcbs;
    parameters.ParamByName('djcbrqname').Value:=djcbrq;
    parameters.ParamByName('djdjname').Value:=djdj;
    parameters.ParamByName('djbzname').Value:=djbz;
    prepared;
    execsql;
    end;
    with ADOQuery1 do
    begin
     close;
     sql.Clear;
     sql.Add('insert into tsjy');
     sql.Add('(sh,jcbz)');
     sql.Add('values(:djshname,:zkname)');
     parameters.ParamByName('djshname').Value:=djsh;
     parameters.ParamByName('zkname').Value:=zk;
     prepared;
     execsql;
     end;
   editsh.Text:='';
   editsm.Text:='';
   comboboxlb.Text:='';
   editzz.Text:='';
   comboboxcbs.Text:='';
   editdj.Text:='';
   editbz.Text:='';
   showmessage('图书登记成功！');
   end;
end;

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

end.