findbook.pas

来自「图书馆管理系统设计用delphi开发的系统」· PAS 代码 · 共 103 行

unit findbook;

interface

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

type
  TfindbookForm5 = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    book: TEdit;
    writer: TEdit;
    lei: TEdit;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  findbookForm5: TfindbookForm5;

implementation

uses  module;

{$R *.dfm}

procedure TfindbookForm5.Button1Click(Sender: TObject);
begin
with datamodule1.bookADOQuery1 do
begin
 close;
   sql.Clear;
     sql.Add('select * from books');
   sql.Add(' where 书名 like'''+book.text+'%''');
   open;
   if datamodule1.bookADOQuery1.recordcount=0 then
   begin
    showmessage('没有这个记录') ;
 close;
   sql.Clear;
     sql.Add('select * from books');
     open;
     end;
  book.clear;


end
end ;

procedure TfindbookForm5.Button3Click(Sender: TObject);
begin
  with datamodule1.bookADOQuery1 do
begin
 close;
   sql.Clear;
     sql.Add('select * from books');
   sql.Add(' where 作者 like'''+writer.text+'%''');
   open;
    if datamodule1.bookADOQuery1.recordcount=0 then
  begin showmessage('没有这个记录') ;
 close;
   sql.Clear;
     sql.Add('select * from books');
     open; end;
   writer.Clear;
end;
     end;
procedure TfindbookForm5.Button2Click(Sender: TObject);
begin
    with datamodule1.bookADOQuery1 do
begin
 close;
   sql.Clear;
     sql.Add('select * from books');
   sql.Add(' where 类别='''+lei.text+'''');
   open;
    if datamodule1.bookADOQuery1.recordcount=0 then
 begin
   showmessage('没有这个记录') ;
 close;
   sql.Clear;
     sql.Add('select * from books');
     open;     end;
   lei.Clear;
end
end;

end.