unit4.~pas

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

unit Unit4;

interface

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

type
  Tfrm_xxcx = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_xxcx: Tfrm_xxcx;

implementation

{$R *.dfm}

procedure Tfrm_xxcx.ComboBox1Change(Sender: TObject);
var
   i:integer;
   newItem:string;
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from xsxxb.db');
   query1.Open;
   query1.First;
   combobox3.Clear;
 if   combobox1.Text='性别' then
  begin
    combobox3.Items.Add('男');
    combobox3.Items.Add('女');
    exit;
  end ;
for I:=0 to query1.RecordCount-1 do
  begin
    newItem:=query1.FieldValues[combobox1.Text];
    combobox3.Items.Add(newItem);
    query1.Next ;
  end;
end;
procedure Tfrm_xxcx.ComboBox4Change(Sender: TObject);
var
   i:integer;
   newItem:string;
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from xsxxb.db');
   query1.Open;
   query1.First;
   combobox6.Clear;
 if   combobox4.Text='性别' then
  begin
    combobox6.Items.Add('男');
    combobox6.Items.Add('女');
    exit;
  end ;
for I:=0 to query1.RecordCount-1 do
  begin
    newItem:=query1.FieldValues[combobox4.Text];
    combobox6.Items.Add(newItem);
    query1.Next ;
  end;
end;
procedure Tfrm_xxcx.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
 begin
   combobox4.ItemIndex :=0 ;
   combobox4Change(sender);
 end
else
   combobox4.ItemIndex :=-1;
end;
procedure Tfrm_xxcx.Button1Click(Sender: TObject);
var
  express,Express1, express2:string;
begin
   if combobox1.Text ='' then exit;
   if combobox1.Text ='出生年月' then
      express1:=combobox1.text+combobox2.text+' :dt1'
else
      Express1:=combobox1.text+combobox2.text+#39+combobox3.text+#39;
if checkbox1.Checked  then
 begin
   if combobox4.Text ='出生年月' then
     express2:=combobox4.text+ combobox5.text+' :dt2'
 else
     express2:=combobox4.text+combobox5.text+#39+combobox6.text+#39;
 if radiobutton1.Checked then
     express:=express1+' and '+express2
 else
     express:=express1+' or '+express2;
 end
else
      express:=express1;
query1.Close;
query1.sql.Clear;
query1.SQL.Add('select * from xsxxb.db');
query1.SQL.Add('where '+express);
if combobox1.Text='出生年月' then
begin
   query1.ParamByName('dt1').AsDate:=strtodate(combobox3.Text);
   query1.Prepare;
end;
if combobox4.Text='出生年月' then
begin
   query1.ParamByName('dt2').AsDate:=strtodate(combobox6.Text);
   query1.Prepare;
end;
   query1.Open;
end;
procedure Tfrm_xxcx.Button2Click(Sender: TObject);
begin
   close
end;

end.