unit5.~pas

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

unit Unit5;

interface

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

type
  TFormcjts = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Editsh: TEdit;
    Editsm: TEdit;
    Editlb: TEdit;
    Editzz: TEdit;
    Editcbs: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    btnsx: TButton;
    DBGridcj: TDBGrid;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Editcjsh: TEdit;
    Label7: TLabel;
    Editjszh: TEdit;
    Label8: TLabel;
    btncj: TButton;
    btnfh: TButton;
    DataSourcecj: TDataSource;
    Querycj: TQuery;
    DateTimePicker1: TDateTimePicker;
    procedure btnsxClick(Sender: TObject);
    procedure DBGridcjCellClick(Column: TColumn);
    procedure btncjClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcjts: TFormcjts;

implementation

{$R *.dfm}

procedure TFormcjts.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 querycj 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 TFormcjts.DBGridcjCellClick(Column: TColumn);
begin
editcjsh.Text :=dbgridcj.Fields[0].AsString ;
end;

procedure TFormcjts.btncjClick(Sender: TObject);
var cjsh,cjjszh,cjrq,cjbz,zk:string;
begin
cjsh:=editcjsh.Text ;
cjjszh:=editjszh.Text ;
cjrq:=datetostr(datetimepicker1.Date );
cjbz:='借出';
zk:='在库';
with querycj do
  begin
    close;
    sql.Clear ;
    sql.Add('update tsjy');
    sql.Add('set 图书借出标志=:cjbzname,借书证号=:cjjszhname,借出日期=:cjrqname') ;
    sql.Add('where 图书编号=:cjshname');
    parambyname('cjbzname').AsString :=cjbz;
    parambyname('cjjszhname').AsString :=cjjszh;
    parambyname('cjrqname').AsString :=cjrq;
    parambyname('cjshname').AsString :=cjsh;
    prepare;
    execsql;
    end;
with querycj 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;

    editcjsh.Text :='';
    editjszh.Text :='';

end;

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

end.