unit9.~pas

图书管理系统的简单制作

unit Unit9;

interface

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

type
  TFormtszx = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Editsh: TEdit;
    Editsm: TEdit;
    Editlb: TEdit;
    Editzz: TEdit;
    Editcbs: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Editzxsh: TEdit;
    Editzxsm: TEdit;
    Label8: TLabel;
    Editzxzz: TEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuerytszx: TADOQuery;
    DBGridtszx: TDBGrid;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGridtszxCellClick(Column: TColumn);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formtszx: TFormtszx;

implementation

{$R *.dfm}

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

procedure TFormtszx.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 ADOQuerytszx 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 TFormtszx.Button2Click(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 ADOQuerytszx do
     begin
      close;
      sql.Clear;
      sql.Add('delete from tsbm');
      sql.Add('where sh=:zxshname');
      parameters.ParamByName('zxshname').Value:=zxsh;
      prepared;
      execsql;
      end;
     with ADOQuerytszx do
      begin
      close;
      sql.Clear;
      sql.Add('delete from tsjy');
      sql.Add('where sh=:zxshname');
      parameters.ParamByName('zxshname').Value:=zxsh;
      prepared;
      execsql;
      end;
     with ADOQuerytszx 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;
      end;
      editzxsh.Text:='';
      editzxsm.Text:='';
      editzxzz.Text:='';   

end;

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

end.