procedure TForm1.Button3Click(Sender: TObject); var i,ttmp:integer; temp,tadd:string; begin for i:=2 to 20 do begin temp:='名称abcABC:>>>'+inttostr(i); tadd:='高科技工业中心' ; Randomize; ttmp:=Random(ttmp); with QAccess do begin close; SQL.Clear; SQL.Add('Insert into testq (id,name,tel,add) values (i,temp,ttmp,tadd)');
procedure TForm1.Button3Click(Sender: TObject); var i,ttmp:integer; temp,tadd:string; begin for i:=2 to 20 do begin temp:='名称abcABC:>>>'+inttostr(i); tadd:='高科技工业中心' Randomize; ttmp:=Random(ttmp); with QAccess do begin close; SQL.Clear; SQL.Add('Insert into testq (id,name,tel,add) values (i,temp,ttmp,tadd)');