querycp.pas

客户档案管理-delphi开发

unit querycp;

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

var
  FormQueryCP: TFormQueryCP;

implementation

uses
  dm, AddCP;
  
{$R *.dfm}

procedure TFormQueryCP.bsSkinSpeedButton2Click(Sender: TObject);
var
  sWhere : String;
begin
  inherited;
  sWhere := 'select * from 产品视图';

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

procedure TFormQueryCP.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;

procedure TFormQueryCP.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
  xxxx;
end;

procedure TFormQueryCP.xxxx;
begin
  // 打开详细信息
  if not cdsQuery.Active then Exit;
  if cdsQuery.RecordCount <= 0 then Exit;

      with TFormAddCP.Create(self) do
      try
        // 定位到相关记录
        if cdsQuery.RecordCount > 0 then
        begin
          cdsAdd.Parameters.ParamByName('id').Value := cdsQuery.FindField('产品编号').Value;
          cdsAdd.Open;
        end;
        ShowModal;
      finally
        Free;
      end;
end;

end.