paradox或编程实现，帮忙看看

Question

有一table(P_date,chip_type,fail_item,total),
9/11/2002  A  Pass   21
9/11/2002  A  track  2
9/12/2002  A  pass   30
9/12/2002  A  Others 1
其中fail_item每天在table出现可能性有6种，（pass,track,peng,dang,eang,Others)
但不确定
我现在想把6种可能性都加上既变为：
9/11/2002  A  Pass   21
9/11/2002  A  track  2
9/11/2002  A  peng   0
9/11/2002  A  dang   0
9/11/2002  A  eang   0
9/11/2002  A  Others 0
..........
9/12/2002  A  pass   30
9/12/2002  A  Others 1
......................
该怎么插入record?
paradox类型，chip_type有2种！(A,B)

Answer 1

P_date,chip_type,fail_item做主码，每天插入12条记录
var
 arr1:array[0..1] of string=('A','B');
 arr2:array[1..6] of string=('pass','track','peng','dang','eang','Others');
 arr3:array[1..12] of integer; //分别对应12种情况的total
 i,j:integer;
begin
 ... //根据当天情况给arr3赋值
 for i:=0 to 1 do
  for j:=1 to 6 do
   begin
   Table1.insert;
   Table1.FieldByName('P_date').asDateTime:=Date;
   Table1.FieldByName('chip_type').asString:=arr1[i];
   Table1.FieldByName('fail_item').asString:=arr2[j];
   Table1.FieldByName('total').asInteger:=arr3[i*6+j];
   Table1.post;
   end;
end;

Answer 2

我的思路也是这样，但我想把生成的table作成临时表，该怎么做？
我对临时表不会用，我用程序试着做了，但是paradox类型的，不知道
dbase5该怎么定义字段？

Answer 3

Query1.Close;
Query1.SQL.Text:='select * into TempTbl  from Table'
Query1.ExecSQL;
//生成一个TempTble表，可以当成你的临时表用。可以对它进行操作