lookupproduct.pas

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

unit LookupProduct;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DailogBase, dxdbtrel, StdCtrls, DB, ADODB, Buttons;

type
  TfrmLookupProduct = class(TfrmDailogBase)
    btClear: TBitBtn;
    btOk: TBitBtn;
    btCancel: TBitBtn;
    QProductType: TADOQuery;
    QProductTypefID: TAutoIncField;
    QProductTypefParentID: TIntegerField;
    QProductTypefCode: TWideStringField;
    QProductTypefName: TWideStringField;
    dsProductType: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lblNO: TLabel;
    Label4: TLabel;
    edtCode: TEdit;
    edtName: TEdit;
    lktvTypeCode: TdxDBLookupTreeView;
    procedure btClearClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    sFilter: string;
    { Public declarations }
  end;

var
  frmLookupProduct  : TfrmLookupProduct;

implementation

{$R *.dfm}

procedure TfrmLookupProduct.btClearClick(Sender: TObject);
begin
  inherited;
  lktvTypeCode.text := '';
  edtCode.text := '';
  edtName.text := '';
end;

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

procedure TfrmLookupProduct.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //  inherited;

end;

procedure TfrmLookupProduct.btOkClick(Sender: TObject);
begin
  inherited;
  sFilter := ' Where';
  if Trim(lktvTypeCode.text) <> '' then
  begin
    sFilter := sFilter + ' fTypeCode like ''' + QProductType.FieldbyName('fCode').asString + '%''';
  end;
  if Trim(edtCode.text) <> '' then
  begin
    if sFilter <> ' Where' then sFilter := sFilter + ' and';
    if pos('%', edtCode.text) > 0 then
      sFilter := sFilter + ' fCode like ''' + Trim(edtCode.text) + ''''
    else
      sFilter := sFilter + ' fCode=''' + Trim(edtCode.text) + '''';
  end;
  if Trim(edtName.text) <> '' then
  begin
    if sFilter <> ' Where' then sFilter := sFilter + ' and';
    if pos('%', edtName.text) > 0 then
      sFilter := sFilter + ' fName like ''' + Trim(edtName.text) + ''''
    else
      sFilter := sFilter + ' fName=''' + Trim(edtName.text) + '''';
  end;

  if sFilter = ' Where' then sFilter := '';
end;

end.