main.cpp

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

 ||Key==40||Key==46||Key==16||Key==17||Key==3318||Key==19||Key==20)  ;
        else
        {ShowMessage("请输入数字");Edit25->Text="0";}
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Edit26KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if((Key>47&&Key<58)||Key==8||(Key>95&&Key<106))
 {if (Edit26->Text==""||Edit26->Text.ToInt()==0) {Edit26->Text='1';Edit26->SelectAll(); return;}
 else if(Edit26->Text.ToInt()>65535)
 {ShowMessage("请输入1至65535之间的数");Edit26->Text='1';}
 }
 else  {if(Key==13||Key==33||Key==34||Key==35||Key==36||Key==37||Key==38||Key==39
 ||Key==40||Key==46||Key==16||Key==17||Key==3318||Key==19||Key==20)  ;
        else
        {ShowMessage("请输入数字");Edit26->Text="1";}
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Edit6KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if((Key>47&&Key<58)||Key==8||(Key>95&&Key<106))
 {if (Edit6->Text==""||Edit6->Text.ToInt()==0) {Edit6->Text='1';Edit6->SelectAll(); return;}
 else if(Edit6->Text.ToInt()>3600)
 {ShowMessage("请输入0至3600之间的数");Edit6->Text='1';}
 }
 else  {if(Key==13||Key==33||Key==34||Key==35||Key==36||Key==37||Key==38||Key==39
 ||Key==40||Key==46||Key==16||Key==17||Key==3318||Key==19||Key==20)  ;
        else
        {ShowMessage("请输入数字");Edit6->Text="1";}
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Edit22KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if((Key>47&&Key<58)||Key==8||(Key>95&&Key<106))
 {if (Edit22->Text==""||Edit22->Text.ToInt()==0) {Edit22->Text='0';Edit22->SelectAll(); return;}
 else if(Edit22->Text.ToInt()>255)
 {ShowMessage("请输入0至255之间的数");Edit22->Text='0';}
 }
 else  {if(Key==13||Key==33||Key==34||Key==35||Key==36||Key==37||Key==38||Key==39
 ||Key==40||Key==46||Key==16||Key==17||Key==3318||Key==19||Key==20)  ;
        else
        {ShowMessage("请输入数字");Edit22->Text="0";}
        }
}
//---------------------------------------------------------------------------

int fan=0;
int timerdgtflag=0;
void __fastcall TFormMain::TimerAlgDispTimer(TObject *Sender)
{
 TimerAlgDisp->Enabled=false;
 if(autoread==1||read==1) {if(Edit15->Text=="") return;
                          }
 if(fan==1) {fan=0; rxdata[5]=40;}
 GetAlg=0;
 //if(ReadOut==1&&(autoread==1||read==1)) goto L1293;
// char temperature;
 char temperature[7];
 for(int i=0;i<7;i++) temperature[i]=rxdata[5+i];
// temperature=rxdata[11];
 if(rxdata[5]>32||rxdata[5]<16) Edit9->Text="--";
 else Edit9->Text=IntToStr(temperature[0])+" ℃";
 Edit7->Text=IntToStr(temperature[1])+" ℃";
 Edit8->Text=IntToStr(temperature[2])+" ℃";
 Edit14->Text=IntToStr(temperature[3])+" ℃";
 Edit13->Text=IntToStr(temperature[4])+" ℃";
 Edit12->Text=IntToStr(temperature[5])+" ℃";

 Edit11->Text=IntToStr(temperature[6])+" ℃";
 Edit10->Text=IntToStr(rxdata[12]);
// L1293:;
if(autoread==1)  RecordData();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::TimerDgtDispTimer(TObject *Sender)
{
 TimerDgtDisp->Enabled=false;
 GetDgt=0;fan=0;
 timerdgtflag=1;
 if(rxdata[5]==0x01) Edit15->Text="开机状态";
 else if(rxdata[5]==0x02) Edit15->Text="关机状态";
 else if(rxdata[5]==0x00) Edit15->Text="关机状态";
 if(rxdata[6]==0x01) Edit18->Text="扫描";
 else if(rxdata[6]==0x02) Edit18->Text="静止";
 if(rxdata[7]==0x01) Edit19->Text="制热";
 else if(rxdata[7]==0x02) Edit19->Text="制冷";
 else if(rxdata[7]==0x03) {Edit19->Text="风扇";fan=1;}
 else if(rxdata[7]==0x04) Edit19->Text="除湿";
 else if(rxdata[7]==0x05) Edit19->Text="自动";

 if(rxdata[8]==0x01) { Edit20->Text="自动"; }
 else if(rxdata[8]==0x02) Edit20->Text="大";
 else if(rxdata[8]==0x03) Edit20->Text="中";
 else if(rxdata[8]==0x04) Edit20->Text="小";
 if(rxdata[9]==0x04) Edit17->Text="E "+IntToStr(rxdata[10]);
 else if(rxdata[9]==0x05) Edit17->Text="E "+IntToStr(rxdata[10]+16);
 else if(rxdata[9]==0x06) Edit17->Text="F "+IntToStr(rxdata[10]);
 else if(rxdata[9]==0x07) Edit17->Text="F "+IntToStr(rxdata[10]+16);
 else if(rxdata[9]==0x08) Edit17->Text="H "+IntToStr(rxdata[10]);
 else if(rxdata[9]==0x09) Edit17->Text="H "+IntToStr(rxdata[10]+16);
 else if(rxdata[9]==0x0c) Edit17->Text="L "+IntToStr(rxdata[10]);
 else if(rxdata[9]==0x0d) Edit17->Text="L "+IntToStr(rxdata[10]+16);
 else if(rxdata[9]==0x0e) Edit17->Text="P "+IntToStr(rxdata[10]);
 else if(rxdata[9]==0x0f) Edit17->Text="P "+IntToStr(rxdata[10]+16);
 else Edit17->Text="00";


 //Edit16->Text=VersionInfo;
// RecordData();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Memo1Change(TObject *Sender)
{
 if(Memo1->Lines->Capacity>100) Memo1->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::Memo2Change(TObject *Sender)
{
  if(Memo2->Lines->Capacity>100) Memo2->Clear(); 
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::F2Click(TObject *Sender)
{
 createTree();
 TreeView1->Refresh();       
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::E1Click(TObject *Sender)
{          //expand all node of tree
 TreeView1->FullExpand();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::C1Click(TObject *Sender)
{          //collapse all nodes of tree
 TreeView1->FullCollapse();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::TablePAfterRefresh(TDataSet *DataSet)
{
  createTree();        
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::P2Click(TObject *Sender)
{
//Add shebei by pop menu

 TablePS->First();
 if(TablePS->RecordCount==0||TablePS->FieldByName("PassWord")->AsString=="") goto L1723;
 if(PasswordDlg->ShowModal()==1) ;
 else return;
 if(Edit16->Text=="0") return;
 else Edit16->Text="0";
L1723:;



Form2->Edit3->Text=TreeView1->Selected->Text;
TableP->First();
for(int i=0;i<TableP->RecordCount;i++)
 {if(TableP->FieldByName("LocName")->AsString==TreeView1->Selected->Text)
    {Form2->ComboBox1->Text=TableP->FieldByName("LocNum")->AsString;Form2->ComboBox1->Enabled=false;
    break;}
  TableP->Next();
  }
 Form2->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::R2Click(TObject *Sender)
{
 TablePS->First();
 if(TablePS->RecordCount==0||TablePS->FieldByName("PassWord")->AsString=="") goto L1728;
 if(PasswordDlg->ShowModal()==1) ;
 else return;
 if(Edit16->Text=="0") return;
 else Edit16->Text="0";
L1728:;

String Str01,Str02;//,Str03,Str04,Str05,Str06,Str07;
String Str03,Str04,Str05,Str06,Str07,Str08;
Str03="确定要从本系统中删除“  ";
Str04="”  的所有设备吗?";
Str05="确定要从本系统中删除设备“  ";
Str06="”  吗?";
Str07=Str03+TreeView1->Selected->Text+Str04;
Str08=Str05+TreeView1->Selected->Text+Str06;
char *Char01;
char *Char02;
//Char01=Str07.c_str();
Char02=Str08.c_str();

if(TreeView1->Selected->Level==1)
{
// String Str01=MessageBox(0,Char01,"系统提示",MB_OKCANCEL);
// if(Str01==IDOK)    ;
// else return;
// TableP->Filtered=false;

// TableP->First();
// TableP->Edit();
// L1722:;
// if(TreeView1->Selected->Text==TableP->FieldByName("LocName")->AsString)
//       {
//       TableP->Delete();}
//
//       TableP->Next();
//       if(!TableP->Eof) goto L1722;
 //  TableP->Refresh();

   ;

 }
else if(TreeView1->Selected->Level==2)
{
 String Str02=MessageBox(0,Char02,"系统提示",MB_OKCANCEL);
 if(Str02==IDOK)    ;
 else return;


 TableP->First();
 for(int i=0;i<TableP->RecordCount;i++)
   {if(TreeView1->Selected->Text==TableP->FieldByName("Name")->AsString)
       {TableP->Edit();
       TableP->Delete();}
       TableP->Next(); }
   TableP->Refresh();
}
sub3node=TreeView1->Items->GetFirstNode();
sub3node->Selected=true;


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

void __fastcall TFormMain::G1Click(TObject *Sender)
{
//change name by pop menu
if(TreeView1->Selected->Level==0)
   {Form1->Edit1->Text=FormMain->TreeView1->Selected->Text;
    Form1->Edit1->SelectAll();
    Form1->StaticText1->Caption="系统名称：";
    Form1->Caption="修改系统名称";
    Form1->ShowModal();}
else if(TreeView1->Selected->Level==1)
   {Form1->Edit1->Text=FormMain->TreeView1->Selected->Text;
    Form1->Edit1->SelectAll();
    Form1->StaticText1->Caption="单元名称：";
    Form1->Caption="修改单元名称";
    Form1->Edit2->Text=FormMain->TreeView1->Selected->Text;
    Form1->ShowModal();}
else if(TreeView1->Selected->Level==2)
   {Form1->Edit1->Text=FormMain->TreeView1->Selected->Text;
    Form1->Edit1->SelectAll();
    Form1->StaticText1->Caption="设备名称：";
    Form1->Caption="修改设备名称";
    Form1->Edit2->Text=FormMain->TreeView1->Selected->Text;
    Form1->ShowModal();} 
}
//---------------------------------------------------------------------------



void __fastcall TFormMain::PopupMenu1Popup(TObject *Sender)
{
 if(TreeView1->Selected->Level==2)
 { R2->Enabled=true;}
 else { R2->Enabled=false;}
 if(TreeView1->Selected->Level!=1)
  P2->Enabled=false;
 else P2->Enabled=true;
 if(TreeView1->Selected->Level!=2)
  {T2->Enabled=false; S2->Enabled=false;}
 else {T2->Enabled=true;S2->Enabled=true;}

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


void __fastcall TFormMain::T2Click(TObject *Sender)
{          //Modify attribute of product
//
 TablePS->First();
 if(TablePS->RecordCount==0||TablePS->FieldByName("PassWord")->AsString=="") goto L1859;
 if(PasswordDlg->ShowModal()==1) ;
 else return;
 if(Edit16->Text=="0") return;
 else Edit16->Text="0";
L1859:;

 Form5->Edit1->Text=TreeView1->Selected->Text;
 Form5->Edit4->Text=TreeView1->Selected->Text;
 Form5->ShowModal();      
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::BitBtn35Click(TObject *Sender)
{                          //Modify remark
 BitBtn4->Enabled=true;
// DBMemoP->Enabled=true;
 DBMemoP->ReadOnly=false;
 DBMemoP->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::TreeView1Changing(TObject *Sender,
      TTreeNode *Node, bool &AllowChange)
{
 if(Node->Level!=2) return;
 TableP->First();
 for(int i=0;i<TableP->RecordCount;i++)
  {if(Node->Text==TableP->FieldByName("Name")->AsString)
      {Edit2->Text=TableP->FieldByName("Addr")->AsString;
       Edit27->Text=TableP->FieldByName("LocNum")->AsString;
       Edit28->Text=TableP->FieldByName("LocName")->AsString;
       return;}
   TableP->Next();}


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

void __fastcall TFormMain::S2Click(TObject *Sender)
{
 PageControl1->ActivePageIndex=0;
 BitBtn16->Click();        
}
//---------------------------------------------------------------------------


void __fastcall TFormMain::B1Click(TObject *Sender)
{
 PageControl1->ActivePageIndex=1;        
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::TreeView1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 if(TreeView1->GetNodeAt(X,Y)==NULL)
    {TreeView1->Selected=TreeView1->Items->GetFirstNode();
    
    return;}
 sub2node=TreeView1->GetNodeAt(X,Y);
 sub2node->Selected=true;
if(sub2node->Level!=0)
  sub2node->SelectedIndex=4;

 if(sub2node->Level!=0)
 {
   if(sub2node->Level==1)
   {
   TableP->First();
    for(int i=0;i<TableP->RecordCount;i++)
     {if(TableP->FieldByName("LocName")->AsString==sub2node->Text)
         {Edit27->Text=TableP->FieldByName("LocNum")->AsString;break;}
      TableP->Next();}
    }
 else if(sub2node->Level==2)
    {
    sub4node=sub2node->Parent;
     TableP->First();
     for(int i=0;i<TableP->RecordCount;i++)
     {if(TableP->FieldByName("LocName")->AsString==sub4node->Text)
         {Edit27->Text=TableP->FieldByName("LocNum")->AsString;break;}
      TableP->Next();}
     }
}
}
//---------------------------------------------------------------------------



void __fastcall TFormMain::S3Click(TObject *Sender)
{
if(autoread==1) {ShowMessage("请先停止自动监控！");return;}
 Comm1->PortOpen=false;
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::BitBtn36Click(TObject *Sender)
{ //Display alarm records
 String sign,Str1;
String addrflt;
sign="'";
Str1="true";
addrflt="IsAlm="+sign+Str1+sign;
TableD->Filter=addrflt;
TableD->Filtered=true;
TableD->Refresh();
//if(TableD->