unit2.pas

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

unit Unit2;

interface

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

type
  Tdzcx = 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 BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dzcx: Tdzcx;

implementation

{$R *.dfm}

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



procedure Tdzcx.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 dzmc order by jszh');
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 dzmc where jszh like :name order by jszh');
     Parameters.ParamByName('name').Value:=gz;
     Prepared;
     Open;
     end
    else
    if g='姓名' then
     with adoquery1 do
      begin
      Close;
      SQL.Clear;
      SQL.Add('select * from dzmc where xm like :name order by jszh');
      Parameters.ParamByName('name').Value:=gz;
      Prepared;
      Open;
      end
     else
      if g='性别' then
       with adoquery1 do
        begin
        Close;
        SQL.Clear;
        SQL.Add('select * from dzmc where xb like :name order by jszh');
        Parameters.ParamByName('name').Value:=gz;
        Prepared;
        Open;
         end
      else
        if g='职业' then
         with adoquery1 do
          begin
           Close;
           SQL.Clear;
           SQL.Add('select * from dzmc where zy like :name order by jszh');
           Parameters.ParamByName('name').Value:=gz;
           Prepared;
           Open;
          end
      else
        if g='单位' then
         with adoquery1 do
         begin
         Close;
         SQL.Clear;
         SQL.Add('select * from dzmc where dw like :name order by jszh');
         Parameters.ParamByName('name').value:=gz;
         Prepared;
         Open;
         end
   end;

end;

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

end.