bookeditqueryu.pas

图书管理系统

unit BookEditQueryU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TBookEditQueryF = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    BtnSearch: TBitBtn;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    BitBtn1: TBitBtn;
    StaticText1: TStaticText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnSearchClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BookEditQueryF: TBookEditQueryF;

implementation

uses  DataModule;
{$R *.dfm}

procedure TBookEditQueryF.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  BookEditQueryF:=nil;
  Action:=caFree;
end;

procedure TBookEditQueryF.BtnSearchClick(Sender: TObject);
var
  str:string;
begin
    case combobox1.ItemIndex of    //过滤的条件字段
        0 : begin
          str:='BookId';
        end;
        1 : begin
           str:='BookName';
        end;
        2 : begin
            str:='BookAuthor';
        end;
        3 : begin
           str:='BookMan';
        end;
        4 : begin
           str:='BookType';
        end;
     end;
     if edit1.Text<>'' then   //为空则检索所有记录
     begin
       if checkbox1.Checked then      //模糊过滤
          dm.ADODataSetBookEdit.Filter:=str+ ' like ' + quotedstr(trim('%'+edit1.Text+'%'))
       else                           //过滤
          dm.ADODataSetBookEdit.Filter:=str+ ' = ' + quotedstr(trim(edit1.Text));
       dm.ADODataSetBookEdit.Filtered:=true;
     end
     else
        dm.ADODataSetBookEdit.Filtered:=false;
end;

procedure TBookEditQueryF.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then BtnSearch.Click;
end;

procedure TBookEditQueryF.FormShow(Sender: TObject);
begin
  combobox1.ItemIndex:=0;       //开始下拉框为BOOKID字段
end;

procedure TBookEditQueryF.BitBtn1Click(Sender: TObject);
begin
  BookEditQueryF.Close;
end;

end.