unit1.cpp

公路站超载检测系统上位机软件系统源程序!

void __fastcall TParForm::Button4Click(TObject *Sender)
{
    DynMode();                          //动态模式
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button2Click(TObject *Sender)
{
    StaMode();                          //静态模式
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button10Click(TObject *Sender)
{
    ZeroSet();                         //零点设置
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button5Click(TObject *Sender)
{
   StartoV();                          //开始信号
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button6Click(TObject *Sender)
{
   EndoV();                           //结束信号
}
//---------------------------------------------------------------------------

void __fastcall TParForm::Button1Click(TObject *Sender)
{
   changPkt=true;
   rewritPkt=false;
   if (Edit4->Text!="")
   KalPunkt();                        // 修改校准点
   else
   ShowMessage("校准点输入错误");
}
//---------------------------------------------------------------------------





void __fastcall TParForm::RewClick(TObject *Sender)
{
   changPkt=false;
   rewritPkt=true;
   if (Rew->Caption=="重写校准值")
   {
    Rew->Caption="确定";
    Button28->Caption="取消";
    ParForm->A1->Text=KalAnalogStr[0];
    ParForm->A2->Text=KalAnalogStr[1];
    ParForm->A3->Text=KalAnalogStr[2];
    ParForm->A4->Text=KalAnalogStr[3];
    ParForm->A5->Text=KalAnalogStr[4];
    ParForm->A6->Text=KalAnalogStr[5];
    ParForm->A7->Text=KalAnalogStr[6];
    ParForm->A8->Text=KalAnalogStr[7];
    ParForm->A9->Text=KalAnalogStr[8];
    ParForm->A10->Text=KalAnalogStr[9];

    ParForm->P1->Text=KalPunkteStr[0];
    ParForm->P2->Text=KalPunkteStr[1];
    ParForm->P3->Text=KalPunkteStr[2];
    ParForm->P4->Text=KalPunkteStr[3];
    ParForm->P5->Text=KalPunkteStr[4];
    ParForm->P6->Text=KalPunkteStr[5];
    ParForm->P7->Text=KalPunkteStr[6];
    ParForm->P8->Text=KalPunkteStr[7];
    ParForm->P9->Text=KalPunkteStr[8];
    ParForm->P10->Text=KalPunkteStr[9];

    Button25->Enabled =false;
    Button27->Enabled =false;
    Button26->Enabled =false;
    Button7->Enabled =false;
    DataPad->Visible=true;
   // A1->SetFocus();
   }
   else
   {
    Rew->Caption="重写校准值";
    Button28->Caption="退出";
    Button25->Enabled =true;
    Button27->Enabled =true;
    Button26->Enabled =true;
    Button7->Enabled =true;
    DataPad->Visible=false;
    KalDat();
    Close();
   }

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

void __fastcall TParForm::A1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if (A1->Text=="493")
      A1->ShowHint=true;
      else
      A1->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A2->Text=="986")
      A2->ShowHint=true;
      else
      A2->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A3MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A3->Text=="1479")
      A3->ShowHint=true;
      else
      A3->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A4MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A4->Text=="1972")
      A4->ShowHint=true;
      else
      A4->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A5MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A5->Text=="2465")
      A5->ShowHint=true;
      else
      A5->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A6MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A6->Text=="3698")
      A6->ShowHint=true;
      else
      A6->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A7MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A7->Text=="6163")
      A7->ShowHint=true;
      else
      A7->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A8MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A8->Text=="7395")
      A8->ShowHint=true;
      else
      A8->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A9MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A9->Text=="9860")
      A9->ShowHint=true;
      else
      A9->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::A10MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (A10->Text=="12325")
      A10->ShowHint=true;
      else
      A10->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if (P1->Text=="1000")
      P1->ShowHint=true;
      else
      P1->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P2->Text=="2000")
      P2->ShowHint=true;
      else
      P2->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P3MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P3->Text=="3000")
      P3->ShowHint=true;
      else
      P3->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P4MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P4->Text=="4000")
      P4->ShowHint=true;
      else
      P4->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P5MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P5->Text=="5000")
      P5->ShowHint=true;
      else
      P5->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P6MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P6->Text=="7500")
      P6->ShowHint=true;
      else
      P6->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P7MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P7->Text=="10000")
      P7->ShowHint=true;
      else
      P7->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P8MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P8->Text=="15000")
      P8->ShowHint=true;
      else
      P8->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P9MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P9->Text=="20000")
      P9->ShowHint=true;
      else
      P9->ShowHint=false;
}
//---------------------------------------------------------------------------

void __fastcall TParForm::P10MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (P10->Text=="25000")
      P10->ShowHint=true;
      else
      P10->ShowHint=false;
}
//---------------------------------------------------------------------------