queryproduct.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 136 行

unit QueryProduct;

interface

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

type
  TfrmQueryProduct = class(TfrmBaseInfoQueryBase)
    Splitter1: TSplitter;
    GroupBox1: TGroupBox;
    dxDBGrid1: TdxDBGrid;
    QQueryfID: TIntegerField;
    QQueryfTypeID: TIntegerField;
    QQueryfTypeCode: TWideStringField;
    QQueryfCode: TWideStringField;
    QQueryfName: TWideStringField;
    QQueryfSpec: TWideStringField;
    QQueryfColor: TWideStringField;
    QQueryfLevel: TWideStringField;
    QQueryfUnitsName: TWideStringField;
    QQueryfRetailPrice: TBCDField;
    QQueryfPrePrice: TBCDField;
    QProuctType: TADOQuery;
    QQuerysProductName: TStringField;
    dxDBGrid1fID: TdxDBGridMaskColumn;
    dxDBGrid1fTypeID: TdxDBGridMaskColumn;
    dxDBGrid1fTypeCode: TdxDBGridColumn;
    dxDBGrid1fCode: TdxDBGridColumn;
    dxDBGrid1fName: TdxDBGridColumn;
    dxDBGrid1fSpec: TdxDBGridColumn;
    dxDBGrid1fColor: TdxDBGridColumn;
    dxDBGrid1fLevel: TdxDBGridColumn;
    dxDBGrid1fUnitsName: TdxDBGridColumn;
    dxDBGrid1sProductName: TdxDBGridLookupColumn;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppSummaryBand1: TppSummaryBand;
    ppShape7: TppShape;
    ppShape6: TppShape;
    ppShape5: TppShape;
    ppShape4: TppShape;
    ppShape2: TppShape;
    ppShape1: TppShape;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppShape8: TppShape;
    ppShape9: TppShape;
    ppShape10: TppShape;
    ppShape11: TppShape;
    ppShape13: TppShape;
    ppShape14: TppShape;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppShape15: TppShape;
    ppLabel10: TppLabel;
    ppShape16: TppShape;
    ppDBText8: TppDBText;
    ppShape17: TppShape;
    ppLabel11: TppLabel;
    ppShape18: TppShape;
    ppDBText9: TppDBText;
    ppShape3: TppShape;
    ppLabel4: TppLabel;
    ppShape12: TppShape;
    ppDBText3: TppDBText;
    ppShape19: TppShape;
    ppLabel12: TppLabel;
    ppShape20: TppShape;
    ppDBText10: TppDBText;
    dxDBGrid1fRetailPrice: TdxDBGridColumn;
    dxDBGrid1fPrePrice: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure acFindExecute(Sender: TObject);
  private
    sSql: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQueryProduct   : TfrmQueryProduct;

implementation

uses LookupProduct;

{$R *.dfm}

procedure TfrmQueryProduct.FormCreate(Sender: TObject);
begin
  inherited;
  if not QQuery.Active then QQuery.Open;
  sSql := 'select fID,fTypeCode,fCode,fName,fSpec,fEnglishName,fColor,fLevel,fUnitsName,fRetailPrice,fPrePrice,fTypeID from tProduct';
  if not Assigned(frmLookupProduct) then
    frmLookupProduct := TfrmLookupProduct.create(self);
end;

procedure TfrmQueryProduct.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmQueryProduct := nil;
  frmLookupProduct := nil;

end;

procedure TfrmQueryProduct.acFindExecute(Sender: TObject);
begin
  inherited;
  if frmLookupProduct.ShowModal = mrOk then
  begin
    QQuery.Close;
    QQuery.SQL.Clear;
    QQuery.SQL.Add(sSql + frmLookupProduct.sFilter);
    QQuery.Open;
  end;
end;

end.