unit14.pas

高校图书管理系统采用Delphi结合数据库

unit Unit14;

interface

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

type
  Tfrm_pjpy = class(TForm)
    RadioGroup3: TRadioGroup;
    Button2: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    procedure RadioGroup3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_pjpy: Tfrm_pjpy;

implementation

{$R *.dfm}

procedure Tfrm_pjpy.RadioGroup3Click(Sender: TObject);
begin
 if radiogroup3.ItemIndex=0 then
 begin
  ComboBox1.Enabled :=true;
  ComboBox2.Enabled :=false;
  end
  else
     begin
  ComboBox1.Enabled :=false;
  ComboBox2.Enabled :=true;
  end;
end;

procedure Tfrm_pjpy.Button2Click(Sender: TObject);
begin
if radiogroup3.ItemIndex=0 then
 begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from xscjb.db');
if combobox1.Text ='' then exit;
query1.SQL.Add(' where 备注='+#39+combobox1.Text+#39);
 end
else
   begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from jsb.db');
  if combobox2.Text ='' then exit;
  query1.SQL.Add(' where 教师职称='+#39+combobox2.Text+#39);
 end;
 query1.Open ;

end;

procedure Tfrm_pjpy.Button1Click(Sender: TObject);
begin
frm_pjpy.Close;
end;

end.