unit_queryreckoningm.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_QueryReckoningM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unit_custbrowsebase_P, ImgList, Menus, Db, DBTables, ComCtrls, StdCtrls,
  Grids, DBGrids, TFlatCheckBoxUnit, TFlatSpinEditUnit, ToolWin,
  TFlatEditUnit, TFlatComboBoxUnit, TFlatButtonUnit, ExtCtrls,
  TFlatRadioButtonUnit;

type
  TFrm_QueryReckoningM = class(TForm_custbrowsebase_P)
    Label6: TLabel;
    Label8: TLabel;
    spiGR_CalcMonthYear: TFlatSpinEditInteger;
    spiGR_CalcMonthMon: TFlatSpinEditInteger;
    Label9: TLabel;
    Label11: TLabel;
    cbGR_TotalRate: TFlatCheckBox;
    spiGR_TotalRateBegin: TFlatSpinEditInteger;
    spiGR_TotalRateEnd: TFlatSpinEditInteger;
    Label10: TLabel;
    procedure cbGR_ZWSJClick(Sender: TObject);
    procedure cbGR_TotalRateClick(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  protected
        procedure pro_initother(sender:tobject);override;
        procedure pro_GR_getsqlwhere(sender:tobject);override;
        procedure pro_GR_getid(sender:tobject);override;

  public
    { Public declarations }
  end;

var
  Frm_QueryReckoningM: TFrm_QueryReckoningM;

implementation
uses PrintFrmForm;
  Function Fun_ExportData(pFileName:String;pReportTitle:String;pObjectSource:TObject):Boolean;stdcall;external'winfun.dll';
{$R *.DFM}

procedure TFrm_QueryReckoningM.cbGR_ZWSJClick(Sender: TObject);
begin
  inherited;
 {if cbGR_CalcMonth.Checked then
      begin
        spiGR_CalcMonthYear.colorflat:=clwindow;
        spiGR_CalcMonthMon.colorflat:=clwindow;
        spiGR_CalcMonthYear.Enabled:=true;
        spiGR_CalcMonthMon.Enabled:=true;
      end
  else
      begin
        spiGR_CalcMonthYear.colorflat:=clActiveBorder;
        spiGR_CalcMonthMon.colorflat:=clActiveBorder;
        spiGR_CalcMonthYear.Enabled:=false;
        spiGR_CalcMonthMon.Enabled:=false;
      end;}
end;

procedure TFrm_QueryReckoningM.cbGR_TotalRateClick(Sender: TObject);
begin
  inherited;
 if cbGR_TotalRate.Checked then
      begin
        spiGR_TotalRateBegin.colorflat:=clwindow;
        spiGR_TotalRateEnd.colorflat:=clwindow;
        spiGR_TotalRateBegin.Enabled:=true;
        spiGR_TotalRateEnd.Enabled:=true;
      end
  else
      begin
        spiGR_TotalRateBegin.colorflat:=clActiveBorder;
        spiGR_TotalRateEnd.colorflat:=clActiveBorder;
        spiGR_TotalRateBegin.Enabled:=false;
        spiGR_TotalRateEnd.Enabled:=false;
      end;
end;

procedure TFrm_QueryReckoningM.pro_GR_getid(sender: tobject);
begin
  inherited;

end;

procedure TFrm_QueryReckoningM.pro_GR_getsqlwhere(sender: tobject);
var
    tmpstr,tmpstr_calcMonth:string;
begin
  inherited;
tmpstr_calcMonth:=inttostr(spiGR_CalcMonthMon.value);
if length(tmpstr_calcMonth)=1 then
    tmpstr_calcMonth:='0'+tmpstr_calcMonth;
//
if edGR_SID.Text<>'' then
      tmpstr:=tmpstr+' and '+'t.SID='+''''+edGR_SID.Text+'''';
if lGR_cityno<>'' then
        tmpstr:=tmpstr+' and '+'t.cityno='+lGR_cityno;
if lGR_off_no_home<>'' then
        tmpstr:=tmpstr+' and '+'t.off_no_home='+lGR_off_no_home;
if lGR_GH<>'' then
        tmpstr:=tmpstr+' and '+'t.WK_NO='+''''+lGR_GH+'''';
tmpstr:=tmpstr+' and t.CalcMonth='+''''+inttostr(spiGR_CalcMonthYear.value)+tmpstr_calcMonth+'''';

if cbGR_TotalRate.Checked then
        tmpstr:=tmpstr+' and t.TotalRate between '+inttostr(spiGR_TotalRateBegin.value)+' and '+inttostr(spiGR_TotalRateEnd.value);
      
GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;

procedure TFrm_QueryReckoningM.pro_initother(sender: tobject);
begin
  inherited;
spiGR_CalcMonthYear.Value:=strtoint(formatdatetime('yyyy',now));
spiGR_CalcMonthMon.Value:=strtoint(formatdatetime('mm',now));
end;

procedure TFrm_QueryReckoningM.FlatButton3Click(Sender: TObject);
begin
  inherited;
  if browse_normal.Active then
  if not (browse_normal.Bof and browse_normal.Eof) then
  Fun_ExportData('月账单增减量','月账单增减量',dbgGR);
end;

procedure TFrm_QueryReckoningM.FlatButton2Click(Sender: TObject);
begin
  inherited;
  if browse_normal.Active then
  if not (browse_normal.Bof and browse_normal.Eof) then
  begin
    try
      PrintDbGrid(dbgGR.datasource.dataset,dbgGR,'月账单增减量个人客户');
    except
      Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION);
      exit;
    end;//try
  end;
end;

end.