自定义DataSet,并写入数据

原创 2004年09月09日 11:18:00

新建一 DataSet , 并加入数据 : prepareTable
function TFrm_Print.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;
var
  TempTable:TClientDataSet;
begin
  TempTable:=nil;
  Result:=nil;
  if AFieldDefs<>nil then
  begin
    try
      TempTable:=TClientDataSet.Create(Application);
      TempTable.FieldDefs.Assign(AFieldDefs);
      TempTable.CreateDataSet;
      Result:=(TempTable as TDataSet);
    Except
      if TempTable<>nil then
      TempTable.Free;
      raise;
    end
  end;
end;

procedure TFrm_Print.CreateDataSet(var gDataSet:Tdataset);
var ADataSet:TDataSet;
begin
  try
    if assigned(gDataSet) then gDataSet.free;
  except
  end;
    ADataSet:=TDataSet.Create(Self);
    try
      with ADataSet.FieldDefs do
      begin
        add('OrderNo',ftInteger);
        add('prjName',ftString,200);
        add('srcPrice',ftFloat);
      end;
      gDataSet:=CreateTableInMemory(ADataSet.FieldDefs);
      gDataSet.Open;
    finally
    ADataSet.Free;
    end;
end;

procedure Tfrm_GoodsMg.prepareTable(var gDataSet:Tdataset);
  procedure prepareDataSet;
  begin
{   while not 数据源.eof do begin
      gDataSet.append;
      gDataSet.fieldbyname('OrderNo').asInteger:= I_Value;
      gDataSet.fieldbyname('prjName').asString := A_Value;
      gDataSet.fieldbyname('OrderNo').asFloat  := D_value;
      gDataSet.post;
      数据源.next;
    end;            }
  end;
begin
    CreateDataSet(gDataSet);
    prepareDataSet;
end;

procedure getMyDataSet()
var myDataSet:Tdataset
begin
    prepareTable(myDataSet); 
    myDataSet.free;
end;

asp.net DataSet数据写入Excel保存自定义名称到默认文件夹内

using System; using System.Web; using Excel; using System.Drawing; using System.IO; using System.Ref...
  • anihasiyou
  • anihasiyou
  • 2014年08月05日 16:22
  • 850

使用HTML5中的element.dataset操作自定义data-*数据

HTML5 不断增加新功能,就如
  • shenzhenNBA
  • shenzhenNBA
  • 2014年04月26日 21:02
  • 1473

HTML5实战与剖析之自定义数据属性(dataset)

说道HTML5实战与剖析之自定义数据属性,我就想起以前在外面学习JavaScript的时候了,那时候真可谓是跟打了鸡血似的,永远那么兴奋。早在那个时候,我就听说过自定义属性这回事儿了。下面就为大家介绍...
  • LiMengXiaoLong
  • LiMengXiaoLong
  • 2014年01月28日 09:02
  • 1910

HTML5中的数据集dataset和自定义属性data-*

在HTML5中可为所有元素添加一种自定义的属性,这种属性的前缀以data-开头,比如:data-name,目的是为元素提供与页面渲染无关,但与dom元素强相关的属性。添加完自定义属性后我们可以通过元素...
  • cut001
  • cut001
  • 2017年06月23日 15:18
  • 309

C# 自定义DataSet

  • 2009年09月20日 16:21
  • 22KB
  • 下载

java 创建EXCEL文件,并向EXCEL中写入数据

  • 2014年05月13日 16:14
  • 639KB
  • 下载

C# 使用 StreamWriter 写入数据

  • 2011年07月24日 19:04
  • 17KB
  • 下载

向数据库写入数据

  • 2014年08月06日 17:56
  • 260KB
  • 下载

向Excel工作簿中写入数据.rar

  • 2010年07月02日 11:21
  • 142KB
  • 下载

动态向网页写入数据的资源

  • 2010年07月02日 10:31
  • 73KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自定义DataSet,并写入数据
举报原因:
原因补充:

(最多只允许输入30个字)