?? takequeryunit.pas
字號:
unit TakeQueryUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, Buttons, Grids, DBGrids, ADODB;
type
TfrmTakeQuery = class(TForm)
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox2: TGroupBox;
Label1: TLabel;
ComboBox1: TComboBox;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DataSource1: TDataSource;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTakeQuery: TfrmTakeQuery;
ds:TADODataSet; // Classes,Departments
implementation
uses DataModuleUnit;
{$R *.dfm}
//初始化
procedure ini();
begin
frmTakeQuery.ComboBox1.Clear;
frmTakeQuery.DBGrid1.DataSource:=nil;
DS.Close;
end;
//初始化班級列表
procedure TfrmTakeQuery.RadioButton1Click(Sender: TObject);
var
i:integer;
begin
ini;
DS.CommandText:='select ClassName from classes';
DS.Active:=true;
for i:=0 to DS.RecordCount-1 do
begin
comboBox1.Items.Add(Ds.Fields[0].Value);
ds.Next;
end;
DS.Close;
label1.Caption:='選擇查詢班級名';
Combobox1.Enabled:=true;
end;
//初始化院系名
procedure TfrmTakeQuery.RadioButton2Click(Sender: TObject);
var
i:integer;
begin
ini;
DS.CommandText:='select DepartmentName from Departments';
DS.Active:=true;
for i:=0 to DS.RecordCount-1 do
begin
comboBox1.Items.Add(Ds.Fields[0].Value);
ds.Next;
end;
DS.Close;
label1.Caption:='選擇查院系名';
Combobox1.Enabled:=true;
end;
procedure TfrmTakeQuery.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TfrmTakeQuery.FormCreate(Sender: TObject);
begin
DS:=TADODataSet.Create(nil);
DS.Connection:=frmDataModule.Connection;
DS.CommandType:=cmdText;
end;
//執行查詢
procedure TfrmTakeQuery.BitBtn2Click(Sender: TObject);
begin
Datasource1.DataSet:=DS;
DBGrid1.DataSource:=DataSource1;
if combobox1.Text<>'' then
begin
with DS do
begin
Close;
Parameters.Clear;
Parameters.CreateParameter('@V',ftstring,pdinput,20,combobox1.Text);
CommandText:='select * from booksHistory where whoTake=:V';
//CommandText:='select * from booksHistory where whoTake='+''''+combobox1.Text+'''';
Active:=true;
end;
end
else
Application.MessageBox('請選擇要查詢的內容!','出錯提示',mb_ok);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -