querycplb.pas

客户档案管理-delphi开发

unit queryCPLB;

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
  TFormQueryCPLB = class(TFormQuery)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinEdit5: TbsSkinEdit;
    cdsQueryDSDesigner: TBCDField;
    cdsQueryDSDesigner2: TStringField;
    cdsQueryDSDesigner3: TIntegerField;
    cdsQueryDSDesigner4: TIntegerField;
    cdsQueryDSDesigner5: TStringField;
    cdsQueryDSDesigner6: TStringField;
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormQueryCPLB: TFormQueryCPLB;

implementation

{$R *.dfm}

procedure TFormQueryCPLB.bsSkinSpeedButton2Click(Sender: TObject);
var
  sWhere : String;
begin
  inherited;
  sWhere := 'select * from 产品类别';

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

procedure TFormQueryCPLB.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(bsSkinEdit4.Text) > 0 then
  begin
    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '层次 LIKE ''%' + bsSkinEdit4.Text + '%''';
  end;
  if Length(bsSkinEdit5.Text) > 0 then
  begin
    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '层次路径 LIKE ''%' + bsSkinEdit5.Text + '%''';
  end;

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

  sWhere := 'select * from 产品类别' + sWhere;

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

end.