sysfac.cpp

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

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
 #include "Pcom.h"
#include "sysFac.h"
#include "unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TsysFacForm *sysFacForm;
//---------------------------------------------------------------------------
__fastcall TsysFacForm::TsysFacForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TsysFacForm::BitBtn1Click(TObject *Sender)
{
  if (BitBtn1->Caption=="中文")
    {
    BitBtn1->Caption="English";
    Label1->Caption="前轴因素";
    Label2->Caption="双连轴因素";
    Label3->Caption="三连轴因素";
    Label4->Caption="系统因素";
    Label5->Caption="速度因素1";
    Label6->Caption="速度因素2";
    Label7->Caption="速度因素3";
    Label8->Caption="速度因素4";
    Label9->Caption="速度点1";
    Label10->Caption="速度点2";
    Label11->Caption="速度点3";
    Label12->Caption="速度点4";

    }
    else
    {
    BitBtn1->Caption="中文";
    Label1->Caption="FrontAxFac";
    Label2->Caption="TandemAxFac";
    Label3->Caption="TripleAxFac";
    Label4->Caption="OverAllFac";
    Label5->Caption="SpeedFac[0]";
    Label6->Caption="SpeedFac[1]";
    Label7->Caption="SpeedFac[2]";
    Label8->Caption="SpeedFac[3]";
    Label9->Caption="SpeedPoint[0]";
    Label10->Caption="SpeedPoint[1]";
    Label11->Caption="SpeedPoint[2]";
    Label12->Caption="SpeedPoint[3]";

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


void __fastcall TsysFacForm::BitBtn4Click(TObject *Sender)
{    //系统因素值
     SysFactor[0]=StrToInt(Edit1->Text);
     SysFactor[1]=StrToInt(Edit2->Text);
     SysFactor[2]=StrToInt(Edit3->Text);
     SysFactor[3]=StrToInt(Edit4->Text);
     //------------------------------
     SysFactor[4]=StrToInt(Edit5->Text);
     SysFactor[5]=StrToInt(Edit6->Text);
     SysFactor[6]=StrToInt(Edit7->Text);
     SysFactor[7]=StrToInt(Edit8->Text);

     SysFactor[8]=StrToInt(Edit13->Text);
     SysFactor[9]=StrToInt(Edit14->Text);
     SysFactor[10]=StrToInt(Edit15->Text);
     SysFactor[11]=StrToInt(Edit16->Text);
     SysFactor[12]=StrToInt(Edit17->Text);
     SysFactor[13]=StrToInt(Edit18->Text);
     SysFactor[14]=StrToInt(Edit19->Text);
     SysFactor[15]=StrToInt(Edit20->Text);
     //--------------------------------
     SysFactor[16]=StrToInt(Edit9->Text);
     SysFactor[17]=StrToInt(Edit10->Text);
     SysFactor[18]=StrToInt(Edit11->Text);
     SysFactor[19]=StrToInt(Edit12->Text);
     SysFactor[20]=StrToInt(Edit21->Text);
     SysFactor[21]=StrToInt(Edit22->Text);
     SysFactor[22]=StrToInt(Edit23->Text);
     SysFactor[23]=StrToInt(Edit24->Text);
     SysFactor[24]=StrToInt(Edit25->Text);
     SysFactor[25]=StrToInt(Edit26->Text);
     SysFactor[26]=StrToInt(Edit27->Text);
     SysFactor[27]=StrToInt(Edit28->Text);
     //------------------------------------
     ChgCLWparam(); //改变CLW参数
     Edit1->ReadOnly=true;
     Edit2->ReadOnly=true;
     Edit3->ReadOnly=true;
     Edit4->ReadOnly=true;
     Edit5->ReadOnly=true;
     Edit6->ReadOnly=true;
     Edit7->ReadOnly=true;
     Edit8->ReadOnly=true;
     Edit9->ReadOnly=true;
     Edit10->ReadOnly=true;
     Edit11->ReadOnly=true;
     Edit12->ReadOnly=true;
     BitBtn4->Enabled=false;
     BitBtn6->Enabled=true;
     Close();        
}
//---------------------------------------------------------------------------

void __fastcall TsysFacForm::BitBtn2Click(TObject *Sender)
{
     sysFacForm->Close(); //窗体关闭          
}
//---------------------------------------------------------------------------

void __fastcall TsysFacForm::BitBtn6Click(TObject *Sender)
{
   Edit1->ReadOnly=false;
   Edit2->ReadOnly=false;
   Edit3->ReadOnly=false;
   Edit4->ReadOnly=false;
   Edit5->ReadOnly=false;
   Edit6->ReadOnly=false;
   Edit7->ReadOnly=false;
   Edit8->ReadOnly=false;
   Edit9->ReadOnly=false;
   Edit10->ReadOnly=false;
   Edit11->ReadOnly=false;
   Edit12->ReadOnly=false;
   Edit13->ReadOnly=false;
   Edit14->ReadOnly=false;
   Edit15->ReadOnly=false;
   Edit16->ReadOnly=false;
   Edit17->ReadOnly=false;
   Edit18->ReadOnly=false;
   Edit19->ReadOnly=false;
   Edit20->ReadOnly=false;
   Edit21->ReadOnly=false;
   Edit22->ReadOnly=false;
   Edit23->ReadOnly=false;
   Edit24->ReadOnly=false;
   Edit25->ReadOnly=false;
   Edit26->ReadOnly=false;
   Edit27->ReadOnly=false;
   Edit28->ReadOnly=false;
   //---------------------
   BitBtn6->Enabled=false;
   BitBtn4->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TsysFacForm::FormShow(TObject *Sender)
{
     Edit1->ReadOnly=true;
     Edit2->ReadOnly=true;
     Edit3->ReadOnly=true;
     Edit4->ReadOnly=true;
     Edit5->ReadOnly=true;
     Edit6->ReadOnly=true;
     Edit7->ReadOnly=true;
     Edit8->ReadOnly=true;
     Edit9->ReadOnly=true;
     Edit10->ReadOnly=true;
     Edit11->ReadOnly=true;
     Edit12->ReadOnly=true;
     BitBtn4->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TsysFacForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   ParForm->Visible=true;
}
//---------------------------------------------------------------------------