unit_querygradeorder.pas

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

unit Unit_QueryGradeOrder;

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_QueryGradeOrder = class(TForm_custbrowsebase_P)
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    spiGR_PJXFJEBegin: TFlatSpinEditInteger;
    spiGR_PJXFJEEnd: TFlatSpinEditInteger;
    cbGR_PJXFJE: TFlatCheckBox;
    spiGR_Order: TFlatSpinEditInteger;
    Label10: TLabel;
    Label11: TLabel;
    cbGR_ConsumeOrder: TFlatCheckBox;
    procedure spiGR_PJXFJEBeginChange(Sender: TObject);
    procedure cbGR_PJXFJEClick(Sender: TObject);
    procedure cbGR_OrderClick(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  protected
        procedure pro_GR_getsqlwhere(sender:tobject);override;

  public
    { Public declarations }
  end;

var
  Frm_QueryGradeOrder: TFrm_QueryGradeOrder;

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

procedure TFrm_QueryGradeOrder.spiGR_PJXFJEBeginChange(Sender: TObject);
begin
  inherited;
if sender=spiGR_PJXFJEBegin then
    begin
        spiGR_PJXFJEEnd.MinValue:=spiGR_PJXFJEBegin.Value;
        if spiGR_PJXFJEEnd.Value<spiGR_PJXFJEBegin.Value then
              spiGR_PJXFJEEnd.Value:=spiGR_PJXFJEBegin.Value;
    end;
end;

procedure TFrm_QueryGradeOrder.cbGR_PJXFJEClick(Sender: TObject);
begin
  inherited;
  if cbGR_PJXFJE.Checked then
      begin
        spiGR_PJXFJEBegin.colorflat:=clwindow;
        spiGR_PJXFJEEnd.colorflat:=clwindow;
        spiGR_PJXFJEBegin.Enabled:=true;
        spiGR_PJXFJEEnd.Enabled:=true;
      end
  else
      begin
        spiGR_PJXFJEBegin.colorflat:=clActiveBorder;
        spiGR_PJXFJEEnd.colorflat:=clActiveBorder;
        spiGR_PJXFJEBegin.Enabled:=false;
        spiGR_PJXFJEEnd.Enabled:=false;
    end;
end;

procedure TFrm_QueryGradeOrder.pro_GR_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
if cbGR_PJXFJE.Checked then
        tmpstr:=tmpstr+' and '+'t.PJXFJE>='+inttostr(spiGR_PJXFJEBegin.value)+' and '+'t.PJXFJE<='+inttostr(spiGR_PJXFJEEnd.value);
if cbGR_Order.Checked then
      tmpstr:=tmpstr+' and '+'rownum<='+inttostr(spiGR_Order.Value);
GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;

procedure TFrm_QueryGradeOrder.cbGR_OrderClick(Sender: TObject);
begin
  inherited;
if cbGR_ConsumeOrder.Checked then
    begin
        spiGR_Order.colorflat:=clwindow;
        spiGR_Order.Enabled:=true;
    end
else
    begin
        spiGR_Order.colorflat:=clActiveBorder;
        spiGR_Order.Enabled:=false;
    end;
end;

procedure TFrm_QueryGradeOrder.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_QueryGradeOrder.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.