【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供Dictionary.pas参考,解决您在Dictionary.pas学习中工作中的难题,参考学习。
unit Dictionary;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UFrameRightBtn, UFrameGrid, DB, ADODB;
type
TFrmDictionary = class(TForm)
FrameRightBtn1: TFrameRightBtn;
FrameGrid1: TFrameGrid;
DataSource1: TDataSource;
ADODataSet1: TADODataSet;
ADODataSet1ID: TAutoIncField;
ADODataSet1DSDesigner: TStringField;
ADODataSet1DSDesigner2: TStringField;
ADODataSet1DSDesigner3: TStringField;
ADODataSet1DSDesigner4: TStringField;
procedure FormCreate(Sender: TObject);
private
public
end;
var
FrmDictionary: TFrmDictionary;
implementation
uses DataModu;
{$R *.dfm}
procedure TFrmDictionary.FormCreate(Sender: TObject);
begin
ADODataSet1.Active := False;
ADODataSet1.Active := True;
FrameRightBtn1.DataSet := ADODataSet1;
end;
end.
上一篇:
frmgkglbm.frm
下一篇:
描述式概念教学策略探究