queryddtj.pas

客户档案管理-delphi开发

unit queryddtj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, query, bsSkinShellCtrls, PrnDbgeh, Menus, bsSkinMenus, DB,
  ADODB, BusinessSkinForm, bsSkinCtrls, Grids, DBGridEh, ExtCtrls,
  StdCtrls, Mask, bsSkinBoxCtrls;

type
  TFormQueryDDTJ = class(TFormQuery)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    cdsQueryDSDesigner2: TStringField;
    cdsQueryDSDesigner3: TStringField;
    cdsQueryDSDesigner4: TDateTimeField;
    cdsQueryDSDesigner5: TBCDField;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinStdLabel5: TbsSkinStdLabel;
    cdsQueryDSDesigner10: TStringField;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure cdsQueryAfterOpen(DataSet: TDataSet);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormQueryDDTJ: TFormQueryDDTJ;

implementation

uses
  dm;
  
{$R *.dfm}

procedure TFormQueryDDTJ.bsSkinSpeedButton2Click(Sender: TObject);
var
  sWhere : String;
begin
  inherited;
  sWhere := 'select * from 订单视图';

  if cdsQuery.Active then cdsQuery.Close;
  cdsQuery.CommandText := sWhere;
  cdsQuery.Open;
end;

procedure TFormQueryDDTJ.bsSkinSpeedButton1Click(Sender: TObject);
var
  sWhere : String;
begin
  inherited;
  sWhere := '';
  if Length(bsSkinEdit1.Text) > 0 then
    sWhere := '产品名称 LIKE ''%' + bsSkinEdit1.Text + '%''';
  if Length(bsSkinEdit2.Text) > 0 then
  begin
    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '客户名称 LIKE ''%' + bsSkinEdit2.Text + '%''';
  end;
  if Length(bsSkinEdit3.Text) > 0 then
  begin
    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '客户编号 LIKE ''%' + bsSkinEdit3.Text + '%''';
  end;

    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '日期 >= ''' + DateToStr(bsSkinDateEdit1.Date) + '''';

    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '日期 <= ''' + DateToStr(bsSkinDateEdit2.Date) + '''';

  if Length(sWhere) > 0 then
    sWhere :=' where ' + sWhere;

  sWhere := 'select * from 订单视图' + sWhere;

  if cdsQuery.Active then cdsQuery.Close;
  cdsQuery.CommandText := sWhere;
  cdsQuery.Open;
end;

procedure TFormQueryDDTJ.cdsQueryAfterOpen(DataSet: TDataSet);
var
  eTotal : Extended;
begin
  inherited;

  eTotal := 0.0;

  cdsQuery.DisableControls;
  with cdsQuery do
  begin
    First;
    while not eof do
    begin
      if not FindField('数量').IsNull then
        eTotal := eTotal + FindField('数量').Value;
      Next;
    end;
  end;
  cdsQuery.EnableControls;

  bsSkinStdLabel4.Caption := FormatFloat('0.##', eTotal);
end;

procedure TFormQueryDDTJ.bsSkinSpeedButton5Click(Sender: TObject);
begin
  PrintDBGridEh1.AfterGridText.Clear;
  PrintDBGridEh1.AfterGridText.Add(bsSkinStdLabel3.Caption + bsSkinStdLabel4.Caption);

  inherited;          
end;

end.