unit1.~pas

使用delphi编写的图书管理系统：实现查询

unit Unit1;

interface

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

type
  Ttscx = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tscx: Ttscx;

implementation

{$R *.dfm}

procedure Ttscx.BitBtn2Click(Sender: TObject);
begin
close
end;

procedure Ttscx.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=''
end;

procedure Ttscx.BitBtn1Click(Sender: TObject);
var g,gz:string;
begin
g:=trim(combobox1.Text);
gz:=trim(edit1.Text);

if(g='')and(gz='')then
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from tsbm order by sh');
prepared;
open;
end
else
if(g<>'')and (gz='') then
showmessage('请输入"查询的关键字"信息！')
else
if (g='') and (gz<>'') then
showmessage('请选择"关键字设置"信息')
else
   begin
    gz:=gz+'%';
    if g='图书编号' then
     with adoquery1 do
     begin
     Close;
     SQL.Clear;
     SQL.Add('select * from tsbm where sh like :name order by sh');
     Parameters.ParamByName('name').Value:=gz;
     Prepared;
     Open;
     end
    else
    if g='图书名称' then
     with adoquery1 do
      begin
      Close;
      SQL.Clear;
      SQL.Add('select * from tsbm where sm like :name order by sh');
      Parameters.ParamByName('name').Value:=gz;
      Prepared;
      Open;
      end
     else
      if g='图书类别' then
       with adoquery1 do
        begin
        Close;
        SQL.Clear;
        SQL.Add('select * from tsbm where lb like :name order by sh');
        Parameters.ParamByName('name').Value:=gz;
        Prepared;
        Open;
         end
      else
        if g='作者姓名' then
         with adoquery1 do
          begin
           Close;
           SQL.Clear;
           SQL.Add('select * from tsbm where zz like :name order by sh');
           Parameters.ParamByName('name').Value:=gz;
           Prepared;
           Open;
          end
      else
        if g='出版社' then
         with adoquery1 do
         begin
         Close;
         SQL.Clear;
         SQL.Add('select * from tsbm where cbs like :name order by sh');
         Parameters.ParamByName('name').value:=gz;
         Prepared;
         Open;
         end
   end;

end;

end.