unit4.~pas

图书管理系统的简单制作

unit Unit4;

interface

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

type
  TFormjccx = class(TForm)
    Panel1: TPanel;
    DBGridjccx: TDBGrid;
    GroupBoxgjz: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBoxgjz: TComboBox;
    Editgjz: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQueryjccx: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formjccx: TFormjccx;

implementation

{$R *.dfm}

procedure TFormjccx.Button1Click(Sender: TObject);
var
gjz,gjzsz,jc,zk:string;
begin
gjz:=comboboxgjz.Text;
   gjzsz:=editgjz.Text;
   jc:='借出';
   zk:='在库';
    if(gjz='')and(gjzsz='')then
      with adoqueryjccx do
      begin
      close;
      sql.Clear;
      sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
      sql.Add('from tsbm,dzmc,tsjy');
      sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)');
      sql.Add('order by tsbm.sh');
      parameters.ParamByName('jcname').Value:=jc;
      prepared;
      open;
      end
    else if (gjz<>'')and(gjzsz='')then
   showmessage('请输入''查询关键字设置''信息!')
else if (gjz='')and(gjzsz<>'')then
   showmessage('请选择''查询关键字选择''信息!')
 else
  begin
    if gjz='图书编号'then
      with adoQueryjccx do
       begin
       close;
       sql.Clear;
       sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
       sql.Add('from tsbm,dzmc,tsjy');
       sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)and(tsbm.sh like :gjzszname)');
       sql.Add('order by tsbm.sh');
  parameters.ParamByName('jcname').Value:=jc;
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end
  else  if gjz='图书名称'then
      with adoQueryjccx do
       begin
       close;
       sql.Clear;
       sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
       sql.Add('from tsbm,dzmc,tsjy');
       sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)and(tsbm.sm like :gjzszname)');
       sql.Add('order by tsbm.sh');
  parameters.ParamByName('jcname').Value:=jc;
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end
 else if gjz='借书证号'then
      with adoQueryjccx do
       begin
       close;
       sql.Clear;
       sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
       sql.Add('from tsbm,dzmc,tsjy');
       sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)and(tsbm.jszh like :gjzszname)');
       sql.Add('order by tsbm.sh');
  parameters.ParamByName('jcname').Value:=jc;
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end
  else if gjz='读者姓名'then
      with adoQueryjccx do
       begin
       close;
       sql.Clear;
       sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
       sql.Add('from tsbm,dzmc,tsjy');
       sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)and(tsbm.xm like :gjzszname)');
       sql.Add('order by tsbm.sh');
  parameters.ParamByName('jcname').Value:=jc;
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end;
end;
end;

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

end.