unitquerycountform.pas

串口短信猫收发软件。支持西门子TC35i设备

      begin
        Series1.Clear;
        Series2.Clear;
      end;
    end;
  finally
    RzLabel_RequestTotNum.Caption := RequestTotNum;
    RzLabel_RequestYesNum.Caption := RequestYesNum;
    RzLabel_RequestNoNum.Caption := RequestNoNum;
    RzLabel_RequestErrNum.Caption := RequestErrNum;
    RzLabel_ResponseTotNum.Caption := ResponseTotNum;
    Screen.Cursor := oldCursor;
  end;
end;

procedure TQueryCountForm.RzDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if ((State=[gdselected]) or (State=[gdselected,gdfocused])) then
  begin
   TDBGrid(Sender).Canvas.Brush.Color := clWhite;
   TDBGrid(Sender).Canvas.Brush.Color := $00C08080;
  end
  else
  begin
    if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2<>0 then
      TDBGrid(Sender).Canvas.Brush.Color := clWhite
    else
      TDBGrid(Sender).Canvas.Brush.Color := $00CFFEFD;
  end;

  TDBGrid(Sender).Canvas.Pen.Color := $00FF0000; //定义画笔颜色(蓝色)
  TDBGrid(Sender).Canvas.MoveTo(Rect.Left, Rect.Bottom); //画笔定位
  TDBGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
  TDBGrid(Sender).Canvas.Pen.Color := $0000FF00; //定义画笔颜色(绿色)
  TDBGrid(Sender).Canvas.MoveTo(Rect.Right, Rect.Top); //画笔定位
  TDBGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线

  if TDBGrid(Sender).DataSource.DataSet.FieldByName('send_result').AsInteger=0 then//未发
    TDBGrid(Sender).Canvas.Font.Color := clGreen
  else if TDBGrid(Sender).DataSource.DataSet.FieldByName('send_result').AsInteger=2 then//失败
    TDBGrid(Sender).Canvas.Font.Color := clRed
  else
    TDBGrid(Sender).Canvas.Font.Color := clBlack;

  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, column, state);
end;

procedure TQueryCountForm.RzBitBtn6Click(Sender: TObject);
var
  s: string;
begin
//数据清理
  s := '是否真的要删除从 '
     + FormatDateTime(FORMATDATE_STARTDEF, DateTimePicker7.Date)
     + ' 至 ' + FormatDateTime(FORMATDATE_ENDDEF, DateTimePicker8.Date)
     + ' 期间的数据吗？';
  if Application.MessageBox(PChar(s), '提示', MB_OKCancel + MB_DEFBUTTON2 + MB_IconQuestion)<>ID_OK then Exit;
  s := '删除后的数据将不可恢复，确认继续？';
  if Application.MessageBox(PChar(s), '提示', MB_OKCancel + MB_DEFBUTTON2 + MB_IconQuestion)<>ID_OK then Exit;
  s := '看来您是真的要删除数据了，请再后一次确认！';
  if Application.MessageBox(PChar(s), '提示', MB_OKCancel + MB_DEFBUTTON2 + MB_IconQuestion)<>ID_OK then Exit;

  if DM.DelRequestAndResponse(FormatDateTime(FORMATDATE_STARTDEF, DateTimePicker7.Date), FormatDateTime(FORMATDATE_ENDDEF, DateTimePicker8.Date)) then
  begin
    Application.MessageBox('数据清理成功！','提示',MB_OK + MB_ICONINFORMATION);
  end;
end;

procedure TQueryCountForm.RzBitBtn7Click(Sender: TObject);
var
  iLocalNet: integer;
  LocalNum, LocalFee, RemoteNum, RemoteFee: real;
begin
//费用估算
  LocalNum := 0;
  LocalFee := 0;
  RemoteNum := 0;
  RemoteFee := 0;
  iLocalNet := -1;
  if RzComboBox_LocalNet.ItemIndex=1 then
    iLocalNet := 0
  else if RzComboBox_LocalNet.ItemIndex=2 then
    iLocalNet := 1;
  //计算费用清单
  DM.SelectRequestFee(FormatDateTime(FORMATDATE_STARTDEF, DateTimePicker9.Date), FormatDateTime(FORMATDATE_ENDDEF, DateTimePicker10.Date), 1, iLocalNet);
  //开始累计费用
  DM.SumFee(LocalNum, LocalFee, RemoteNum, RemoteFee);
  //显示总计栏
  RzLabel_LocalNum.Caption := FloatToStr(LocalNum);
  RzLabel_LocalFee.Caption := FormatFloat('0.00', LocalFee);
  RzLabel_RemoteNum.Caption := FloatToStr(RemoteNum);
  RzLabel_RemoteFee.Caption := FormatFloat('0.00', RemoteFee);
  RzLabel_TotNum.Caption := FloatToStr(LocalNum + RemoteNum);
  RzLabel_TotFee.Caption := FormatFloat('0.00', LocalFee + RemoteFee);
end;

procedure TQueryCountForm.RzBitBtn4Click(Sender: TObject);
begin
//打印发送短信清单
  PublicFun.PrintDBGridToTxt('发送短信清单', '起始时间：' + FormatDateTime(FORMATDATE_STARTDEF, DateTimePicker1.Date)+ ', 结束时间：' + FormatDateTime(FORMATDATE_ENDDEF, DateTimePicker2.Date), RzDBGrid1);
end;

procedure TQueryCountForm.RzBitBtn5Click(Sender: TObject);
begin
//打印接收短信清单
  PublicFun.PrintDBGridToTxt('接收短信清单', '起始时间：' + FormatDateTime(FORMATDATE_STARTDEF, DateTimePicker3.Date)+ ', 结束时间：' + FormatDateTime(FORMATDATE_ENDDEF, DateTimePicker4.Date), RzDBGrid2);
end;

procedure TQueryCountForm.RzBitBtn8Click(Sender: TObject);
begin
//打印费用估算表
  PublicFun.PrintDBGridToTxt('发送短信费用估算表', '起始时间：' + FormatDateTime(FORMATDATE_STARTDEF, DateTimePicker9.Date)+ ', 结束时间：' + FormatDateTime(FORMATDATE_ENDDEF, DateTimePicker10.Date), RzDBGrid3);
end;

procedure TQueryCountForm.FormShow(Sender: TObject);
begin
  RzPageControl1.ActivePage := TabSheet1;
end;

procedure TQueryCountForm.RzPageControl1Change(Sender: TObject);
begin
  DM.DSet_Request.Close;
  DM.DSet_Response.Close;
  DM.DSet_RequestFee.Close;
  RzLabel_LocalNum.Caption := FloatToStr(0);
  RzLabel_LocalFee.Caption := FormatFloat('0.00', 0);
  RzLabel_RemoteNum.Caption := FloatToStr(0);
  RzLabel_RemoteFee.Caption := FormatFloat('0.00', 0);
  RzLabel_TotNum.Caption := FloatToStr(0);
  RzLabel_TotFee.Caption := FormatFloat('0.00', 0);
end;

procedure TQueryCountForm.RzDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if ((State=[gdselected]) or (State=[gdselected,gdfocused])) then
  begin
   TDBGrid(Sender).Canvas.Brush.Color := clWhite;
   TDBGrid(Sender).Canvas.Brush.Color := $00C08080;
  end
  else
  begin
    if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2<>0 then
      TDBGrid(Sender).Canvas.Brush.Color := clWhite
    else
      TDBGrid(Sender).Canvas.Brush.Color := $00CFFEFD;
  end;

  TDBGrid(Sender).Canvas.Pen.Color := $00FF0000; //定义画笔颜色(蓝色)
  TDBGrid(Sender).Canvas.MoveTo(Rect.Left, Rect.Bottom); //画笔定位
  TDBGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
  TDBGrid(Sender).Canvas.Pen.Color := $0000FF00; //定义画笔颜色(绿色)
  TDBGrid(Sender).Canvas.MoveTo(Rect.Right, Rect.Top); //画笔定位
  TDBGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, column, state);
end;

procedure TQueryCountForm.RzDBGrid3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if ((State=[gdselected]) or (State=[gdselected,gdfocused])) then
  begin
   TDBGrid(Sender).Canvas.Brush.Color := clWhite;
   TDBGrid(Sender).Canvas.Brush.Color := $00C08080;
  end
  else
  begin
    if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2<>0 then
      TDBGrid(Sender).Canvas.Brush.Color := clWhite
    else
      TDBGrid(Sender).Canvas.Brush.Color := $00CFFEFD;
  end;

  TDBGrid(Sender).Canvas.Pen.Color := $00FF0000; //定义画笔颜色(蓝色)
  TDBGrid(Sender).Canvas.MoveTo(Rect.Left, Rect.Bottom); //画笔定位
  TDBGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
  TDBGrid(Sender).Canvas.Pen.Color := $0000FF00; //定义画笔颜色(绿色)
  TDBGrid(Sender).Canvas.MoveTo(Rect.Right, Rect.Top); //画笔定位
  TDBGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, column, state);
end;

procedure TQueryCountForm.RzDBGrid1DblClick(Sender: TObject);
var
  s1, s2: string;
  DataSet: TDataSet;
begin
//双击重发短信
  DataSet := RzDBGrid1.DataSource.DataSet;
  if not DataSet.Active then Exit;
  if DataSet.IsEmpty then Exit;
  s1 := DataSet.FieldByName('send_mobile').AsString;
  s2 := DataSet.FieldByName('send_data').AsString;
  with TSendSMSForm.Create(nil, s1, s2) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

procedure TQueryCountForm.RzDBGrid2DblClick(Sender: TObject);
var
  s1, s2: string;
  DataSet: TDataSet;
begin
//双击重发短信
  DataSet := RzDBGrid2.DataSource.DataSet;
  if not DataSet.Active then Exit;
  if DataSet.IsEmpty then Exit;
  s1 := DataSet.FieldByName('reci_mobile').AsString;
  s2 := DataSet.FieldByName('reci_data').AsString;
  with TSendSMSForm.Create(nil, s1, s2) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

end.