⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unitorder3.~pas

📁 远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  31,32,33:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible    := True;
    TabSheet_Drq.TabVisible    := False;
    TabSheet_Xiebo.TabVisible  := False;
    TabSheet_DN.TabVisible     := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;
  end;

  34:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := True;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;

  end;

  35:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := True;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;
  end;

  36,37,38:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := True;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;
  end;

  39:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := True;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;

  end;

  40:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := True;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;

  end;

  41:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := True;
    TabSheet_MonthStat2.TabVisible := True;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;
  end;

  42:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := True;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;
  end;

  43:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := True;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;
  end;

  44:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := True;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;

  end;

  47:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := True;
    TabSheet_GdRate.TabVisible     := False;

  end;

  48:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := True;

  end;

  49:
  begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := True;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;

  end;

  else begin
    //TabSheet_Msg.TabVisible  := True;
    TabSheet_Msg.Show();

    TabSheet_Day.TabVisible   := False;
    TabSheet_Drq.TabVisible   := False;
    TabSheet_Xiebo.TabVisible := False;
    TabSheet_DN.TabVisible    := False;
    TabSheet_QueXian.TabVisible    := False;
    TabSheet_DuanXiang.TabVisible  := False;
    TabSheet_MonthDrq.TabVisible   := False;
    TabSheet_MonthMax.TabVisible   := False;
    TabSheet_MonthMin.TabVisible   := False;
    TabSheet_MonthStat.TabVisible  := False;
    TabSheet_MonthStat2.TabVisible := False;
    TabSheet_DyRate.TabVisible     := False;
    TabSheet_GdRate.TabVisible     := False;

    end;  // end else
  end;    // end case
end;

procedure TFormOrder3.RefreshListTimerTimer(Sender: TObject);
begin
  ////////////////////////////////////////////////////////////
  if ( (bTimerRefresh = True) and (ListView.Items.Count < OrderCount ) and (OrderDelay >= 0) ) then
  begin
    Dec(OrderDelay, 1);
    if OrderDelay >= 0 then
    begin
      PanelMsg.Caption := Format('指令处理中，请等待%d秒...',[OrderDelay]);
      ListView.Items.Clear;
      ListViewRefresh();
    end
    else begin
      PanelMsg.Caption := Format('指令处理完毕，请手动刷新',[OrderDelay]);
      ListView.Items.Clear;
      ListViewRefresh();
    end;

  end;    //end if bStop

end;

procedure TFormOrder3.FormCreate(Sender: TObject);
begin
  bTimerRefresh := False;
  OrderIndex := 0;
  OrderType  := 0;

  self.Caption := ' 指令处理结果';
end;

procedure TFormOrder3.FormShow(Sender: TObject);
begin
  ResetListColumnsTitle();
  ResetTabSheetVisible();
  //1 Caption := ^:^3^7^!^.^';
  //2 Caption := '你'[1] + '好'[2];
  //3 Str(123456.7890:0:2, S); //直接学Delphi的人大多数不会知道
  //  Caption := S;
  //4
  //调试时候用
  //{$MESSAGE HINT '看一看'}

end;

procedure TFormOrder3.ListViewRefresh();
var
  strSQL     : string;
  ListItem   : TListItem;
  strCurTime : string;
begin
  strCurTime := DateToStr(now);
  strCurTime := strCurTime + ' 00:00:00';
  strSQL := Format('select tx_Order.fd_BianTaiID,tx_Order.fd_SysTime,tx_Order.fd_OrderFlag,tx_BianTai.fd_Name from tx_Order,tx_BianTai where tx_Order.fd_OrderIndex=%d and tx_Order.fd_OrderFlag<>0 and tx_Order.fd_SysTime>=''%s'' and tx_BianTai.fd_BianTaiID=tx_Order.fd_BianTaiID',[OrderIndex,strCurTime]);
  //ShowMessage(strSQL);

  with  MyModule.AdoQuery do
  begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);
    //ShowMessage(strSQL);
    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
      First();
      while not eof do
      begin
         //ListView.Items.Clear();
         ListItem := ListView.Items.Add();
         //0 fd_BianTaiID
         ListItem.Caption := FieldByName('fd_BianTaiID').AsString ;
         //1 fd_Name
         ListItem.SubItems.Add(FieldByName('fd_Name').AsString);
         //2 OrderType
         ListItem.SubItems.Add(GetOrderTypeStr(OrderType));
         //3 fd_OrderFlag
         case (FieldByName('fd_OrderFlag').AsInteger) of
         -1:ListItem.SubItems.Add('指令处理完毕=>正确返回');
          4:ListItem.SubItems.Add('指令处理完毕=>没有返回');
         else
           ListItem.SubItems.Add('指令处理中...');
         end;
         //4 fd_SysTime
         ListItem.SubItems.Add(FieldByName('fd_SysTime').AsString);

         Next();
12345

⌨️ 快捷键说明

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