unit_integral_b.pas

中国移动大客户管理系统

unit unit_integral_B;

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;

type
  Tform_integral_B = class(TForm_custbrowsebase_P)
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    spiGR_JFDBegin: TFlatSpinEditInteger;
    spiGR_JFDEnd: TFlatSpinEditInteger;
    cbGR_JFD: TFlatCheckBox;
    procedure cbGR_AgeClick(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
  form_integral_B: Tform_integral_B;

implementation

{$R *.DFM}

procedure Tform_integral_B.cbGR_AgeClick(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 Tform_integral_B.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 Tform_integral_B.pro_GR_OpenDataSet(sender: tobject;
  strsql: string);
begin
  inherited;
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('');
        sql.add(',,,,');
        sql.Add('');
        sql.add(strsql);
        open;
    end;
end;

end.