糟糕!前些日子自己写了一段代码,现在忘了什么意思了!昏倒!大家帮忙看看!!!
woki 2002-05-18 02:05:05 好象是往一张基本表赋值
Query1->Close();
Query1->SQL->Clear();
switch (StringGrid1->ColCount)
{
case 3:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc)");break;
case 4:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd)");break;
case 5:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee)");break;
case 6:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff)");break;
case 7:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg)");break;
case 8:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh)");break;
case 9:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii)");break;
case 10:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj)");break;
case 11:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk)");break;
case 12:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll)");break;
case 13:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm)");break;
case 14:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn)");break;
case 15:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo)");break;
case 16:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp)");break;
case 17:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq)");break;
case 18:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr)");break;
case 19:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss)");break;
case 20:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt)");break;
case 21:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt,:uu)");break;
case 22:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt,:uu,:vv)");break;
case 23:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt,:uu,:vv,:ww)");break;
case 24:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt,:uu,:vv,:ww,:xx)");break;
case 25:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt,:uu,:vv,:ww,:xx,:yy)");break;
case 26:Query1->SQL->Add("Insert into PrintDemo values (:aa,:bb,:cc,:dd,:ee,:ff,:gg,:hh,:ii,:jj,:kk,:ll,:mm,:nn,:oo,:pp,:qq,:rr,:ss,:tt,:uu,:vv,:ww,:xx,:yy,:zz)");break;
}
for (i=1;i<StringGrid1->RowCount;i++)
{
for (j=0;j<Query1->ParamCount;j++)
Query1->Params->Items[j]->AsString=StringGrid1->Cells[j][i];
Query1->ExecSQL();
}
// 基本表PrintDemo赋值
最下面的两重循环什么意思啊??下次我一定注意加上注释!!
:(