main.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include"PCom.h"
//#include"rethread.h"
//#include "jzh.h"
#include "mn.h"
#include "loop3.h"
#include "csh.h"
#include "unit1.h"
#include <IniFiles.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)
{

  TIniFile *ini;
  //改变文件扩展名
  ini=new TIniFile(ChangeFileExt(Application->ExeName,".INI"));
  ini->WriteInteger("Form","jm",RG1->ItemIndex);

  delete ini;

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


void __fastcall TForm1::Button3Click(TObject *Sender)
{
   displ=false;   
   //Form1->Visible =false;
   ParForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
   Form5->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
   Form6->Show();     
}
//---------------------------------------------------------------------------
 

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   Form3->Show();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
     Form1->Visible =false;
     ParForm->Show();      
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------