queryddtj_1.pas

客户档案管理-delphi开发

unit queryddtj_1;

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_1 = class(TFormQuery)
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    cdsQueryDSDesigner: TStringField;
    cdsQueryDSDesigner2: TStringField;
    cdsQueryDSDesigner3: TStringField;
    cdsQueryDSDesigner4: TDateTimeField;
    cdsQueryDSDesigner5: TStringField;
    cdsQueryDSDesigner6: TBCDField;
    ADODataSet1: TADODataSet;
    procedure cdsQueryAfterOpen(DataSet: TDataSet);
    procedure cdsQueryCalcFields(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormQueryDDTJ_1: TFormQueryDDTJ_1;

implementation

uses
  dm;

{$R *.dfm}

procedure TFormQueryDDTJ_1.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_1.cdsQueryCalcFields(DataSet: TDataSet);
var
  khid : String;  // 客户编号
begin
  inherited;
  with DataSet do
  begin
     khid := FindField('客户编号').Value;
     if ADODataSet1.Active then
       ADODataSet1.Close;
     ADODataSet1.Parameters.ParamByName('khid').Value := khid;
     ADODataSet1.Open;
     if ADODataSet1.RecordCount > 0 then
     begin
       if not ADODataSet1.FindField('日期').IsNull then
         FindField('发生日期').Value := ADODataSet1.FindField('日期').Value;
       if not ADODataSet1.FindField('数量').IsNull then
         FindField('销售数量').Value := ADODataSet1.FindField('数量').Value;
     end;
  end;
end;

procedure TFormQueryDDTJ_1.FormCreate(Sender: TObject);
begin
  inherited;
  if not cdsQuery.Active then
    cdsQuery.Open;
end;

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

  inherited;
end;

end.