rkb.cpp

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

void __fastcall TForm4::Edit5Exit(TObject *Sender)
{
     zjs=zjs+Edit5->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit6Exit(TObject *Sender)
{
     zjs=zjs+Edit6->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit7Exit(TObject *Sender)
{
     zjs=zjs+Edit7->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit8Exit(TObject *Sender)
{
     zjs=zjs+Edit8->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit9Exit(TObject *Sender)
{
     zjs=zjs+Edit9->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit10Exit(TObject *Sender)
{
     zjs=zjs+Edit10->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit11Exit(TObject *Sender)
{
     zjs=zjs+Edit11->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit12Exit(TObject *Sender)
{
     zjs=zjs+Edit12->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit13Exit(TObject *Sender)
{
     zjs=zjs+Edit13->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit14Exit(TObject *Sender)
{
     zjs=zjs+Edit14->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit15Exit(TObject *Sender)
{
     zjs=zjs+Edit15->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit16Exit(TObject *Sender)
{
     zjs=zjs+Edit16->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit17Exit(TObject *Sender)
{
     zjs=zjs+Edit17->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit18Exit(TObject *Sender)
{
     zjs=zjs+Edit18->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit19Exit(TObject *Sender)
{
     zjs=zjs+Edit19->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit20Exit(TObject *Sender)
{
     zjs=zjs+Edit20->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit21Exit(TObject *Sender)
{
     zjs=zjs+Edit21->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit22Exit(TObject *Sender)
{
     zjs=zjs+Edit22->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit23Exit(TObject *Sender)
{
     zjs=zjs+Edit23->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit24Exit(TObject *Sender)
{
     zjs=zjs+Edit24->Text.ToIntDef(0);
     Label30->Caption=zjs;

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

void __fastcall TForm4::Edit3Click(TObject *Sender)
{
     zjs=zjs-Edit3->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit4Click(TObject *Sender)
{
     zjs=zjs-Edit4->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit5Click(TObject *Sender)
{
     zjs=zjs-Edit5->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit6Click(TObject *Sender)
{
     zjs=zjs-Edit6->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit7Click(TObject *Sender)
{
     zjs=zjs-Edit7->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit8Click(TObject *Sender)
{
     zjs=zjs-Edit8->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit9Click(TObject *Sender)
{
     zjs=zjs-Edit9->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit10Click(TObject *Sender)
{
     zjs=zjs-Edit10->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit11Click(TObject *Sender)
{
     zjs=zjs-Edit11->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit12Click(TObject *Sender)
{
     zjs=zjs-Edit12->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit13Click(TObject *Sender)
{
     zjs=zjs-Edit13->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit14Click(TObject *Sender)
{
     zjs=zjs-Edit14->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit15Click(TObject *Sender)
{
     zjs=zjs-Edit15->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit16Click(TObject *Sender)
{
     zjs=zjs-Edit16->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit17Click(TObject *Sender)
{
     zjs=zjs-Edit17->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit18Click(TObject *Sender)
{
     zjs=zjs-Edit18->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit19Click(TObject *Sender)
{
     zjs=zjs-Edit19->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit20Click(TObject *Sender)
{
     zjs=zjs-Edit20->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit21Click(TObject *Sender)
{
     zjs=zjs-Edit21->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit22Click(TObject *Sender)
{
     zjs=zjs-Edit22->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit23Click(TObject *Sender)
{
     zjs=zjs-Edit23->Text.ToIntDef(0);

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

void __fastcall TForm4::Edit24Click(TObject *Sender)
{
     zjs=zjs-Edit24->Text.ToIntDef(0);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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