changename.~cpp

实现RS232数据采集处理,设置RS23传输参数,显示控制终端的数据.

//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ChangeName.h"
#include "main.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
String rootname2="rootname.txt";
String rootname3;
int form1canclose=0;
//----------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent *Owner)
	: TForm(Owner)
{
}
//----------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 //Edit1->Text=FormMain->TreeView1->Selected->Text;
// if(FormMain->TreeView1->Selected->Level==0)
//     StaticText1->Caption="系统名称";
// else if(FormMain->TreeView1->Selected->Level==1)
//     StaticText1->Caption="单元名称";
// else if(FormMain->TreeView1->Selected->Level==2)
//     StaticText1->Caption="设备名称";
 String path;
 path=GetCurrentDir();
 Table1->TableName=path+"\\"+"shebei";
 Table1->Active=true;
 Edit1->SelectAll();
 rootname3=path+"\\"+rootname2;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ //OK button click



 if(FormMain->TreeView1->Selected->Level==0)
   {FormMain->TreeView1->Selected->Text=Edit1->Text;
    FormMain->Memo3->Text=Edit1->Text;
    FormMain->Memo3->Lines->SaveToFile(rootname3);}
 else if(FormMain->TreeView1->Selected->Level==1)
   {//check if the name repeated
   Table1->First();
   for(int i=0;i<Table1->RecordCount;i++)
   {if(Edit1->Text==Table1->FieldByName("LocName")->AsString)
      {ShowMessage("组/单元名已经存在，请重命名");return;}
    Table1->Next();}


   Table1->First();
   //Table1->Edit();
   for(int i=0;i<Table1->RecordCount;i++)
   {//Table1->Edit();
   if(Table1->FieldByName("LocName")->AsString==Edit2->Text)
      {Table1->Edit();
      Table1->FieldByName("LocName")->AsString=Edit1->Text;
      Table1->Post();}
   Table1->Next();
   }
   FormMain->TreeView1->Selected->Text=Edit1->Text;
   //Table1->Post();
   }
 else if(FormMain->TreeView1->Selected->Level==2)
   {//check if the name repeated
   Table1->First();
   for(int i=0;i<Table1->RecordCount;i++)
   {if(Edit1->Text==Table1->FieldByName("Name")->AsString)
      {ShowMessage("设备名已经存在，请重命名");return;}
    Table1->Next();}

   Table1->First();
   //Table1->Edit();
   for(int i=0;i<Table1->RecordCount;i++)
   {//Table1->Edit();
   if(Table1->FieldByName("Name")->AsString==Edit2->Text)
      {Table1->Edit();
      Table1->FieldByName("Name")->AsString=Edit1->Text;
      Table1->Post();}
   Table1->Next();
   }
   FormMain->TreeView1->Selected->Text=Edit1->Text;
   //Table1->Post();
   }
 FormMain->TableP->Refresh();
 Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
 Form1->Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
 if(FormMain->TreeView1->Selected->Level==0) Edit1->MaxLength=40;
 else if(FormMain->TreeView1->Selected->Level==1) Edit1->MaxLength=30;
 else if(FormMain->TreeView1->Selected->Level==2) Edit1->MaxLength=20;
 Edit1->SelectAll();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 if(form1canclose==1) form1canclose=0;
 else {CanClose=false; return;}       
}
//---------------------------------------------------------------------------