unit9.pas

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

unit Unit9;

interface

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

type
  TFormtszx = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Editsh: TEdit;
    Editsm: TEdit;
    Editlb: TEdit;
    Editzz: TEdit;
    Editcbs: TEdit;
    btnsx: TButton;
    DBGridtszx: TDBGrid;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Editzxsh: TEdit;
    Label7: TLabel;
    Editzxsm: TEdit;
    Label8: TLabel;
    Editzxzz: TEdit;
    btnzx: TButton;
    btnfh: TButton;
    DataSourcetszx: TDataSource;
    Querytszx: TQuery;
    procedure btnsxClick(Sender: TObject);
    procedure DBGridtszxCellClick(Column: TColumn);
    procedure btnzxClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formtszx: TFormtszx;

implementation

{$R *.dfm}

procedure TFormtszx.btnsxClick(Sender: TObject);
var sxsh,sxsm,sxlb,sxzz,sxcbs,zk:string;
begin
sxsh:=editsh.Text +'%';
sxsm:=editsm.Text +'%';
sxlb:=editlb.Text +'%';
sxzz:=editzz.Text +'%';
sxcbs:=editcbs.Text +'%';
zk:='在库';
  with querytszx do
    begin
       close;
       sql.Clear ;
       sql.Add('select tsbm.图书编号,tsbm.图书名称,tsbm.图书类别,tsbm.作者姓名,tsbm.出版社');
       sql.Add('from tsbm,tsjy') ;
       sql.Add('where (tsbm.图书编号=tsjy.图书编号) and (tsjy.图书借出标志=:zkname)and (tsbm.图书编号 like :sxshname)and(tsbm.图书名称 like :sxsmname)and (tsbm.图书类别 like :sxlbname)and(tsbm.作者姓名 like :sxzzname)and(tsbm.出版社 like :sxcbsname)') ;
       sql.Add('order by tsbm.图书编号');
       parambyname('zkname').AsString :=zk;
       parambyname('sxshname').AsString :=sxsh;
       parambyname('sxsmname').AsString :=sxsm;
       parambyname('sxlbname').AsString :=sxlb;
       parambyname('sxzzname').AsString :=sxzz;
       parambyname('sxcbsname').AsString :=sxcbs;
       prepare;
       open;
       end;
  editsh.Text :='';
  editsm.Text :='';
  editlb.Text :='';
  editzz.Text :='';
  editcbs.Text :='';
  

end;

procedure TFormtszx.DBGridtszxCellClick(Column: TColumn);
begin
editzxsh.Text :=dbgridtszx.Fields [0].AsString ;
editzxsm.Text :=dbgridtszx.Fields [1].AsString ;
editzxzz.Text :=dbgridtszx.Fields [3].AsString ;
end;

procedure TFormtszx.btnzxClick(Sender: TObject);
var zxsh,zk:string;
    zxqr:integer;
begin
  zxsh:=editzxsh.Text ;
  zk:='在库';
  zxqr:=messagedlg('确实要注销该图书吗?',mtconfirmation,[mbyes,mbno],0);
  if zxqr=mryes then
   begin
    with querytszx do
      begin
        close;
        sql.Clear ;
        sql.Add('delete tsbm');
        sql.Add('where 图书编号=:zxshname');
        parambyname('zxshname').AsString :=zxsh;
        prepare;
        execsql;
    end;
    with querytszx do
      begin
        close;
        sql.Clear;
        sql.Add('delete tsjy');
        sql.Add('where 图书编号=:zxshname');
        parambyname('zxshname').AsString :=zxsh;
        prepare;
        execsql;
    end;
     with querytszx do
    begin
       close;
       sql.Clear ;
       sql.Add('select tsbm.图书编号,tsbm.图书名称,tsbm.图书类别,tsbm.作者姓名,tsbm.出版社');
       sql.Add('from tsbm,tsjy') ;
       sql.Add('where (tsbm.图书编号=tsjy.图书编号) and (tsjy.图书借出标志=:zkname)');
       sql.Add('order by tsbm.图书编号');
       parambyname('zkname').AsString :=zk;
       prepare;
       open;
       end;
    end;
   editzxsh.Text :='';
   editzxsm.Text :='';
   editzxzz.Text :='';


end;

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

end.