user_find.pas

图书馆管理系统设计用delphi开发的系统

unit user_find;

interface

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

type
  Tfind = class(TForm)
    Panel3: TPanel;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    TabSheet2: TTabSheet;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    TabSheet3: TTabSheet;
    Label3: TLabel;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  find: Tfind;

implementation

uses module;

{$R *.dfm}

procedure Tfind.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tfind.BitBtn4Click(Sender: TObject);
begin
with DataModule1.user_findADOQuery2
do begin
close;
sql.clear;
sql.add('select * from books');
sql.add('where 类别 like'''+combobox1.Text+'%''');
open;
  if datamodule1.user_findADOQuery2.recordcount=0 then
 begin
   showmessage('没有这个记录') ;
 close;
   sql.Clear;
     sql.Add('select * from books');
     open;
       end;
end;
end;

procedure Tfind.BitBtn2Click(Sender: TObject);
begin
with DataModule1.user_findADOQuery2
do begin
close;
sql.clear;
sql.add('select * from books');
sql.add('where 书名 like'''+edit2.Text+'%''');
open;
   if datamodule1.user_findADOQuery2.recordcount=0 then
 begin
   showmessage('没有这个记录') ;
 close;
   sql.Clear;
     sql.Add('select * from books');
     open;
       end;
end;
end;

procedure Tfind.BitBtn1Click(Sender: TObject);
begin
with datamodule1.user_findADOQuery2
do begin
close;
sql.clear;
sql.add('select * from books');
sql.add('where 作者='''+edit1.text+'''');
open;
    if datamodule1.user_findADOQuery2.recordcount=0 then
 begin
   showmessage('没有这个记录') ;
 close;
   sql.Clear;
     sql.Add('select * from books');
     open;
       end;
end;
end;

end.