unit_queryaccountbalance.pas

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

unit Unit_QueryAccountBalance;

interface

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

type
  Tfrm_QueryAccountBalance = class(Tform_custombrowsebase)
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    spiGR_YEBegin: TFlatSpinEditInteger;
    spiGR_YEEnd: TFlatSpinEditInteger;
    cbGR_YE: TFlatCheckBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    spiJT_YEBegin: TFlatSpinEditInteger;
    spiJT_YEEnd: TFlatSpinEditInteger;
    cbJT_YE: TFlatCheckBox;
    procedure cbGR_YEClick(Sender: TObject);
    procedure cbJT_YEClick(Sender: TObject);
    procedure spiGR_YEBeginChange(Sender: TObject);
  private
    { Private declarations }
  protected
        procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);override;
        procedure pro_GR_getsqlwhere(sender:tobject);override;
        procedure pro_JT_OpenDataSet(sender:tobject;strsql:string);override;
        procedure pro_JT_getsqlwhere(sender:tobject);override;
  public
    { Public declarations }
  end;

var
  frm_QueryAccountBalance: Tfrm_QueryAccountBalance;

implementation
  uses dmmain;
{$R *.DFM}

procedure Tfrm_QueryAccountBalance.cbGR_YEClick(Sender: TObject);
begin
  inherited;
  if cbGR_YE.Checked then
      begin
        spiGR_YEBegin.colorflat:=clwindow;
        spiGR_YEEnd.colorflat:=clwindow;
        spiGR_YEBegin.Enabled:=true;
        spiGR_YEEnd.Enabled:=true;
      end
  else
      begin
        spiGR_YEBegin.colorflat:=clActiveBorder;
        spiGR_YEEnd.colorflat:=clActiveBorder;
        spiGR_YEBegin.Enabled:=false;
        spiGR_YEEnd.Enabled:=false;
    end;

end;

procedure Tfrm_QueryAccountBalance.cbJT_YEClick(Sender: TObject);
begin
  inherited;
  if cbJT_YE.Checked then
      begin
        spiJT_YEBegin.colorflat:=clwindow;
        spiJT_YEEnd.colorflat:=clwindow;
        spiJT_YEBegin.Enabled:=true;
        spiJT_YEEnd.Enabled:=true;
      end
  else
      begin
        spiJT_YEBegin.colorflat:=clActiveBorder;
        spiJT_YEEnd.colorflat:=clActiveBorder;
        spiJT_YEBegin.Enabled:=false;
        spiJT_YEEnd.Enabled:=false;
    end;
end;

procedure Tfrm_QueryAccountBalance.pro_GR_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
if cbGR_YE.Checked then
    begin
        tmpstr:=tmpstr+' and YE between '+inttostr(spiGR_YEBegin.value)+' and '+inttostr(spiGR_YEEnd.value);

    end;
GR_sqlwhere:=GR_sqlwhere+tmpstr;    
end;

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

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

end;

procedure Tfrm_QueryAccountBalance.pro_JT_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
if cbJT_YE.Checked then
    begin
        tmpstr:=tmpstr+' and YE between '+inttostr(spiJT_YEBegin.value)+' and '+inttostr(spiJT_YEEnd.value);

    end;
JT_sqlwhere:=JT_sqlwhere+tmpstr;
end;

procedure Tfrm_QueryAccountBalance.pro_JT_OpenDataSet(sender: tobject;
  strsql: string);
begin
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select *');
        sql.add('from T_V_JT_QueryAccountBalance');
        sql.Add('where 1=1');
        sql.add(strsql);
        open;
    end;

end;

procedure Tfrm_QueryAccountBalance.spiGR_YEBeginChange(Sender: TObject);
begin
  inherited;
if sender=spiGR_YEBegin then
    begin
        spiGR_YEEnd.MinValue:=spiGR_YEBegin.Value;
        if spiGR_YEEnd.Value<spiGR_YEBegin.Value then
              spiGR_YEEnd.Value:=spiGR_YEBegin.Value;
    end;
if sender=spiJT_YEBegin then
    begin
        spiJT_YEEnd.MinValue:=spiJT_YEBegin.Value;
        if spiJT_YEEnd.Value<spiJT_YEBegin.Value then
              spiJT_YEEnd.Value:=spiJT_YEBegin.Value;
    end;
end;

end.