unit6.pas

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

unit Unit6;

interface

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

type
  TFormghts = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Editsh: TEdit;
    Label2: TLabel;
    Editsm: TEdit;
    Label3: TLabel;
    Editzh: TEdit;
    Label4: TLabel;
    Editdz: TEdit;
    btnsx: TButton;
    DBGridgh: TDBGrid;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Editghsh: TEdit;
    Label6: TLabel;
    Editjszh: TEdit;
    btngh: TButton;
    btnfh: TButton;
    DataSourcegh: TDataSource;
    Querygh: TQuery;
    procedure btnsxClick(Sender: TObject);
    procedure DBGridghCellClick(Column: TColumn);
    procedure btnghClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formghts: TFormghts;

implementation

{$R *.dfm}

procedure TFormghts.btnsxClick(Sender: TObject);
var sxsh,sxsm,sxzh,sxdz,jc:string;

begin
  sxsh:=editsh.Text +'%';
  sxsm:=editsm.Text +'%';
  sxzh:=editzh.Text +'%';
  sxdz:=editdz.Text +'%';
  jc:='借出';
  with querygh 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:sxshname)and(tsbm.图书名称 like:sxsmname)and(dzmc.借书证号 like :sxzhname)and(dzmc.读者姓名 like :sxdzname)') ;
      sql.Add('order by tsbm.图书编号') ;
      parambyname('jcname').AsString :=jc;
      parambyname('sxshname').AsString :=sxsh;
      parambyname('sxsmname').AsString :=sxsm;
      parambyname('sxzhname').AsString :=sxzh;
      parambyname('sxdzname').AsString :=sxdz;
      prepare;
      open;
      end;
  editsh.Text :='';
  editsm.Text :='';
  editzh.Text :='';
  editdz.Text :='';

end;

procedure TFormghts.DBGridghCellClick(Column: TColumn);
begin
editghsh.Text :=dbgridgh.Fields[0].AsString ;
editjszh.Text :=dbgridgh.Fields [2].AsString ;
end;

procedure TFormghts.btnghClick(Sender: TObject);
var ghsh,ghzh,ghrq,ghbz,jc:string;
begin
  ghsh:=editghsh.Text ;
  ghzh:='';
  ghrq:='';
  ghbz:='在库';
  jc:='借出';
  with querygh do
    begin
      close;
      sql.Add('update tsjy');
      sql.Add('set 图书借出标志=:ghbzname,借书证号=:ghzhname,借出日期=:ghrqname');
      sql.Add('where 图书编号=:ghshname');
      parambyname('ghbzname').AsString :=ghbz;
      parambyname('ghzhname').AsString :=ghzh;
      parambyname('ghrqname').AsString :=ghrq;
      parambyname('ghshname').AsString :=ghsh;
      prepare;
      execsql;
      end;

  with querygh 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;
      editghsh.Text :='';
      editjszh.Text :='';

end;

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

end.