unit11.~pas

来自「大家可以看看还不错的管理系统」· ~PAS 代码 · 共 95 行

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    btnQuery: TButton;
    btnExit: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure btnExitClick(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
  var i : Integer;


implementation

{$R *.dfm}

procedure TForm11.btnExitClick(Sender: TObject);
begin
if  MessageBox ( handle,'您是否确定退出图书查询？','系统提示',MB_YESNO+MB_ICONQUESTION)=ID_YES then
form11.Close;
end;

procedure TForm11.btnQueryClick(Sender: TObject);
begin
  if(i=1)then
  begin
  with adoquery1 do
  begin
     close;
      with sql do
      begin
        clear;
        Add('select * from BOOKS where 书名 like '+#39+'%'+edit1.Text+'%'+#39 ) ;
        open;
       end;
     end;
   end
  else if(i=2) then
  begin
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from BOOKS where 作者 like '+#39+edit1.Text+'%'+#39 ) ;
    open;
   end;
  edit1.text:='';

    end;
   
  end ;


procedure TForm11.RadioButton1Click(Sender: TObject);
begin
   i:=1;
   label1.Caption := '请输入书名：';
   label1.Visible :=true;
   edit1.Visible :=true;
end;

procedure TForm11.RadioButton2Click(Sender: TObject);
begin
 begin
   i:=2;
   label1.Caption := '请输入作者的名字：';
   label1.Visible :=true;
   edit1.Visible :=true;
end;
end;

end.