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(Edit9->Text);
     SysFactor[9]=StrToInt(Edit10->Text);
     SysFactor[10]=StrToInt(Edit11->Text);
     SysFactor[11]=StrToInt(Edit12->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;
     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;
   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;
}
//---------------------------------------------------------------------------