querystore.pas

库房管理系统

unit QueryStore;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  dxExEdtr, StdCtrls, wwdblook, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, wwDialog, wwfltdlg, ppProd, ppClass, ppReport,
  ppComm, ppRelatv, ppDB, ppDBPipe, DB, ADODB, ActnList, ComCtrls, ToolWin,
  dxDBTLCl, dxGrClms, ppCtrls, ppPrnabl, ppBands, ppCache, ExtCtrls, ppVar;

type
  TfrmQueryStore = class(TfrmQueryStore)
    dxDBGrid1: TdxDBGrid;
    dsStorage: TDataSource;
    QStorage: TADOQuery;
    QStoragefID: TAutoIncField;
    QStoragefCode: TWideStringField;
    QStoragefName: TWideStringField;
    QProduct: TADOQuery;
    dxDBGrid1fID: TdxDBGridMaskColumn;
    dxDBGrid1fProductID: TdxDBGridMaskColumn;
    dxDBGrid1fCurQty: TdxDBGridMaskColumn;
    dxDBGrid1sProductCode: TdxDBGridLookupColumn;
    dxDBGrid1sProductSpec: TdxDBGridLookupColumn;
    dxDBGrid1sProductColor: TdxDBGridLookupColumn;
    dxDBGrid1fProductPrice: TdxDBGridLookupColumn;
    dxDBGrid1rSumPrice: TdxDBGridColumn;
    dxDBGrid1sProductName: TdxDBGridLookupColumn;
    dxDBGrid1Column14: TdxDBGridLookupColumn;
    Panel1: TPanel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label1: TLabel;
    QQueryfID: TAutoIncField;
    QQueryfProductID: TIntegerField;
    QQueryfCurQty: TBCDField;
    QQueryrSumPrice: TFloatField;
    QProductfID: TAutoIncField;
    QProductfCode: TWideStringField;
    QProductfName: TWideStringField;
    QProductfSpec: TWideStringField;
    QProductfColor: TWideStringField;
    QProductfUnitsName: TWideStringField;
    QProductfPrePrice: TBCDField;
    QQueryfCode: TWideStringField;
    QQueryfName: TWideStringField;
    QQueryfSpec: TWideStringField;
    QQueryfColor: TWideStringField;
    QQueryfUnitsName: TWideStringField;
    QQueryfPrePrice: TBCDField;
    QQueryfTypeCode: TWideStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure QQueryCalcFields(DataSet: TDataSet);
    procedure wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure acFindExecute(Sender: TObject);
    procedure ppReportBeforePrint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQueryStore: TfrmQueryStore;

implementation

uses StorageFilter;

{$R *.dfm}

procedure TfrmQueryStore.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
frmStorageFilter :=Nil;  
frmQueryStore:=nil;
end;

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

procedure TfrmQueryStore.QQueryCalcFields(DataSet: TDataSet);
begin
  inherited;
With QQuery do
  FieldByName('rSumPrice').AsFloat :=
             FieldByName('fCurQty').AsFloat * FieldByName('fPrePrice').AsFloat;

end;

procedure TfrmQueryStore.wwDBLookupCombo1CloseUp(Sender: TObject;
  LookupTable, FillTable: TDataSet; modified: Boolean);
begin
  inherited;
if wwDBLookupCombo1.LookupValue<>'' then
  With QQuery do
    begin
    Parameters.ParamValues['fID']:=QStorage.FieldValues['fID'];
    if Active then Requery() else Open;
    end;
end;

procedure TfrmQueryStore.acFindExecute(Sender: TObject);
begin
  inherited;
if not Assigned(frmStorageFilter) then
   frmStorageFilter:=TfrmStorageFilter.Create(Self);
   
if frmStorageFilter.ShowModal=mrOk then
   begin
   QQuery.Filtered :=False;
   QQuery.Filter :=frmStorageFilter.sFilter;
   QQuery.Filtered :=True;
   end;
end;

procedure TfrmQueryStore.ppReportBeforePrint(Sender: TObject);
begin
  inherited;
pplbDep.Caption :=wwDBLookupCombo1.Text ;
end;

end.