📄 rkb.cpp
字号:
}
//---------------------------------------------------------------------------
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 + -