【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-FrmStorageQuery.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit FrmStorageQuery;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;
type
TFormStorageQuery = class(TForm)
CBCommodity: TComboBox;
Label2: TLabel;
Label1: TLabel;
Label3: TLabel;
CBDepot: TComboBox;
Label4: TLabel;
DataGrid: TDBGrid;
Shape1: TShape;
BtnOK: TButton;
DataSrcStorage: TDataSource;
DataSetStorage: TADODataSet;
DataSet: TADODataSet;
procedure FormShow(Sender: TObject);
procedure CBCommodityChange(Sender: TObject);
procedure CBDepotChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormStorageQuery: TFormStorageQuery;
implementation
{$R *.dfm}
procedure TFormStorageQuery.FormShow(Sender: TObject);
var
Min, Max, i:integer;
item :string;
begin
CBCommodity.Clear;
DataSet.Active := False;
DataSet.CommandText := 'select name from Commodity';
DataSet.Active := True;
Min := 0;
Max := DataSet.RecordCount;
DataSet.First;
for i := Min to (Max-1) do
begin
item := DataSet.FieldByName('name').AsString;
CBCommodity.Items.Add(item);
DataSet.Next;
end;
CBDepot.Clear;
DataSet.Active := False;
DataSet.CommandText := 'select name from Depot';
DataSet.Active := True;
Min := 0;
Max := DataSet.RecordCount;
DataSet.First;
for i := Min to (Max-1) do
begin
item := DataSet.FieldByName('name').AsString;
CBDepot.Items.Add(item);
DataSet.Next;
end;
end;
procedure TFormStorageQuery.CBCommodityChange(Sender: TObject);
begin
DataSetStorage.Active := false;
DataSetStorage.CommandText :=
'Execute StorageQuery '''
+ CBCommodity.Text
+ ''','''
+ CBDepot.Text
+ '''';
DataSetStorage.Active := true;
end;
procedure TFormStorageQuery.CBDepotChange(Sender: TObject);
begin
CBCommodityChange(Sender);
end;
end.