Java 人生

java (Java EE)&Linux

BlogJava 首页 新随笔 联系 聚合 管理
  15 Posts :: 2 Stories :: 5 Comments :: 0 Trackbacks

procedure TForm1.Button1Click(Sender: TObject);
var
  table:TclientDataSet;
  i:integer;
begin
   table:=TClientDataset.Create(Application);
   // 添加字段定?
   table.FieldDefs.Add('ID',ftInteger,0,False);

  table.FieldDefs.Add('partno',ftString,10,False);

  table.FieldDefs.Add('orderno',ftString,0,False);


   table.CreateDataset;

   table.Open;

   for i:=1 to 5 do

  begin

   table.Append;

   table.FieldByName('ID').AsInteger:=i;

   table.FieldByName('partno').AsString:='sdfa';

   table.FieldByName('orderno').AsString:='dfa';

   table.Post;

 end;
  showmessage(table.FieldByName('id').AsString);


end;

posted on 2006-04-10 12:49 jinmy liao 阅读(1855) 评论(0)  编辑  收藏 所属分类: delphi

只有注册用户登录后才能发表评论。


网站导航: