?? bookfeequeryunit.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -