📄 unitorder2.pas

📁 远程抄表系统的客户端程序安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数据库 Sybase 11.5 1 04-12-
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 35;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(35)：取'+
              FormOrderPara.ComboHistory.Text +
              '谐波数据';

    SendUdpOrder(OrderType, StrMsg, IntToStr(FormOrderPara.ComboHistory.ItemIndex + 1));
  end;
end;

procedure TFormOrder2.BtnDayDNClick(Sender: TObject);
var
  strMsg : string;
  strVal : string;
  strDateTime : string;
begin
  if ListView.Items.Count = 0 then
    exit;
  FormOrderPara.PanelMsg1.Caption   := '取历史电能数据，选择起始日期';
  FormOrderPara.CheckMsg2.Caption   := '输入个数';
  FormOrderPara.EditSum.Text := '1';
  FormOrderPara.EditSum.Enabled := False;

  FormOrderPara.ComboHistory.Visible := false;
  FormOrderPara.DateTimePicker1.Visible := true;
  FormOrderPara.DateTimePicker2.Visible := true;
  FormOrderPara.DateTimePicker1.DateTime:= Now;
  FormOrderPara.CheckMsg2.Visible := True;
  FormOrderPara.EditSum.Visible := true;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    {
    if FormOrderPara.EditSum.Text = '1' then
    begin
      OrderType := 36;
      OrderDelay:= 20;
      StrMsg := '指令:客户端向服务器发送指令(36)：取' +
                DateToStr(FormOrderPara.DateTimePicker1.Date) +
                ' ' +
                TimeToStr(FormOrderPara.DateTimePicker2.Time)+
                '时刻电能数据';
    end
    else
    }
    if (FormOrderPara.EditSum.Text = 'FFFF') or (FormOrderPara.EditSum.Text = 'ffff') then
    begin
      OrderType := 37;
      OrderDelay:= 20;
      StrMsg := '指令:客户端向服务器发送指令(37)：取' +
                DateToStr(FormOrderPara.DateTimePicker1.Date) +
                ' ' +
                TimeToStr(FormOrderPara.DateTimePicker2.Time)+
                '之后[所有]电能数据';

    end
    else begin
      OrderType := 37;
      OrderDelay:= 20;
      StrMsg := '指令:客户端向服务器发送指令(37)：取' +
                DateToStr(FormOrderPara.DateTimePicker1.Date) +
                ' ' +
                TimeToStr(FormOrderPara.DateTimePicker2.Time)+
                '之后[' + FormOrderPara.EditSum.Text + ']个取历史电能数据';

    end;

    strDateTime := DateToStr(FormOrderPara.DateTimePicker1.Date) + ' ' + TimeToStr(FormOrderPara.DateTimePicker2.Time);
    strVal := Format('%04s',[FormOrderPara.EditSum.Text]);

    //ShowMessage(strVal);
    //ShowMessage(strDateTime + strVal);

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

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

  FormOrderPara.PanelMsg1.Caption   := '取最近两个月的统计数据。 ';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text:= '1';

  FormOrderPara.ComboHistory.Visible := false;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 41;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(41)：取' +
              FormOrderPara.ComboHistory.Text +
              '统计数据';

    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderPara.PanelMsg1.Caption   := '取月极大值数据, 选择:';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '1';

  FormOrderPara.ComboHistory.Items.Clear;
  FormOrderPara.ComboHistory.Items.Add('本月' );
  FormOrderPara.ComboHistory.Items.Add('上月' );
  FormOrderPara.ComboHistory.ItemIndex := 0;

  FormOrderPara.ComboHistory.Visible := True;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 42;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(42)：取' +
              FormOrderPara.ComboHistory.Text +
              '极大值数据';

    SendUdpOrder(OrderType, StrMsg, IntToStr(FormOrderPara.ComboHistory.ItemIndex));
  end;
end;

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

  FormOrderPara.PanelMsg1.Caption   := '取月极小值数据, 选择:';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '1';

  FormOrderPara.ComboHistory.Items.Clear;
  FormOrderPara.ComboHistory.Items.Add('本月' );
  FormOrderPara.ComboHistory.Items.Add('上月' );
  FormOrderPara.ComboHistory.ItemIndex := 0;

  FormOrderPara.ComboHistory.Visible := True;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 43;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(43)：取' +
              FormOrderPara.ComboHistory.Text +
              '极小值数据';

    SendUdpOrder(OrderType, StrMsg, IntToStr(FormOrderPara.ComboHistory.ItemIndex));
  end;

end;

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

  FormOrderPara.PanelMsg1.Caption   := '取仪表运行以后的断相统计值';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '1';

  FormOrderPara.ComboHistory.Visible    := false;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible       := false;
  FormOrderPara.EditSum.Visible         := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 40;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(40)：取断相统计';

    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderPara.PanelMsg1.Caption   := '取月电容器补偿累计值, 选择:';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '1';

  FormOrderPara.ComboHistory.Items.Clear;
  FormOrderPara.ComboHistory.Items.Add('本月' );
  FormOrderPara.ComboHistory.Items.Add('上月' );
  FormOrderPara.ComboHistory.ItemIndex := 0;

  FormOrderPara.ComboHistory.Visible := True;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 44;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(44)：取' +
              FormOrderPara.ComboHistory.Text +
              '电容器补偿累计值';

    SendUdpOrder(OrderType, StrMsg, IntToStr(FormOrderPara.ComboHistory.ItemIndex));
  end;
end;

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

  FormOrderPara.PanelMsg1.Caption   := '取仪表缺陷记录';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '1';

  FormOrderPara.ComboHistory.Visible    := false;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible       := false;
  FormOrderPara.EditSum.Visible         := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 39;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(39)：取缺陷记录';

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

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

  FormOrderPara.PanelMsg1.Caption   := '取电压合格率';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '';

  FormOrderPara.ComboHistory.Visible    := false;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 47;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(47)：取电压合格率';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderPara.PanelMsg1.Caption   := '取供电可靠率';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '';

  FormOrderPara.ComboHistory.Visible    := false;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 48;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(48)：取供电可靠率';
    SendUdpOrder(OrderType, StrMsg);
  end;
end;

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

  FormOrderPara.PanelMsg1.Caption   := '取电能数据 - 峰谷平';
  FormOrderPara.CheckMsg2.Caption   := '';
  FormOrderPara.EditSum.Text := '1';


  FormOrderPara.ComboHistory.Visible := false;
  FormOrderPara.DateTimePicker1.Visible := false;
  FormOrderPara.DateTimePicker2.Visible := false;
  FormOrderPara.CheckMsg2.Visible := false;
  FormOrderPara.EditSum.Visible := false;

  FormOrderPara.MyPos.iLeft := Panel3.ClientOrigin.X;
  FormOrderPara.MyPos.iTop  := Panel3.ClientOrigin.Y;
  FormOrderPara.Width  := Panel3.Width;
  FormOrderPara.Height := Panel3.Height;

  FormOrderPara.ShowModal();

  if FormOrderPara.iBtnClick = 1 then
  begin
    OrderType := 49;
    OrderDelay:= 20;
    StrMsg := '指令:客户端向服务器发送指令(49)：取电能数据 - 峰谷平';

    SendUdpOrder(OrderType, StrMsg);
  end;
end;

end.
上一页 1 23
💿 文件大小 3662 K
👤 上传用户 junbo2009
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#mxOutlookBar #Delphi #Sybase #11.5
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -