delphi手动创建dataset并插入值
来源:互联网 发布:昆仑墟暗器进阶数据 编辑:程序博客网 时间:2024/06/07 17:37
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,DB,DBClient, Vcl.Grids, Vcl.DBGrids;type TForm1 = class(TForm) dbgrd1: TDBGrid; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } class function AddDataToSet(AdsData: TDataSet): TDataSet; class function CreateDataSet(dsTemp:TDataSet): TDataSet; end;var Form1: TForm1;implementation//创建datasetclass function TForm1.CreateDataSet(dsTemp:TDataSet): TDataSet;varcdsTemp: TClientDataSet;begintry //创建DataSet cdsTemp := TClientDataSet.Create(Application); if dsTemp.FieldDefs <> nil then begin cdsTemp.FieldDefs.Assign(dsTemp.FieldDefs); cdsTemp.CreateDataSet; result := (cdsTemp as TDataSet); end;finally //内存释放 dsTemp.Free;end;end;class function TForm1.AddDataToSet(AdsData: TDataSet): TDataSet;varintLoop:Integer;begin//打开数据集AdsData.Open;with AdsData dobegin for intLoop := 0 to 10 do begin Append;//添加 FieldByName('Code').AsString := 'Code' + intToStr(intLoop); FieldByName('Name').AsString := 'Name' + intToStr(intLoop); FieldByName('Code').AsInteger := intLoop; post;//提交 end;end;end;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);vardsTemp:TDataSet;begin //初始化 dsTemp := TDataSet.Create(Application); with dsTemp.FieldDefs do begin Add('code',ftString,8); Add('name',ftString,20); Add('Number',ftInteger); end; dsTemp:=TForm1.CreateDataSet(dsTemp); TForm1.AddDataToSet(dsTemp); dsTemp.Open; while not dsTemp.Eof do begin showmessage(string(dsTemp.FieldByName('Name').Value)) ; dsTemp.Next ; end ;end;end.
DataSet有两个东西,一个是表结构FieldDefs,一个是TClientDataSet。这个.net还是有一些不同。
0 0
- delphi手动创建dataset并插入值
- C#手动创建Dataset并填充测试数据
- C#手动创建Dataset并填充测试数据
- C#手动创建Dataset并填充测试数据
- 手动创建DataTable DataSet
- C#手动创建Dataset并填充测试数据 修改DataSet数据方法
- Delphi中动态创建DataSet数据集,并响应AfterDelete事件
- Delphi手动创建数据集
- 手动初始化dataset并添加表到其中
- DELPHI创建并调用 DLL
- 手动创建DataTable并绑定gridview
- [转]手动创建DataTable并绑定gridview
- 手动创建DataTable对象并绑定
- 手动创建、构建并安装android项目
- 手动管理创建并启动一个StoryBoard
- 手动管理创建并启动一个StoryBoard
- 创建数据库并插入数据
- 创建数据库并插入数据
- Ajax跨域Session和跨域访问
- 安装UniDAC控件包
- delphi控件安装与删除
- ZEOSDBO控件的安装及使用方法
- delphi DataSet读写
- delphi手动创建dataset并插入值
- delphi忘记了控件属性怎么设置以及控件安装经验
- ADO.Net读取封装
- 关于varchar与nvarchar的“N”,特殊字符没法存储怎么办
- 数据库修改保存的时候报超时
- jquery validate 自定义验证方法(前后台交互)
- Spring的测试
- html微信浏览器分享显示图片的问题
- Problem A: Little Red Riding Hood----普通dp