unit4.pas

是用DELPHI编写的图书管理系统

unit Unit4;

interface

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

type
  TFormjccx = class(TForm)
    Panel1: TPanel;
    DBGridjccx: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBoxgjz: TComboBox;
    Label2: TLabel;
    Editgjz: TEdit;
    btncx: TButton;
    btnfh: TButton;
    DataSourcejccx: TDataSource;
    Queryjccx: TQuery;
    procedure btncxClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
    procedure ComboBoxgjzChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formjccx: TFormjccx;

implementation

{$R *.dfm}

procedure TFormjccx.btncxClick(Sender: TObject);
 var gjz,gjzsz,jc,zk:string;
begin
gjz:=comboboxgjz.Text ;
gjzsz:=editgjz.Text ;
jc:='借出';
zk:='在库';
if(gjz=' ')and(gjzsz=' ') then
  with queryjccx do
     begin
     close;
     sql.Clear ;
     sql.Add('select tsbm.图书编号,tsbm.图书名称,dzmc.借书证号,dzmc.读者姓名,tsjy.借出日期');
     sql.Add('from tsbm,dzmc,tsjy');
     sql.Add('where (tsbm.图书编号=tsjy.图书编号)and(dzmc.借书证号=tsjy.借书证号)and(tsjy.图书借出标志=:jcname )') ;
     sql.Add('order by tsbm.图书编号');
     parambyname('jcname').AsString :=jc;
     prepare;
     open;
     end
  else if(gjz<>'')and(gjzsz='') then
     showmessage('请输入“查询关键字设置”信息!!!' )
  else if(gjz='')and(gjzsz<>'') then
     showmessage('请输入“查询关键字选择”信息!!!' )
 else
  begin
   gjzsz:=gjzsz+'%';
 if gjz='图书编号' then
   with queryjccx do
   begin
     close;
     sql.Clear ;
     sql.Add('select tsbm.图书编号,tsbm.图书名称,dzmc.借书证号,dzmc.读者姓名,tsjy.借出日期');
     sql.Add('from tsbm,dzmc,tsjy');
     sql.Add('where (tsbm.图书编号=tsjy.图书编号)and(dzmc.借书证号=tsjy.借书证号)and(tsjy.图书借出标志=:jcname )and (tsbm.图书编号 like:gjzszname)') ;
     sql.Add('order by tsbm.图书编号');
     parambyname('jcname').AsString :=jc;
     parambyname('gjzszname').AsString :=gjzsz;
     prepare;
     open;
     end
 else if gjz='图书名称' then
   with queryjccx do
   begin
     close;
     sql.Clear ;
     sql.Add('select tsbm.图书编号,tsbm.图书名称,dzmc.借书证号,dzmc.读者姓名,tsjy.借出日期');
     sql.Add('from tsbm,dzmc,tsjy');
     sql.Add('where (tsbm.图书编号=tsjy.图书编号)and(dzmc.借书证号=tsjy.借书证号)and(tsjy.图书借出标志=:jcname )and (tsbm.图书名称 like:gjzszname)') ;
     sql.Add('order by tsbm.图书编号');
     parambyname('jcname').AsString :=jc;
     parambyname('gjzszname').AsString :=gjzsz;
     prepare;
     open;
     end
 else if gjz='借书证号' then
   with queryjccx do
   begin
     close;
     sql.Clear ;
     sql.Add('select tsbm.图书编号,tsbm.图书名称,dzmc.借书证号,dzmc.读者姓名,tsjy.借出日期');
     sql.Add('from tsbm,dzmc,tsjy');
     sql.Add('where (tsbm.图书编号=tsjy.图书编号)and(dzmc.借书证号=tsjy.借书证号)and(tsjy.图书借出标志=:jcname )and (dzmc.借书证号 like:gjzszname)') ;
     sql.Add('order by tsbm.图书编号');
     parambyname('jcname').AsString :=jc;
     parambyname('gjzszname').AsString :=gjzsz;
     prepare;
     open;
     end
 else if gjz='读者姓名' then
   with queryjccx do
   begin
     close;
     sql.Clear ;
     sql.Add('select tsbm.图书编号,tsbm.图书名称,dzmc.借书证号,dzmc.读者姓名,tsjy.借出日期');
     sql.Add('from tsbm,dzmc,tsjy');
     sql.Add('where (tsbm.图书编号=tsjy.图书编号)and(dzmc.借书证号=tsjy.借书证号)and(tsjy.图书借出标志=:jcname )and (dzmc.读者姓名 like:gjzszname)') ;
     sql.Add('order by tsbm.图书编号');
     parambyname('jcname').AsString :=jc;
     parambyname('gjzszname').AsString :=gjzsz;
     prepare;
     open;
     end ;
     end;

end;

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

procedure TFormjccx.ComboBoxgjzChange(Sender: TObject);
begin
editgjz.Text :='';
end;

end.