data.~pas

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

unit Data;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, DBCtrls, ComCtrls, ExtCtrls;

type
  TfrmData = class(TForm)
    lbl1: TLabel;
    grp1: TGroupBox;
    Label1: TLabel;
    lbl5: TLabel;
    lbl7: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl6: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    edtOpenTemp: TEdit;
    edtReturnTempCeiling: TEdit;
    edtCloseTemp: TEdit;
    edtReturnTempLimit: TEdit;
    edtReturnHumidityCelling: TEdit;
    edtReturnHumidityLimit: TEdit;
    dblkcbbACAddress: TDBLookupComboBox;
    dblkcbbAddress: TDBLookupComboBox;
    ADOqryAQAC: TADOQuery;
    dsAC: TDataSource;
    ADOqryID: TADOQuery;
    dsID: TDataSource;
    grpState: TGroupBox;
    lbl16: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    lblv: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    lbl17: TLabel;
    lbl18: TLabel;
    edtACState: TEdit;
    edtWaringState: TEdit;
    edtFansState: TEdit;
    edtAbalState: TEdit;
    edtRunState: TEdit;
    edtAttentionstate: TEdit;
    edtJSQState: TEdit;
    edtCompState: TEdit;
    edtDJRState: TEdit;
    edtFilterState: TEdit;
    btnCOOPS: TButton;
    btnGAP: TButton;
    grp2: TGroupBox;
    Label9: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label10: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    lbl15: TLabel;
    Label11: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label12: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Label13: TLabel;
    btnCORP: TButton;
    grp3: TGroupBox;
    Label14: TLabel;
    edtRNTempWaringState: TEdit;
    btnRNTempWaringState: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    statData: TStatusBar;
    edtRnTemp: TEdit;
    procedure btnGAPClick(Sender: TObject);
    procedure btnCOOPSClick(Sender: TObject);
    procedure btnCORPClick(Sender: TObject);
    procedure btnRNTempWaringStateClick(Sender: TObject);
    procedure dblkcbbAddressClick(Sender: TObject);
    procedure DBLookupComboBox2Click(Sender: TObject);
    procedure DBLookupComboBox4Click(Sender: TObject);
    procedure dblkcbbACAddressClick(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure DBLookupComboBox3Click(Sender: TObject);
    procedure dblkcbbACAddressMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure dblkcbbAddressMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure dblkcbbACAddressExit(Sender: TObject);
    procedure DBLookupComboBox1Exit(Sender: TObject);
    procedure DBLookupComboBox3Exit(Sender: TObject);
    procedure DBLookupComboBox2MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DBLookupComboBox4MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DBLookupComboBox1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DBLookupComboBox3MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iCOOP,iGAP,iCORP,iWaring:Integer;
    iTest:Integer ;
  end;

var
  frmData: TfrmData;
  btmr:Boolean;

implementation

{$R *.dfm}

uses
  ControlClass,Main;
procedure TfrmData.btnGAPClick(Sender: TObject);
var
  strLines:string;
  command:TControlCommand;
  add:string;
begin
   add := Trim(dblkcbbAddress.Text);
   if Length(add) = 1 then
   begin
     add := '0'+add;
   end;
   command := TControlCommand.Create(24);
  try                              
     command.GetAccessParametes(add);
     try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          strLines :=command.GetCommandLines;
          if command.GetError = '正常' then
          begin
                  strLines :=command.GetCommandLines;
                  statData.SimpleText := strLines;
                  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));
                  iGAP := 1;
          end
         else
         begin
                 statData.SimpleText := command.GetError;
         end;        
        //  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));
     except
       ShowMessage('打开串口失败,'+ '当前串口名:'+Main.frmain.Spcomm1.CommName+',波特率为:'+IntToStr(Main.frmain.Spcomm1.BaudRate));
     end;
  finally
    command.Free;
  end;

end;

procedure TfrmData.btnCOOPSClick(Sender: TObject);
var
  strLines:string;
  command:TControlCommand;
  add:string;
begin
   add := Trim(DBLookupComboBox2.Text);
   if Length(add) = 1 then
   begin
     add := '0'+add;
   end;
   command := TControlCommand.Create(18);
  try  
     command.CollectionOperationState(add);
     try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          strLines :=command.GetCommandLines;
          if command.GetError = '正常' then
          begin
                  strLines :=command.GetCommandLines;
                  statData.SimpleText := strLines;
                  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));
                  iCOOP := 1;
          end
         else
         begin
                 statData.SimpleText := command.GetError;
         end;

        //  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));
     except
       ShowMessage('打开串口失败,'+ '当前串口名:'+Main.frmain.Spcomm1.CommName+',波特率为:'+IntToStr(Main.frmain.Spcomm1.BaudRate));
     end;
  finally
    command.Free;
  end;

end;

procedure TfrmData.btnCORPClick(Sender: TObject);
var
  strLines:string;
  command:TControlCommand;
  add:string;
begin
   add := Trim(DBLookupComboBox4.Text);
   if Length(add) = 1 then
   begin
    add := '0'+add;
   end;
   command := TControlCommand.Create(18);
  try
     command.CollectionRepresentative(add);
     try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          strLines :=command.GetCommandLines;
          if command.GetError = '正常' then
          begin
                  strLines :=command.GetCommandLines;
                  statData.SimpleText := strLines;
                  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));
                  iCORP := 1;
          end
         else
         begin
                 statData.SimpleText := command.GetError;
         end;
        //  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));
     except
       ShowMessage('打开串口失败,'+ '当前串口名:'+Main.frmain.Spcomm1.CommName+',波特率为:'+IntToStr(Main.frmain.Spcomm1.BaudRate));
     end;
  finally
    command.Free;
  end;

end;

procedure TfrmData.btnRNTempWaringStateClick(Sender: TObject);
var
  strLines:string;
  command:TControlCommand;
  add:string;
begin
   add := Trim(DBLookupComboBox4.Text);
   if Length(add) = 1 then
   begin
    add := '0'+add;
   end;
   command := TControlCommand.Create(18);

  try
     command.CollectionWarmingState(add);
     try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          strLines :=command.GetCommandLines;
          if command.GetError = '正常' then
          begin
                  strLines :=command.GetCommandLines;
                  statData.SimpleText  := strLines;
                  main.frmain.Spcomm1.WriteCommData( PChar(strLines),Length(strLines));