unitorder0.pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置DSP-温度控制上限';
  FormOrderMsg.MyPos.iLeft := BtnDspMaxT.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspMaxT.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 55;
    StrMsg := '指令:客户端向服务器发送指令(55)：设置DSP-温度控制上限';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;


procedure TFormOrder0.BtnDspMinTClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置DSP-温度控制下限';
  FormOrderMsg.MyPos.iLeft := BtnDspMinT.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspMinT.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 56;
    StrMsg := '指令:客户端向服务器发送指令(56)：设置DSP-温度控制下限';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;


procedure TFormOrder0.BtnDspMaxXBClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置DSP-谐波控制上限';
  FormOrderMsg.MyPos.iLeft := BtnDspMaxXB.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspMaxXB.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 57;
    StrMsg := '指令:客户端向服务器发送指令(57)：设置DSP-谐波控制上限';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;


procedure TFormOrder0.BtnDspTQTimeClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置DSP-投切周期(秒)';
  FormOrderMsg.MyPos.iLeft := BtnDspTQTime.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspTQTime.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 58;
    StrMsg := '指令:客户端向服务器发送指令(58)：设置DSP-投切周期(分)';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;


procedure TFormOrder0.BtnDspLQTimeClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置DSP-冷却时间(秒)';
  FormOrderMsg.MyPos.iLeft := BtnDspLQTime.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspLQTime.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 59;
    StrMsg := '指令:客户端向服务器发送指令(59)：设置DSP-冷却时间(分)';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.BtnDspGetParaClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '读取DSP-参数信息';
  FormOrderMsg.MyPos.iLeft := BtnDspGetPara.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspGetPara.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 50;
    StrMsg := '指令:客户端向服务器发送指令(50)：读取DSP-参数信息';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.Btn196DataClearClick(Sender: TObject);
var
  strMsg    : string;
  bCheckPwd : boolean;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '所有数据清零';

  //0 取消登录
  //1 Guest登录成功
  //2 管理员登录成功
  //3 程序员级别的密码
  //4 密码输入错误超过三次
  //////////////////////////////////////////////////////
  FormLogin.MyPwd   := FormMain.MyPwd;
  FormLogin.MyTitle := '权限验证';
  FormLogin.ShowModal();

  case FormLogin.MyValue of
    0:begin
        bCheckPwd := False;
      end;
    1:begin
        MessageBox(self.Handle, pAnsiChar('Guest没有【' + FormOrderMsg.PanelMsg.Caption + '】操作的权限'), '警告', MB_ICONSTOP);
        bCheckPwd := False;
      end;
    2:begin
        MessageBox(self.Handle, pAnsiChar('普通管理员没有【' + FormOrderMsg.PanelMsg.Caption + '】操作的权限'), '警告', MB_ICONSTOP);
        bCheckPwd := False;
      end;
    3:begin
        bCheckPwd := True;
      end;
    4:begin
        MessageBox(self.Handle,'密码输入错误超过三次', '密码错误', MB_ICONSTOP);
        bCheckPwd := False;
      end;
    else begin
           bCheckPwd := False;
         end;
  end;

  if bCheckPwd = True then
  begin //if  bCheckPwd

    FormOrderMsg.MyPos.iLeft := Btn196DataClear.ClientOrigin.X;
    FormOrderMsg.MyPos.iTop  := Btn196DataClear.ClientOrigin.Y;

    FormOrderMsg.Width := 250;
    FormOrderMsg.EditPara.Visible := False;
    FormOrderMsg.ShowModal();

    if FormOrderMsg.iBtnClick = 1 then
    begin
      OrderType := 16;
      StrMsg := '指令:客户端向服务器发送指令(16)：所有数据清零';
      SendUdpOrder(OrderType, StrMsg);
    end;
  end;  //if bCheckPwd
end;

procedure TFormOrder0.BtnDspCurrXBClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '取DSP-实时谐波数据';
  FormOrderMsg.MyPos.iLeft := BtnDspCurrXB.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspCurrXB.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 46;
    StrMsg := '指令:客户端向服务器发送指令(46)：取DSP-实时谐波数据';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.BtnDspMonthMaxXBClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '取DSP-本月谐波最大值';
  FormOrderMsg.MyPos.iLeft := BtnDspMonthMaxXB.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspMonthMaxXB.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 45;
    StrMsg := '指令:客户端向服务器发送指令(45)：取DSP-本月谐波最大值';
    OrderPara := '3';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.BtnDspMonthMaxXB2Click(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '取DSP-上月谐波最大值';
  FormOrderMsg.MyPos.iLeft := BtnDspMonthMaxXB2.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDspMonthMaxXB2.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 45;
    StrMsg := '指令:客户端向服务器发送指令(45)：取DSP-上月谐波最大值';
    OrderPara := '4';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.Btn196DataInitClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置:正相有功电能,1位小数';
  FormOrderMsg.MyPos.iLeft := Btn196DataInit.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := Btn196DataInit.ClientOrigin.Y;

  FormOrderMsg.PanelMsg.Alignment := taLeftJustify;

  FormOrderMsg.Width := 280;
  FormOrderMsg.EditPara.Text    := '0.0';
  FormOrderMsg.EditPara.Visible := True;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 17;
    StrMsg := '指令:客户端向服务器发送指令(17)：设置正相有功电能';
    OrderPara := FormOrderMsg.EditPara.Text;
    SendUdpOrder(OrderType, StrMsg);
  end;

  FormOrderMsg.PanelMsg.Alignment := taCenter;
end;

procedure TFormOrder0.BtnMdSet06Click(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '  设置:模块心跳间隔(分钟)';
  FormOrderMsg.MyPos.iLeft := BtnMdSet06.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMdSet06.ClientOrigin.Y;

  FormOrderMsg.PanelMsg.Alignment := taLeftJustify;
  
  FormOrderMsg.Width := 280;
  FormOrderMsg.EditPara.Text    := '60';
  FormOrderMsg.EditPara.Visible := True;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 23;
    StrMsg := '指令:客户端向服务器发送指令(23)：设置模块心跳间隔(分钟)';
    OrderPara := FormOrderMsg.EditPara.Text;
    SendUdpOrder(OrderType, StrMsg);
  end;

  FormOrderMsg.PanelMsg.Alignment := taCenter;
end;

procedure TFormOrder0.BtnMdSetApnClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '设置:模块APN,User,IP';
  FormOrderMsg.MyPos.iLeft := BtnMdSetApn.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMdSetApn.ClientOrigin.Y;

  FormOrderMsg.PanelMsg.Alignment := taLeftJustify;

  FormOrderMsg.Width := 730;
  FormOrderMsg.EditPara1.Visible := True;
  FormOrderMsg.EditPara2.Visible := True;
  FormOrderMsg.EditPara3.Visible := True;

  //FormOrderMsg.EditPara.Text     := '123';
  //FormOrderMsg.EditPara2.Text    := '123';
  //FormOrderMsg.EditPara3.Text    := '123';
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 24;
    StrMsg := '指令:客户端向服务器发送指令(24)：设置模块APN, USER, IP';
    OrderPara := char(Length(Trim(FormOrderMsg.EditPara1.Text))) +
                 char(Length(Trim(FormOrderMsg.EditPara2.Text))) +
                 char(Length(Trim(FormOrderMsg.EditPara3.Text))) +
                 Trim(FormOrderMsg.EditPara1.Text) +
                 Trim(FormOrderMsg.EditPara2.Text) +
                 Trim(FormOrderMsg.EditPara3.Text);
                 
    SendUdpOrder(OrderType, StrMsg);
  end;

  FormOrderMsg.PanelMsg.Alignment := taCenter;
  FormOrderMsg.EditPara1.Visible  := False;
  FormOrderMsg.EditPara2.Visible  := False;
  FormOrderMsg.EditPara3.Visible  := False;
end;

procedure TFormOrder0.BtnMdGetParaClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '读取模块参数';
  FormOrderMsg.MyPos.iLeft := BtnMdGetPara.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMdGetPara.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 25;
    StrMsg := '指令:客户端向服务器发送指令(25)：读取模块参数';
    OrderPara := FormOrderMsg.EditPara.Text;
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.BtnMdClearStatClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '清空模块状态';
  FormOrderMsg.MyPos.iLeft := BtnMdClearStat.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMdClearStat.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 26;
    StrMsg := '指令:客户端向服务器发送指令(26)：清空模块状态';
    OrderPara := FormOrderMsg.EditPara.Text;
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder0.BtnMdGetStatClick(Sender: TObject);
var
  StrMsg    : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '读取模块状态';
  FormOrderMsg.MyPos.iLeft := BtnMdGetStat.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMdGetStat.ClientOrigin.Y;

  FormOrderMsg.Width := 250;
  FormOrderMsg.EditPara.Visible := False;
  FormOrderMsg.ShowModal();

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 27;
    StrMsg := '指令:客户端向服务器发送指令(27)：读取模块状态';
    OrderPara := FormOrderMsg.EditPara.Text;
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

end.