zu.cpp

中小学排课系统.做得比较简单,仅供大家参考.

        Form4->ComboBox5->Enabled=true;
     }
     else{
        Form4->Edit5->Text="";
        Form4->ComboBox5->Text="";
        Form4->ComboBox5->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label6->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label6->Visible=true;
     Form4->Edit6->Visible=true;
     Form4->ComboBox6->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox6->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit6->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox6->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox6->Enabled=true;
     }
     else{
        Form4->Edit6->Text="";
        Form4->ComboBox6->Text="";
        Form4->ComboBox6->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label7->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label7->Visible=true;
     Form4->Edit7->Visible=true;
     Form4->ComboBox7->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox7->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit7->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox7->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox7->Enabled=true;
     }
     else{
        Form4->Edit7->Text="";
        Form4->ComboBox7->Text="";
        Form4->ComboBox7->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label8->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label8->Visible=true;
     Form4->Edit8->Visible=true;
     Form4->ComboBox8->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox8->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit8->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox8->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox8->Enabled=true;
     }
     else{
        Form4->Edit8->Text="";
        Form4->ComboBox8->Text="";
        Form4->ComboBox8->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label9->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label9->Visible=true;
     Form4->Edit9->Visible=true;
     Form4->ComboBox9->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox9->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit9->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox9->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox9->Enabled=true;
     }
     else{
        Form4->Edit9->Text="";
        Form4->ComboBox9->Text="";
        Form4->ComboBox9->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label10->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label10->Visible=true;
     Form4->Edit10->Visible=true;
     Form4->ComboBox10->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox10->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit10->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox10->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox10->Enabled=true;
     }
     else{
        Form4->Edit10->Text="";
        Form4->ComboBox10->Text="";
        Form4->ComboBox10->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label11->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label11->Visible=true;
     Form4->Edit11->Visible=true;
     Form4->ComboBox11->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox11->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit11->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox11->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox11->Enabled=true;
     }
     else{
        Form4->Edit11->Text="";
        Form4->ComboBox11->Text="";
        Form4->ComboBox11->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label12->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label12->Visible=true;
     Form4->Edit12->Visible=true;
     Form4->ComboBox12->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox12->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit12->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox12->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox12->Enabled=true;
     }
     else{
        Form4->Edit12->Text="";
        Form4->ComboBox12->Text="";
        Form4->ComboBox12->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label13->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label13->Visible=true;
     Form4->Edit13->Visible=true;
     Form4->ComboBox13->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox13->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit13->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox13->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox13->Enabled=true;
     }
     else{
        Form4->Edit13->Text="";
        Form4->ComboBox13->Text="";
        Form4->ComboBox13->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label14->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label14->Visible=true;
     Form4->Edit14->Visible=true;
     Form4->ComboBox14->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox14->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit14->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox14->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox14->Enabled=true;
     }
     else{
        Form4->Edit14->Text="";
        Form4->ComboBox14->Text="";
        Form4->ComboBox14->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label15->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label15->Visible=true;
     Form4->Edit15->Visible=true;
     Form4->ComboBox15->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox15->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit15->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox15->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox15->Enabled=true;
     }
     else{
        Form4->Edit15->Text="";
        Form4->ComboBox15->Text="";
        Form4->ComboBox15->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label16->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label16->Visible=true;
     Form4->Edit16->Visible=true;
     Form4->ComboBox16->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox16->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit16->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox16->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox16->Enabled=true;
     }
     else{
        Form4->Edit16->Text="";
        Form4->ComboBox16->Text="";
        Form4->ComboBox16->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label17->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label17->Visible=true;
     Form4->Edit17->Visible=true;
     Form4->ComboBox17->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox17->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit17->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox17->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox17->Enabled=true;
     }
     else{
        Form4->Edit17->Text="";
        Form4->ComboBox17->Text="";
        Form4->ComboBox17->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label18->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label18->Visible=true;
     Form4->Edit18->Visible=true;
     Form4->ComboBox18->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox18->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit18->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox18->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox18->Enabled=true;
     }
     else{
        Form4->Edit18->Text="";
        Form4->ComboBox18->Text="";
        Form4->ComboBox18->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label19->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label19->Visible=true;
     Form4->Edit19->Visible=true;
     Form4->ComboBox19->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox19->Items=Form4->ComboBox24->Items ;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit19->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox19->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox19->Enabled=true;
     }
     else{
        Form4->Edit19->Text="";
        Form4->ComboBox19->Text="";
        Form4->ComboBox19->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label20->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label20->Visible=true;
     Form4->Edit20->Visible=true;
     Form4->ComboBox20->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox20->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit20->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox20->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox20->Enabled=true;
     }
     else{
        Form4->Edit20->Text="";
        Form4->ComboBox20->Text="";
        Form4->ComboBox20->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label21->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label21->Visible=true;
     Form4->Edit21->Visible=true;
     Form4->ComboBox21->Visible=true;
      Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox21->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit21->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox21->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox21->Enabled=true;
     }
     else{
        Form4->Edit21->Text="";
        Form4->ComboBox21->Text="";
        Form4->ComboBox21->Enabled=false;
     }
    Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label22->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label22->Visible=true;
     Form4->Edit22->Visible=true;
     Form4->ComboBox22->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox22->Items=Form4->ComboBox24->Items ;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit22->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox22->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox22->Enabled=true;
     }
     else{
        Form4->Edit22->Text="";
        Form4->ComboBox22->Text="";
        Form4->ComboBox22->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label23->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label23->Visible=true;
     Form4->Edit23->Visible=true;
     Form4->ComboBox23->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     Form4->ComboBox23->Items=Form4->ComboBox24->Items;
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit23->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox23->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox23->Enabled=true;
     }
     else{
        Form4->Edit23->Text="";
        Form4->ComboBox23->Text="";
        Form4->ComboBox23->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof){
     Form4->Label24->Caption=Table2->FieldByName("KCMC")->AsString;
     Form4->Label24->Visible=true;
     Form4->Edit24->Visible=true;
     Form4->ComboBox24->Visible=true;
     Js(Table2->FieldByName("KCMC")->AsString.c_str());
     if(Form4->Table2->FindKey(ARRAYOFCONST((Table2->FieldByName("KCMC")->AsString)))){
        Form4->Edit24->Text=Form4->Table2->FieldByName("KSS")->AsString;
        Form4->ComboBox24->Text=Form4->Table2->FieldByName("TXM")->AsString;
        Form4->ComboBox24->Enabled=true;
     }
     else{
        Form4->Edit24->Text="";
        Form4->ComboBox24->Text="";
        Form4->ComboBox24->Enabled=false;
     }
     Table2->Next();
  }
  if(!Table2->Eof)
     ShowMessage("开设的课程数超过了二十四门，本程序只能对前十四门进行排课。");
  else{
     Form4->Table2->First();
     int zjs=0;
     while(!Form4->Table2->Eof){
       zjs=zjs+Form4->Table2->FieldByName("KSS")->AsString.ToIntDef(0);
       Form4->Table2->Next();