关于生成层列数据保存数据库中

[crazy_boom]

delphi 7.0
sql 2008r2
我用delphi 做了一个界面 有3个编辑框 例如 第一个 输入4 第二个数据4 第三个输入 4
则生成这样的数据
1-1-1
1-1-2
1-1-3
1-1-4
1-2-1
1-2-2
1-2-3
...
4-1-1
4-1-2
...
4-4-4
到这里停止 并将这个组数据保存到数据库中一个一个字段中

[crazy_boom]

还要写入数据库呢

[lyhoo163]

一、建立表（表名），字段“字段1”，“ID”（主键），相应字段自己设定 二、DBGrid连接SQL的表， 并打开 三、按钮事件

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,i1.j1,k1,L:integer;
    S,ID::string;
begin
  i1:=StrToInt(Edit1.text);
  j1:=StrToInt(Edit2.text);
  k1:=StrToInt(Edit3.text);
  DateTimetoString(ID,'yymmddhhnnss',now);
  L:=0;
  for i:=1 to i1 do
    for j:=1 to j1 do
      for k:=1 to k1 do
      begin
        L:=L+1;
        S:=IntToStr(i)+'-'+IntToStr(j)+'-'+IntToStr(k);
        with DBGrid1.DataSource.DataSet do
        begin
          Append;
          FieldByName('字段1').asString:= S;
          FieldByName('ID').asString:= ID+IntToStr(L); // 主键
          Post.
        end;
      end;
end;

[doloopcn]

这好像是很简单的循环算法 for i:=1 to StrToInt(Edit1.Text) do for j:=1 to StrToInt(Edit2.Text) do for k:=1 to StrToInt(Edit3.Text) do Memo1.Lines.Add(Format('%d-%d-%d',[i,j,k]));