recvdata.~pas

使用Delphi 6.0开发用于控制空调的程序

//                   Parameters.ParamByName('TC').Value := ReMsg.ACTemp.iCloseTemp;
//                   Parameters.ParamByName('TH').Value := ReMsg.ACTemp.iReturnTempCeiling;
//                   Parameters.ParamByName('TL').Value := ReMsg.ACTemp.iReturnTempLimit;
//                   Parameters.ParamByName('HC').Value := ReMsg.ACTemp.iReturnHumidityCeiling;
//                   Parameters.ParamByName('HL').Value := ReMsg.ACTemp.iReturnHumidityLimit;
//                   ExecSQL;
//                end;
//        finally
//                qry.Free;
//        end;
//        end;
//        Data.frmData.iGAP := 0;
//       mmo2.Lines.Add('获取设定参数数据已经成功的将数据插入数据库中！');
//     end;  
   //   **************获取设定参数****************************/
      //**************回风温度警告状态****************************/
//     if Data.frmData.iWaring = 1 then
//     begin
//       ReMsg.COWS;
//       if ReMsg.strError <> '正常' then
//       begin
//         frmData.statData.SimpleText := '接收到的数据出错:'+ReMsg.strError ;
//         Exit;
//       end;
//       frmData.edtRNTempWaringState.Text := ReMsg.ACTemp.strWaringState[7];
//     // mmo2.Lines.Add('回风温度警告状态数据已经成功的将数据显示在数据窗口！');
//      if iSave = 1 then
//      begin
//       try
//                qry := TADOQuery.Create(qry);
//                qry.Connection := frmain.conAir;
//                with qry do
//                begin
//                   Close;
//                   SQL.Clear;
//                   SQL.Add('insert into WaringState(时间,空调地址,回风温度)');
//                   SQL.Add('VALUES(:sj,:ADD,:Temp)');
//                   Parameters.ParamByName('sj').Value := Now;
//                   Parameters.ParamByName('ADD').Value := ReMsg.ACTemp.strAddress;
//                   Parameters.ParamByName('Temp').Value := ReMsg.ACTemp.strWaringState[7];
//                   ExecSQL;
//                end;
//                //   mmo2.Lines.Add('回风温度警告状态数据已经成功的将数据插入数据库中！');
//        finally
//                qry.Free;
//        end;
//        end;
//        Data.frmData.iWaring := 0;
//
//     end;
     strSBB := Copy(tempStr,14,3);
     strLenID := Copy(tempStr,10,4);
     if (strSBB = '400') and (strLenID = '201D') then
     begin
         ReMsg.ReadInfo;
         if ReMsg.strError <> '正常' then
         begin
            frmain.statMain.SimpleText := '接收到的数据出错:'+ReMsg.strError ;
            Exit;
         end;
        if ReMsg.ACTemp.strAddress = '01' then
        begin
          frmain.edtSetTemp1.text := IntToStr(ReMsg.ACTemp.iSetTemp);
          frmain.edtRTTemp1.text := IntToStr(ReMsg.ACTemp.iRTTemp);
          frmain.edtFan1.Text := ReMsg.ACTemp.strFan1;
        end;
        if ReMsg.ACTemp.strAddress = '02' then
        begin
          frmain.edtSetTemp2.text := IntToStr(ReMsg.ACTemp.iSetTemp);
          frmain.edtRTTemp2.text := IntToStr(ReMsg.ACTemp.iRTTemp);
          frmain.edtFan2.Text := ReMsg.ACTemp.strFan1;
        end;
        if ReMsg.ACTemp.strAddress = '03' then
        begin
          frmain.edtSetTemp3.text := IntToStr(ReMsg.ACTemp.iSetTemp);
          frmain.edtRTTemp3.text := IntToStr(ReMsg.ACTemp.iRTTemp);
          frmain.edtFan3.Text := ReMsg.ACTemp.strFan1;
        end;
         
     end;  
     //**************回风温度警告状态****************************/
//     **************回风温度值****************************/
//     if Data.frmData.iCORP = 1 then
//     begin
//        ReMsg.CORP;
//        if ReMsg.strError <> '正常' then
//       begin
//         frmData.statData.SimpleText := '接收到的数据出错:'+ReMsg.strError ;
//         Exit;
//       end;
//        if frmData.Showing then
//        begin
//         Data.frmData.iCORP := 0;
//         frmData.edtRnTemp.Text := IntToStr(ReMsg.ACTemp.iDataTemp[8]);
//        end;
//       mmo2.Lines.Add('回风温度值已经成功的将数据显示在数据窗口！');
        //主窗体
//        if ReMsg.ACTemp.strAddress = '01' then
//        begin
//          frmain.edtRTTemp1.Text := IntToStr(ReMsg.ACTemp.iDataTemp[8]);
//        end;
//        if ReMsg.ACTemp.strAddress = '02' then
//        begin
//          frmain.edtRTTemp2.Text := IntToStr(ReMsg.ACTemp.iDataTemp[8]);
//        end;
//        if ReMsg.ACTemp.strAddress = '03' then
//        begin
//          frmain.edtRTTemp3.Text := IntToStr(ReMsg.ACTemp.iDataTemp[8]);
//        end;
        //主窗体
//        if iSave = 1 then
//        begin
//        try
//                qry := TADOQuery.Create(qry);
//                qry.Connection := frmain.conAir;
//                with qry do
//                begin
//                   Close;
//                   SQL.Clear;
//                   SQL.Add('insert into ACData(时间,id,ACAddress,回风温度)');
//                   SQL.Add('VALUES(:sj,:IID,:ADD,:Temp)');
//                   Parameters.ParamByName('sj').Value := Now;
//                   Parameters.ParamByName('IID').Value := '00';
//                   Parameters.ParamByName('ADD').Value := ReMsg.ACTemp.strAddress;
//                   Parameters.ParamByName('Temp').Value := ReMsg.ACTemp.iDataTemp[8];
//                   ExecSQL;
//                end;
//             mmo2.Lines.Add('回风温度值已经成功的将数据插入数据库中！');
//        finally
//                qry.Free;
//        end;
//        end;
//        Data.frmData.iCORP := 0;
//     end;
     //**************回风温度值****************************/
     //**************运转数据状态****************************/
     if Data.frmData.iCOOP = 1 then
     begin
        ReMsg.COOPS;
        if ReMsg.strError <> '正常' then
       begin
         frmData.statData.SimpleText := '接收到的数据出错:'+ReMsg.strError ;
         Exit;
       end;
        if frmData.Showing then
        begin
         //Data.frmData.iCORP := 0;
         frmData.edtACState.Text := ReMsg.ACTemp.strRunState[1];
         frmData.edtJSQState.Text := ReMsg.ACTemp.strRunState[2];
         frmData.edtDJRState.Text := ReMsg.ACTemp.strRunState[3];
         frmData.edtFansState.Text := ReMsg.ACTemp.strRunState[4];
         frmData.edtCompState.Text := ReMsg.ACTemp.strRunState[5];
         frmData.edtFilterState.Text := ReMsg.ACTemp.strRunState[6];
         frmData.edtAttentionstate.Text := ReMsg.ACTemp.strRunState[7];
         frmData.edtWaringState.Text := ReMsg.ACTemp.strRunState[8];
         frmData.edtAbalState.Text := ReMsg.ACTemp.strRunState[9];
         frmData.edtRunState.Text := ReMsg.ACTemp.strRunState[10];
        end;
    //  mmo2.Lines.Add('运转数据状态已经成功的将数据显示在数据窗口！');
        /////////主窗体
        if ReMsg.ACTemp.strAddress = '01' then
        begin
            frmain.edtRunState1.Text := ReMsg.ACTemp.strRunState[10];
            frmain.edtAirState1.Text := ReMsg.ACTemp.strRunState[1];
            frmain.edtFanState1.Text := ReMsg.ACTemp.strRunState[4];
            frmain.edtWaringState1.Text := ReMsg.ACTemp.strRunState[8];
        end;
        if ReMsg.ACTemp.strAddress = '02' then
        begin
            frmain.edtRunState2.Text := ReMsg.ACTemp.strRunState[10];
            frmain.edtAirState2.Text := ReMsg.ACTemp.strRunState[1];
            frmain.edtFanState2.Text := ReMsg.ACTemp.strRunState[4];
            frmain.edtWaringState2.Text := ReMsg.ACTemp.strRunState[8];
        end;
        if ReMsg.ACTemp.strAddress = '03' then
        begin
            frmain.edtRunState3.Text := ReMsg.ACTemp.strRunState[10];
            frmain.edtAirState3.Text := ReMsg.ACTemp.strRunState[1];
            frmain.edtFanState3.Text := ReMsg.ACTemp.strRunState[4];
            frmain.edtWaringState3.Text := ReMsg.ACTemp.strRunState[8];
        end;
        ///////// 主窗体
        if iSave = 1 then
       begin
        try
                qry := TADOQuery.Create(qry);
                qry.Connection := frmain.conAir;
                with qry do
                begin
                   Close;
                   SQL.Clear;
                   SQL.Add('insert into RunState(时间,id,空调地址,空调状态,加湿器状态,电加热器状态,');
                   SQL.Add('风扇状态,压缩机状态,过滤网状态,注意报状态,警报状态,异常状态,运转状态)');
                   SQL.Add('VALUES(:sj,:IID,:ADD,:AC,:JSQ,:DJR,:FANS,:COMP,:FILTER,:ATT,');
                   SQL.Add(':WAR,:ABL,:RUN)');
                   Parameters.ParamByName('sj').Value := Now;
                   Parameters.ParamByName('IID').Value := '00';
                   Parameters.ParamByName('ADD').Value := ReMsg.ACTemp.strAddress;
                   Parameters.ParamByName('AC').Value := ReMsg.ACTemp.strRunState[1];
                   Parameters.ParamByName('JSQ').Value := ReMsg.ACTemp.strRunState[2];
                   Parameters.ParamByName('DJR').Value := ReMsg.ACTemp.strRunState[3];
                   Parameters.ParamByName('FANS').Value := ReMsg.ACTemp.strRunState[4];
                   Parameters.ParamByName('COMP').Value := ReMsg.ACTemp.strRunState[5];
                   Parameters.ParamByName('FILTER').Value := ReMsg.ACTemp.strRunState[6];
                   Parameters.ParamByName('ATT').Value := ReMsg.ACTemp.strRunState[7];
                   Parameters.ParamByName('WAR').Value := ReMsg.ACTemp.strRunState[8];
                   Parameters.ParamByName('ABL').Value := ReMsg.ACTemp.strRunState[9];
                   Parameters.ParamByName('RUN').Value := ReMsg.ACTemp.strRunState[10]; 
                   ExecSQL;
                   // mmo2.Lines.Add('运转数据状态数据已经成功的将数据插入数据库中！');
                end;
        finally
                qry.Free;
        end;
        end;
        Data.frmData.iCOOP := 0;  
     end;
     //**************运转数据状态****************************/
      ReMsg.Free;
    end;

    end;
    if iSave = 1 then
      iSave := 0;
end;  

end.