unit7.pas

使用delphi编写的图书管理系统：实现查询

unit Unit7;

interface

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

type
  Ttsdj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tsdj: Ttsdj;

implementation

{$R *.dfm}

procedure Ttsdj.BitBtn2Click(Sender: TObject);
begin
close
end;

procedure Ttsdj.BitBtn1Click(Sender: TObject);
var a,b,c,d,e,f,g,h,j:string;
begin
a:=edit1.Text;
b:=edit2.Text;
c:=combobox1.Text;
d:=edit3.Text;
e:=combobox2.Text;
f:=datetostr(datetimepicker1.Date);
g:=edit4.Text;
h:=edit5.Text;
j:='在库';
if(a='')or(b='')or(c='')or(d='')or(e='') then
showmessage('请将图书信息输入完全!')
else
begin
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('insert tsbm');
    sql.Add('values(:an,:bn,:cn,:dn,:en,:fn,(convert(money,:gn)),:hn)');
    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;
    Parameters.ParamByName('gn').Value:=g;
    Parameters.ParamByName('hn').Value:=h;
    prepared;
    execsql;
    end;
    with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('insert tsjy');
    sql.Add('(sh,jcbz)');
    sql.Add('values(:an,:jn)');
    Parameters.ParamByName('an').Value:=a;
    Parameters.ParamByName('jn').Value:=j;
    prepared;
    execsql;
    end;
    edit1.Text:='';
    edit2.Text:='';
    combobox1.Text:='';
    edit3.Text:='';
    combobox2.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    showmessage('图书登记成功!');
 end;
end;

end.