procedure TForm2.Button1Click(Sender: TObject);
var
sql,key : string;
begin
if edit1.Text<>'' then
begin
key:=trim(edit1.Text);
sql:='Where 书名 like ''%'+key+'%''';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from book_store ');
query1.SQL.Add(sql);
query1.Open;
label7.Caption:=inttostr(query1.RecNo);
end
else
begin
messageDlg('请正确输入书名',mtInformation,mbOkCancel,0);
edit1.SetFocus;
end;
end;