unit5.~pas

图书管理系统的简单制作

unit Unit5;

interface

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

type
  TFormcjts = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Editcjsh: TEdit;
    Editjszh: TEdit;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Editsh: TEdit;
    Editsm: TEdit;
    Editlb: TEdit;
    Editzz: TEdit;
    Editcbs: TEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuerycj: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcjts: TFormcjts;

implementation

{$R *.dfm}

procedure TFormcjts.Button1Click(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 ADOQuerycj do
   begin
   close;
   sql.Clear;
   sql.Add('select tsbm.sh,tsbm.sm,tsbm.lb,tsbm.zz,tsbm.cbs');
   sql.Add('from tsbm,tsjy');
   sql.Add('where(tsbm.sh=tsjy.sh)and(tsjy.jcbz=:zkname)and(tsbm.sh like:sxshname)and(tsbm.sm like:sxsmname)and(tsbm.lb like:sxlbname)and(tsbm.zz like:sxzzname)and(tsbm.cbs like:sxcbsname)');
   sql.Add('order by tsbm.sh');
   parameters.ParamByName('zkname').Value:=zk;
   parameters.ParamByName('sxshname').Value:=sxsh;
   parameters.ParamByName('sxsmname').Value:=sxsm;
   parameters.ParamByName('sxlbname').Value:=sxlb;
   parameters.ParamByName('sxzzname').Value:=sxzz;
   parameters.ParamByName('sxcbsname').Value:=sxcbs;
   prepared;
   open;
   end;
   editsh.Text:='';
   editsm.Text:='';
   editlb.Text:='';
   editzz.Text:='';
   editcbs.Text:='';
   end;

procedure TFormcjts.DBGrid1CellClick(Column: TColumn);
begin
    editcjsh.Text:=dbgrid1.Fields[0].Value;
end;

procedure TFormcjts.Button2Click(Sender: TObject);
var
cjsh,cjjszh,cjrq,cjbz,zk:string;
begin
 cjsh:=editcjsh.Text;
 cjjszh:=editjszh.Text;
 cjrq:=datetostr(datetimepicker1.date);
 cjbz:='借出';
 zk:='在库';
 with ADOQuerycj do
  begin
     close;
     sql.Clear;
     sql.Add('update tsjy');
     sql.Add('set jcbz=:cjbzname,jszh=:cjjszhname,jcrq=:cjrqname');
     sql.Add('where sh=:cjshname');
     parameters.ParamByName('cjbzname').Value:=cjbz;
     parameters.ParamByName('cjjszhname').Value:=cjjszh;
     parameters.ParamByName('cjrqname').Value:=cjrq;
     parameters.ParamByName('cjshname').Value:=cjsh;
     prepared;
     execsql;
     end;
   with ADOQuerycj do
  begin
     close;
     sql.Clear;
     sql.Add('select tsbm.sh,tsbm.sm,tsbm.lb,tsbm.zz,tsbm.cbs');
     sql.Add('from tsbm, tsjy');
     sql.Add('where(tsbm.sh=tsjy.sh)and(tsjy.jcbz=:zkname)');
     sql.Add('order by tsbm.sh');
     parameters.ParamByName('zkname').Value:=zk;
     prepared;
     open;
     end;
     editcjsh.Text:='';
     editjszh.Text:='';
end;

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

end.