unitorder1.pas

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

  begin
    OrderType := 1;
    StrMsg := '指令:客户端向服务器发送指令(1)：设置负荷数据存储间隔时间';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置负荷数据主动上传(是/否)';
  FormOrderMsg.MyPos.iLeft := BtnAutoSend.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnAutoSend.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 2;
    StrMsg := '指令:客户端向服务器发送指令(2)：设置负荷数据是否主动上传';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设电容器投切存储间隔时间(分钟)';
  FormOrderMsg.MyPos.iLeft := BtnDrqCycle.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDrqCycle.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 3;
    StrMsg := '指令:客户端向服务器发送指令(3)：设置电容器投切间隔时间';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设电容器投切记录数据:级数/容量';
  FormOrderMsg.MyPos.iLeft := BtnDrqDataType.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnDrqDataType.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 4;
    StrMsg := '指令:客户端向服务器发送指令(4)：设置电容器数据形式:级数/容量';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置CT变比';
  FormOrderMsg.MyPos.iLeft := BtnCT.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnCT.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 5;
    StrMsg := '指令:客户端向服务器发送指令(5)：设置CT变比';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置PT变比';
  FormOrderMsg.MyPos.iLeft := BtnPT.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnPT.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 6;
    StrMsg := '指令:客户端向服务器发送指令(6)：设置PT变比';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;


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

  FormOrderMsg.PanelMsg.Caption := '设置月冻结例日(日/时)';
  FormOrderMsg.MyPos.iLeft := BtnFreezeDay.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnFreezeDay.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 7;
    StrMsg := '指令:客户端向服务器发送指令(7)：设置月冻结例日(日/时)';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置每天电能存储时刻(时)';
  FormOrderMsg.MyPos.iLeft := BtnFreezeDN.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnFreezeDN.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 8;
    StrMsg := '指令:客户端向服务器发送指令(8)：设置每天保存电能时刻(时)';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置电压上限值(V)';
  FormOrderMsg.MyPos.iLeft := BtnMaxU.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMaxU.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 9;
    StrMsg := '指令:客户端向服务器发送指令(9)：设置电压越上限数值';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置电压下限值(V)';
  FormOrderMsg.MyPos.iLeft := BtnMinU.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMinU.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 10;
    StrMsg := '指令:客户端向服务器发送指令(10)：设置电压越下限数值';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置电流上限值(A)';
  FormOrderMsg.MyPos.iLeft := BtnMaxI.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnMaxI.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 11;
    StrMsg := '指令:客户端向服务器发送指令(11)：设置电流越上限数值';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderMsg.PanelMsg.Caption := '设置二次额定电流(A)';
  FormOrderMsg.MyPos.iLeft := BtnRatedI.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnRatedI.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 12;
    StrMsg := '指令:客户端向服务器发送指令(12)：设置二次额定电流';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder1.BtnCheckYearClick(Sender: TObject);
var
  strMsg : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '校时(年月日)';
  FormOrderMsg.MyPos.iLeft := BtnCheckYear.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnCheckYear.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 14;
    StrMsg := '指令:客户端向服务器发送指令(14)：校时(年月日周)';
    SendUdpOrder(OrderType, StrMsg);
  end;

end;

procedure TFormOrder1.BtnCheckHourClick(Sender: TObject);
var
  strMsg : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '校时(时分秒)';
  FormOrderMsg.MyPos.iLeft := BtnCheckHour.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnCheckHour.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 15;
    strMsg := '指令:客户端向服务器发送指令(15)：校时(时分秒)';
    SendUdpOrder(OrderType, StrMsg);
  end;

end;

procedure TFormOrder1.BtnCheckTimeClick(Sender: TObject);
var
  strMsg : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '校时年月日时分秒';
  FormOrderMsg.MyPos.iLeft := BtnCheckTime.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnCheckTime.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 13;
    StrMsg := '指令:客户端向服务器发送指令(13)：校时年月日时分秒';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

procedure TFormOrder1.BtnPowerOffClick(Sender: TObject);
var
  strMsg : string;
  bCheckPwd : Boolean;
begin
  if ListView.Items.Count = 0 then
    exit;

  //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没有【模块切电】操作的权限'), '警告', MB_ICONSTOP);
        bCheckPwd := False;
      end;
    2:begin
        bCheckPwd := True;
      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.PanelMsg.Caption := '终端远方切电, 执行复位指令';
    FormOrderMsg.MyPos.iLeft := BtnPowerOff.ClientOrigin.X;
    FormOrderMsg.MyPos.iTop  := BtnPowerOff.ClientOrigin.Y;

    FormOrderMsg.Width := 250;
    FormOrderMsg.EditPara.Visible := False;

    FormOrderMsg.ShowModal();

    if FormOrderMsg.iBtnClick = 1 then
    begin
      OrderType := 21;
      OrderDelay:= 20;
      StrMsg := '指令:客户端向服务器发送指令(21)：终端远方切电, 执行复位指令';

      SendUdpOrder(OrderType, StrMsg);
    end;
  end;
end;

procedure TFormOrder1.BtnOrderStopClick(Sender: TObject);
var
  strMsg : string;
begin
  if ListView.Items.Count = 0 then
    exit;

  FormOrderMsg.PanelMsg.Caption := '终端指令清空, 停止执行以前的指令';
  FormOrderMsg.MyPos.iLeft := BtnOrderStop.ClientOrigin.X;
  FormOrderMsg.MyPos.iTop  := BtnOrderStop.ClientOrigin.Y;

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

  if FormOrderMsg.iBtnClick = 1 then
  begin
    OrderType := 22;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(22)：终端指令清空, 停止执行以前的指令';

    SendUdpOrder(OrderType, StrMsg);
  end;
end;

end.