亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? rkb.cpp

?? 中小學排課系統.做得比較簡單,僅供大家參考.
?? CPP
?? 第 1 頁 / 共 3 頁
字號: 

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox12Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label12->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label12->Caption,Edit12->Text.ToIntDef(0),ComboBox12->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox12->Text;
     Table2->FieldByName("KSS")->AsString=Edit12->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox13Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label13->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label13->Caption,Edit13->Text.ToIntDef(0),ComboBox13->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox13->Text;
     Table2->FieldByName("KSS")->AsString=Edit13->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox14Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label14->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label14->Caption,Edit14->Text.ToIntDef(0),ComboBox14->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox14->Text;
     Table2->FieldByName("KSS")->AsString=Edit14->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox15Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label15->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label15->Caption,Edit15->Text.ToIntDef(0),ComboBox15->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox15->Text;
     Table2->FieldByName("KSS")->AsString=Edit15->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox16Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label16->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label16->Caption,Edit16->Text.ToIntDef(0),ComboBox16->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox16->Text;
     Table2->FieldByName("KSS")->AsString=Edit16->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox17Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label17->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label17->Caption,Edit17->Text.ToIntDef(0),ComboBox17->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox17->Text;
     Table2->FieldByName("KSS")->AsString=Edit17->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox18Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label18->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label18->Caption,Edit18->Text.ToIntDef(0),ComboBox18->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox18->Text;
     Table2->FieldByName("KSS")->AsString=Edit18->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox19Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label19->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label19->Caption,Edit19->Text.ToIntDef(0),ComboBox19->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox19->Text;
     Table2->FieldByName("KSS")->AsString=Edit19->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox20Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label20->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label20->Caption,Edit20->Text.ToIntDef(0),ComboBox20->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox20->Text;
     Table2->FieldByName("KSS")->AsString=Edit20->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox21Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label21->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label21->Caption,Edit21->Text.ToIntDef(0),ComboBox21->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox21->Text;
     Table2->FieldByName("KSS")->AsString=Edit21->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox22Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label22->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label22->Caption,Edit22->Text.ToIntDef(0),ComboBox22->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox22->Text;
     Table2->FieldByName("KSS")->AsString=Edit22->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox23Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label23->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label23->Caption,Edit23->Text.ToIntDef(0),ComboBox23->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox23->Text;
     Table2->FieldByName("KSS")->AsString=Edit23->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::ComboBox24Exit(TObject *Sender)
{
  if(!Table2->FindKey(ARRAYOFCONST((Label24->Caption))))
     Table2->AppendRecord(ARRAYOFCONST((Label24->Caption,Edit24->Text.ToIntDef(0),ComboBox24->Text)));
  else{
     Table2->Edit();
     Table2->FieldByName("TXM")->AsString=ComboBox24->Text;
     Table2->FieldByName("KSS")->AsString=Edit24->Text.ToIntDef(0);
     Table2->Post();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm4::FormActivate(TObject *Sender)
{
  zjs=Label30->Caption.ToIntDef(0);
//  while(!Table2->Eof){
//  /  zjs=zjs+Table2->FieldByName("KSS")->AsString.ToIntDef(0);
//    Table2->Next();
//  };
}
//---------------------------------------------------------------------------
void __fastcall TForm4::INIT(void)
{
  Edit1->Text="";
  ComboBox1->Text="";
  ComboBox1->Enabled=false;
  Edit2->Text="";
  ComboBox2->Text="";
  ComboBox2->Enabled=false;
  Edit3->Text="";
  ComboBox3->Text="";
  ComboBox3->Enabled=false;
  Edit4->Text="";
  ComboBox4->Text="";
  ComboBox4->Enabled=false;
  Edit5->Text="";
  ComboBox5->Text="";
  ComboBox5->Enabled=false;
  Edit6->Text="";
  ComboBox6->Text="";
  ComboBox6->Enabled=false;
  Edit7->Text="";
  ComboBox7->Text="";
  ComboBox7->Enabled=false;
  Edit8->Text="";
  ComboBox8->Text="";
  ComboBox8->Enabled=false;
  Edit9->Text="";
  ComboBox9->Text="";
  ComboBox9->Enabled=false;
  Edit10->Text="";
  ComboBox10->Text="";
  ComboBox10->Enabled=false;
  Edit11->Text="";
  ComboBox11->Text="";
  ComboBox11->Enabled=false;
  Edit12->Text="";
  ComboBox12->Text="";
  ComboBox12->Enabled=false;
  Edit13->Text="";
  ComboBox13->Text="";
  ComboBox13->Enabled=false;
  Edit14->Text="";
  ComboBox14->Text="";
  ComboBox14->Enabled=false;
  Edit15->Text="";
  ComboBox15->Text="";
  ComboBox15->Enabled=false;
  Edit16->Text="";
  ComboBox16->Text="";
  ComboBox16->Enabled=false;
  Edit17->Text="";
  ComboBox17->Text="";
  ComboBox17->Enabled=false;
  Edit18->Text="";
  ComboBox18->Text="";
  ComboBox18->Enabled=false;
  Edit19->Text="";
  ComboBox19->Text="";
  ComboBox19->Enabled=false;
  Edit20->Text="";
  ComboBox20->Text="";
  ComboBox20->Enabled=false;
  Edit21->Text="";
  ComboBox21->Text="";
  ComboBox21->Enabled=false;
  Edit22->Text="";
  ComboBox22->Text="";
  ComboBox22->Enabled=false;
  Edit23->Text="";
  ComboBox23->Text="";
  ComboBox23->Enabled=false;
  Edit24->Text="";
  ComboBox24->Text="";
  ComboBox24->Enabled=false;
  ComboBox25->Text=Table1->FieldByName("BZR")->AsString;
    char *uy7;
     uy7=new char[30];
     strcpy(uy7,"KSSA");
     strcat(uy7,Form4->Table1->FieldByName("BJHM")->AsString.c_str());
     strcat(uy7,".DBF");
     Table2->Active = false;
     Table2->TableName= uy7;
     Table2->IndexName="KCMC";
     Table2->Active = true;
     delete uy7;
     zjs=0;
     while(!Table2->Eof){
       zjs=zjs+Table2->FieldByName("KSS")->AsString.ToIntDef(0);
      if(Form2->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
         switch(Form2->Table2->RecNo){
           case 1:
              Edit1->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox1->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox1->Enabled=true;
              break;
           case 2:
              Edit2->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox2->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox2->Enabled=true;
           break;
           case 3:
              Edit3->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox3->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox3->Enabled=true;
           break;
           case 4:
              Edit4->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox4->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox4->Enabled=true;
           break;
           case 5:
              Edit5->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox5->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox5->Enabled=true;
              break;
           case 6:
              Edit6->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox6->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox6->Enabled=true;
           break;
           case 7:
              Edit7->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox7->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox7->Enabled=true;
           break;
           case 8:
              Edit8->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox8->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox8->Enabled=true;
           break;
           case 9:
              Edit9->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox9->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox9->Enabled=true;
              break;
           case 10:
              Edit10->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox10->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox10->Enabled=true;
           break;
           case 11:
              Edit11->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox11->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox11->Enabled=true;
           break;
           case 12:
              Edit12->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox12->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox12->Enabled=true;
           break;
           case 13:
              Edit13->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox13->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox13->Enabled=true;
              break;
           case 14:
              Edit14->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox14->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox14->Enabled=true;
           break;
           case 15:
              Edit15->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox15->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox15->Enabled=true;
           break;
           case 16:
              Edit16->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox16->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox16->Enabled=true;
           break;
           case 17:
              Edit17->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox17->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox17->Enabled=true;
              break;
           case 18:
              Edit18->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox18->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox18->Enabled=true;
           break;
           case 19:
              Edit19->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox19->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox19->Enabled=true;
           break;
           case 20:
              Edit20->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox20->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox20->Enabled=true;
           break;
           case 21:
              Edit21->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox21->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox21->Enabled=true;
              break;
           case 22:
              Edit22->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox22->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox22->Enabled=true;
           break;
           case 23:
              Edit23->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox23->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox23->Enabled=true;
           break;
           case 24:
              Edit24->Text=Table2->FieldByName("KSS")->AsString;
              ComboBox24->Text=Table2->FieldByName("TXM")->AsString;
              ComboBox24->Enabled=true;
           break;
         }
      }
      Table2->Next();
     };
     Label30->Caption=zjs;
}

void __fastcall TForm4::ComboBox25Exit(TObject *Sender)
{
  Table1->Edit();
  Table1->FieldByName("BZR")->AsString=ComboBox25->Text;
  Table1->Post();
}
//---------------------------------------------------------------------------

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
香蕉久久一区二区不卡无毒影院 | 欧美日韩一区小说| 成人一级片网址| 午夜精品一区二区三区电影天堂 | 日韩一级高清毛片| 欧美色图片你懂的| av网站一区二区三区| 久久国产日韩欧美精品| 亚洲午夜电影在线| 亚洲一区二区在线播放相泽| 精品国产乱码久久久久久牛牛| 欧美日韩亚洲综合在线| 色婷婷国产精品久久包臀| 成人动漫av在线| 波多野结衣中文字幕一区二区三区| 国产综合一区二区| 久久99国产精品久久99果冻传媒| 日韩精品一卡二卡三卡四卡无卡| 亚洲午夜久久久久久久久久久 | 激情五月播播久久久精品| 天天亚洲美女在线视频| 亚洲成人自拍偷拍| 午夜欧美一区二区三区在线播放| 亚洲综合色成人| 久久天天做天天爱综合色| 成人国产精品免费观看视频| 高清久久久久久| 色系网站成人免费| 7777精品伊人久久久大香线蕉最新版| 91精品国产综合久久久久久久| 精品国产免费久久| 国产精品美女一区二区三区| 亚洲精品老司机| 日本va欧美va瓶| 高清国产一区二区| 欧美视频在线观看一区二区| 日韩视频一区二区在线观看| 欧美激情在线免费观看| 亚洲成人精品一区二区| 国产麻豆精品在线| 91福利国产成人精品照片| 91精品国产免费| 中文字幕欧美激情一区| 午夜久久福利影院| 懂色av一区二区夜夜嗨| 欧美性色aⅴ视频一区日韩精品| 欧美日韩成人高清| 久久在线免费观看| 亚洲一区二区影院| 国产经典欧美精品| 欧美精品久久99久久在免费线 | 国产精品美女久久久久aⅴ国产馆| 尤物在线观看一区| 国产在线视频精品一区| 欧美三级韩国三级日本一级| 亚洲精品亚洲人成人网| 日韩高清在线电影| 99久免费精品视频在线观看 | 国产精品不卡视频| 免费久久精品视频| 91在线视频在线| 精品久久人人做人人爰| 一区二区三区不卡视频在线观看| 国产精品一区一区三区| 欧美一区二区大片| 一区二区三区在线观看国产 | 91精品国产欧美日韩| 最新欧美精品一区二区三区| 精品一区二区综合| 欧美日韩国产首页| 亚洲女同一区二区| 国产原创一区二区| 欧美丰满高潮xxxx喷水动漫| 亚洲女人小视频在线观看| 国产suv精品一区二区6| 欧美α欧美αv大片| 亚洲第一av色| 91国产福利在线| 亚洲图片你懂的| 岛国一区二区三区| 亚洲精品一区二区三区99| 日本aⅴ亚洲精品中文乱码| 色综合久久久久综合99| 国产精品免费人成网站| 国产精品一区一区| 久久婷婷久久一区二区三区| 美女久久久精品| 91精品国产综合久久福利软件| 一区二区三区欧美| 色婷婷久久久久swag精品| 国产精品卡一卡二| 成人美女在线观看| 国产精品视频免费看| 国产一区二区免费看| 精品久久人人做人人爽| 麻豆免费看一区二区三区| 欧美丰满少妇xxxxx高潮对白| 亚洲在线免费播放| 欧洲精品一区二区三区在线观看| 亚洲欧美综合在线精品| 成人app在线观看| 中文字幕一区二区三区乱码在线| 成人av网在线| 亚洲视频综合在线| 色偷偷成人一区二区三区91 | 日韩精品五月天| 欧美日本视频在线| 婷婷国产在线综合| 欧美一区二区女人| 理论片日本一区| 久久久蜜桃精品| 成人午夜短视频| 日韩毛片一二三区| 久久综合狠狠综合久久激情| 久久99精品久久久久久动态图 | 欧美猛男男办公室激情| 三级亚洲高清视频| 欧美电影免费观看高清完整版在 | 久久天天做天天爱综合色| 国产精品18久久久久久久久久久久| 久久久三级国产网站| 国产成人日日夜夜| 18欧美乱大交hd1984| 欧美视频在线一区| 六月丁香综合在线视频| 久久久久久久久久久久久久久99 | 欧美人妇做爰xxxⅹ性高电影| 午夜精品免费在线| 精品久久99ma| 国产福利91精品一区| 国产精品麻豆久久久| 在线精品视频小说1| 爽好久久久欧美精品| 国产网红主播福利一区二区| 不卡视频在线观看| 亚洲超碰97人人做人人爱| 日韩精品一区二区三区四区视频| 国产精品 欧美精品| 亚洲四区在线观看| 555www色欧美视频| 成人综合在线观看| 亚洲一二三专区| 欧美电视剧在线看免费| 99精品视频一区二区三区| 亚洲国产一区二区三区| 久久综合色8888| 欧亚一区二区三区| 国产中文字幕精品| 亚洲免费av观看| 日韩一区二区免费在线观看| av在线一区二区三区| 蜜臀久久99精品久久久画质超高清 | 日韩一区二区不卡| 99久久婷婷国产精品综合| 亚洲午夜久久久久久久久电影院| 精品国产一区二区亚洲人成毛片 | 精品欧美乱码久久久久久1区2区| 99久久婷婷国产精品综合| 奇米亚洲午夜久久精品| 中文字幕在线免费不卡| 日韩欧美不卡一区| 在线观看国产一区二区| 国产激情一区二区三区四区| 亚洲国产综合视频在线观看| 国产女人aaa级久久久级| 欧美精品一级二级三级| 成人免费视频视频在线观看免费 | 久久99九九99精品| 亚洲一卡二卡三卡四卡| 中文字幕巨乱亚洲| 精品国产一区a| 欧美三级视频在线| 91在线精品一区二区| 国产精品一区一区| 久久国产精品99精品国产| 亚洲国产精品欧美一二99| 中文字幕一区二区三区不卡| 精品国产三级电影在线观看| 欧美日韩国产首页在线观看| 欧美激情综合在线| 不卡视频在线观看| 亚洲一线二线三线视频| 777午夜精品视频在线播放| 99re8在线精品视频免费播放| 另类小说图片综合网| 五月婷婷激情综合| 一区二区在线观看免费视频播放| 久久久91精品国产一区二区三区| 欧美一区午夜视频在线观看| 日本精品一级二级| 国产成人aaa| 国产精品2024| 国产曰批免费观看久久久| 久久精品国产秦先生| 日韩av二区在线播放| 日韩经典一区二区| 日韩电影免费一区| 日韩电影在线免费看| 亚洲永久免费视频| 亚洲欧美日韩在线|