www.pudn.com > libraryborrowSystem.rar > Unit7.pas

unit Unit7; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls, DBCtrls; 
 
type 
  TQueryForm = class(TForm) 
    Query1: TQuery; 
    DataSource1: TDataSource; 
    Edit1: TEdit; 
    GroupBox1: TGroupBox; 
    DBGrid1: TDBGrid; 
    DBNavigator1: TDBNavigator; 
    Label1: TLabel; 
    Label2: TLabel; 
    Edit2: TEdit; 
    Button1: TButton; 
    Button2: TButton; 
    Button3: TButton; 
    Button4: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  QueryForm: TQueryForm; 
 
implementation 
 
uses Unit8; 
 
{$R *.dfm} 
 
procedure TQueryForm.Button1Click(Sender: TObject); 
var 
    sqlstr:String; 
begin 
    if Edit1.Text=''then 
       ShowMessage('无输入，请输入查询要') 
       else 
begin 
     sqlstr:='select * from  图书 where Bname ='''+Edit1.Text+'''';//准确查询 
     Query1.SQL.Clear; 
     Query1.SQL.Add(sqlstr); 
     Query1.ExecSQL; 
     Query1.Open; 
     Edit1.Text:=''; 
end; 
end; 
 
procedure TQueryForm.Button2Click(Sender: TObject); 
var 
   sqlstr:string; 
begin 
if Edit2.Text=''then 
    ShowMessage('无输入，请输入要查询的作者') 
    else 
begin 
    sqlstr:='select * from 图书  where Bwriter='''+Edit2.Text+''''; 
    Query1.SQL.Clear; 
     Query1.SQL.Add(sqlstr); 
     Query1.ExecSQL; 
    Query1.Open; 
     Edit2.Text:=''; 
 
end; 
end; 
 
procedure TQueryForm.Button4Click(Sender: TObject); 
begin 
QueryForm.Close; 
end; 
 
procedure TQueryForm.Button3Click(Sender: TObject); 
begin 
BorrowForm.show; 
end; 
 
end.