首先申明: 我不是高手,只是将自己的见解贴出来供大家参考,我的EMAIL是[email protected]
1.生成临时数据库TEMP:XX,XM,KMDM (SELECT XH,XM,BKK.KMDM FROM XXJBH,BKK WHERE XSJBK.XH=BKK.XH ORDER BY BKK.KMDM)
2.将TEMP库的数据按考场顺序每个考场30人存入BPK中
while not tabletemp.eof do
begin
querybpk.close;
querybpk.sql.clear;
querybpk.sql.add('insert into bpk set values (:xh,:xm,:zwh,:kmdm,:ssbh,:ssmc)');
for i;=1 to 30 do
begin
//参数ssbh,ssmc=ssk的当前记录的SSBH,SSMC;
//参数xh,xm,kmdm,取tabletemp表中当前记录的值
if i<10 then
//参数zwh='0'+inttostr(i);
else
//参数zwh=inttostr(i);
querybpk.excute;
end;
if not tablessk.eof then
tablessk.next;
tabletemp.next;
end;
1.生成临时数据库TEMP:XX,XM,KMDM (SELECT XH,XM,BKK.KMDM FROM XXJBH,BKK WHERE XSJBK.XH=BKK.XH ORDER BY BKK.KMDM)
2.将TEMP库的数据按考场顺序每个考场30人存入BPK中
while not tabletemp.eof do
begin
querybpk.close;
querybpk.sql.clear;
querybpk.sql.add('insert into bpk set values (:xh,:xm,:zwh,:kmdm,:ssbh,:ssmc)');
for i;=1 to 30 do
begin
//参数ssbh,ssmc=ssk的当前记录的SSBH,SSMC;
//参数xh,xm,kmdm,取tabletemp表中当前记录的值
if i<10 then
//参数zwh='0'+inttostr(i);
else
//参数zwh=inttostr(i);
querybpk.excute;
end;
if not tablessk.eof then
tablessk.next;
tabletemp.next;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货