如何批量增记录

Question

我在写一个程序刷磁卡的会员管理程序，发卡的时候需要批量增加，用Access数据库，卡号是文本类型的，格式为0001，0002....9999，如果想发0001-0050这50张卡，金额一样，该如何实现？

Answer 1

query1.SQL.Clear   ;   
  query1.SQL.add(select   top   1   *   from   biao);   
  query1.open;   
  for   i:=1   to   Mm1.lines.Count   do   
  begin   
          for   j:=1   to   Mm2.lines.Count   do   
            begin   
                for   k:=1   to   Mm3.lines.Count   do   
                begin   
                for   l:=1   to   mm4.lines.Count   do   
                begin   
                        v1:=Mm1.lines.Strings[i];                   
                        v2:=Mm2.lines.Strings[j];   
                        v3:=Mm3.lines.Strings[k];   
                        v4:=mm4.lines.Strings[l];   
    
    
    
                  query1.insert;   
                    query1.fieldbyname('no1').asstring:=v1;   
                    query1.fieldbyname('no2').asstring:=v2;   
                    query1.fieldbyname('no3').asstring:=v3;   
                    query1.fieldbyname('no4').asstring:=v4;   
                  query1.post;   
                end;   
                end;   
            end;   
  end;   
  end;   

Answer 2

如果起始卡号都是用户自己输入的呢？也就是说用户可以自己输入起始号和结束号？请Deansroom帮忙解决一下怎么样？

Answer 3

我想实现的功能：
从窗口上让客户输入起始号码,用Edit1接收，结束号码,用Edit2接收，也有可能是从0045到0080号，再输入金额，密码等信息，点击“售卡”按钮后，把起始号码到结束号码之间的记录写入到数据库，因为卡号是确定在磁条里的，所以我在Access数据库里CardNo字段用的是文本类型。这个功能如何实现？如果方便的话给我留个QQ好吗？