unit6.~pas

图书管理系统的简单制作

unit Unit6;

interface

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

type
  TFormghts = class(TForm)
    Panel1: TPanel;
    DBGridgh: TDBGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Editghsh: TEdit;
    Editjszh: TEdit;
    Editsh: TEdit;
    Editsm: TEdit;
    Editzh: TEdit;
    Editdz: TEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuerygh: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure DBGridghCellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formghts: TFormghts;

implementation

{$R *.dfm}

procedure TFormghts.Button1Click(Sender: TObject);
var
sxsh,sxsm,sxzh,sxdz,jc:string;
begin
    sxsh:=editsh.Text+'%';
    sxsm:=editsm.Text+'%';
    sxzh:=editzh.Text+'%';
    sxdz:=editsh.Text+'%';
    jc:='借出';
    with ADOQuerygh do
      begin
         close;
         sql.Clear;
         sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
         sql.Add('from tsbm,dzmc,tsjy');
         sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)and(tsbm.sh like:sxshname)and(tsbm.sm like:sxsmname)and(dzmc.jszh like:sxzhname)and(dzmc.xm like:sxdzname)');
         sql.Add('order by tsbm.sh');
         parameters.ParamByName('jcname').Value:=jc;
         parameters.ParamByName('sxshname').Value:=sxsh;
         parameters.ParamByName('sxsmname').Value:=sxsm;
         parameters.ParamByName('sxzhname').Value:=sxzh;
         parameters.ParamByName('sxdzname').Value:=sxdz;
         prepared;
         open;
         end;
         editsh.Text:='';
         editsm.Text:='';
         editzh.Text:='';
         editdz.Text:='';

end;

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

procedure TFormghts.Button2Click(Sender: TObject);
var
ghsh,ghzh,ghrq,ghbz,jc:string;
begin
    ghsh:=editghsh.Text;
    ghzh:='';
    ghrq:='';
    ghbz:='在库';
    jc:='借出';
    with ADOQuerygh do
      begin
      close;
      sql.Clear;
      sql.Add('update tsjy');
      sql.Add('set jcbz=:ghbzname,jszh=:ghzhname,jcrq=:ghrqname');
      sql.Add('where sh=:ghshname');
      parameters.ParamByName('ghbzname').Value:=ghbz;
      parameters.ParamByName('ghzhname').Value:=ghzh;
      parameters.ParamByName('ghrqname').Value:=ghrq;
      parameters.ParamByName('ghshname').Value:=ghsh;
      prepared;
      execsql;
      end;
    with ADOQuerygh do
      begin
       close;
      sql.Clear;
      sql.Add('select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq');
      sql.Add('from tsbm,dzmc,tsjy');
      sql.Add('where(tsbm.sh=tsjy.sh)and(dzmc.jszh=tsjy.jszh)and(tsjy.jcbz=:jcname)');
      sql.Add('order by tsbm.sh');
      parameters.ParamByName('jcname').Value:=jc;
      prepared;
      open;
      end;
    editghsh.Text:='';
    editjszh.Text:='';  
end;

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

end.