unit_queryintegral.pas

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

unit unit_QueryIntegral;

interface

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

type
  TFRM_QueryIntegral = class(TForm_custbrowsebase_P)
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    spiGR_JFDBegin: TFlatSpinEditInteger;
    spiGR_JFDEnd: TFlatSpinEditInteger;
    cbGR_JFD: TFlatCheckBox;
    procedure cbGR_JFDClick(Sender: TObject);
    procedure spiGR_AgeEndEnter(Sender: TObject);
    procedure spiGR_JFDBeginChange(Sender: TObject);
    procedure edGR_SIDKeyPress(Sender: TObject; var Key: Char);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  protected
        procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);override;
        procedure pro_GR_getsqlwhere(sender:tobject);override;

  public
    { Public declarations }
  end;

var
  FRM_QueryIntegral: TFRM_QueryIntegral;

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

procedure TFRM_QueryIntegral.pro_GR_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
if cbGR_JFD.Checked then
        tmpstr:=tmpstr+' and JFD between '+inttostr(spiGR_JFDBegin.value)+' and '+inttostr(spiGR_JFDEnd.value);
GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;

procedure TFRM_QueryIntegral.pro_GR_OpenDataSet(sender: tobject;
  strsql: string);
begin

with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select * from T_V_GR_QueryIntegral');
        sql.add('where 1=1');
        sql.add(strsql);
        open;
    end;
end;

procedure TFRM_QueryIntegral.cbGR_JFDClick(Sender: TObject);
begin
  inherited;
		  if cbGR_JFD.Checked then
		      begin
		        spiGR_JFDBegin.colorflat:=clwindow;
		        spiGR_JFDEnd.colorflat:=clwindow;
		        spiGR_JFDBegin.Enabled:=true;
		        spiGR_JFDEnd.Enabled:=true;
		      end
		  else
		      begin
		        spiGR_JFDBegin.colorflat:=clActiveBorder;
		        spiGR_JFDEnd.colorflat:=clActiveBorder;
		        spiGR_JFDBegin.Enabled:=false;
		        spiGR_JFDEnd.Enabled:=false;
		    end;
end;

procedure TFRM_QueryIntegral.spiGR_AgeEndEnter(Sender: TObject);
begin
  inherited;
if sender=spiGR_jfdEnd then
    begin
    	spiGR_jfdEnd.MinValue:=spiGR_jfdBegin.Value;
        spiGR_jfdEnd.Refresh;
    end;
end;

procedure TFRM_QueryIntegral.spiGR_JFDBeginChange(Sender: TObject);
begin
  inherited;
if sender=spiGR_JFDBegin then
    begin
        spiGR_JFDEnd.MinValue:=spiGR_JFDBegin.Value;
        if spiGR_JFDEnd.Value<spiGR_JFDBegin.Value then
              spiGR_JFDEnd.Value:=spiGR_JFDBegin.Value;
    end;
end;

procedure TFRM_QueryIntegral.edGR_SIDKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if not (key in ['0'..'9',chr(vk_return),chr(vk_back)]) then key:=#0;
end;

procedure TFRM_QueryIntegral.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_QueryIntegral.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.