unit BookFeeQueryUnit;

interface

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

type
  TfrmBookFeeQuery = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBookFeeQuery: TfrmBookFeeQuery;
  StudentFee:TADOQuery;
  DepartmentFee:TADOQuery;
  QueryDS:TADODataSet;
implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TfrmBookFeeQuery.BitBtn1Click(Sender: TObject);
begin
 close;
end;
//填充班級名到查詢值中
procedure TfrmBookFeeQuery.RadioButton1Click(Sender: TObject);
var
  i:integer;
begin
   Combobox1.Clear;
   Combobox1.Enabled:=true;
   StudentFee:=TADOQuery.Create(nil);
   with StudentFee do
   begin
     Connection:=frmDataModule.Connection;
     SQL.Clear;
     SQL.Add('select className from classes');
     open;
     for i:=0 to RecordCount-1 do
     begin
       ComboBox1.Items.Add(Fields[0].Value);
       Next;
     end;
   end;
   label1.Caption:='選擇查詢班級名';
end;
 //填充院系名到查詢值中
procedure TfrmBookFeeQuery.RadioButton2Click(Sender: TObject);
var
  i:integer;
begin
   Combobox1.Clear;
   Combobox1.Enabled:=true;
   DepartmentFee:=TADOQuery.Create(nil);
   with DepartmentFee do
   begin
     Connection:=frmDataModule.Connection;
     SQL.Clear;
     SQL.Add('select DepartmentName from Departments');
     open;
     for i:=0 to RecordCount-1 do
     begin
       ComboBox1.Items.Add(Fields[0].Value);
       Next;
     end;
   end;
   label1.Caption:='選擇查詢院系名';
end;
 //執行查詢
procedure TfrmBookFeeQuery.BitBtn2Click(Sender: TObject);
begin                 //執行查詢
  with QueryDS do
  begin
    close;
   // if Parameters.Count=0 then
    Parameters.Clear;
    Parameters.CreateParameter('@V',ftstring,pdinput,20,Combobox1.Text);
   // showmessage(Parameters[0].Value);
    if RadioButton1.Checked then
       begin
       //CommandText:='select * from FeeHistory where [ClassName]='
         CommandText:='select * from FeeHistory where [ClassName]=:V';
       end
    else
       begin
       //CommandText:='select * from Departments where [DepartmentName]=';
         CommandText:='select * from Departments where [DepartmentName]=:v';
       end;

   // CommandText:=CommandText+''''+combobox1.Text+'''';
    active:=true;
  end;
end;
//初始化
procedure TfrmBookFeeQuery.FormCreate(Sender: TObject);
begin
  QueryDS:=TADODataSet.Create(nil);
  with QueryDS do
  begin
    Connection:=frmDataModule.Connection;
    CommandType:=cmdText;
  end;
  DataSource1.DataSet:=QueryDS;
  dbGrid1.DataSource:=DataSource1;
end;

end.