queryyg.pas

客户档案管理-delphi开发

unit queryyg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, query, BusinessSkinForm, bsSkinGrids, bsDBGrids, bsSkinCtrls,
  DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsSkinShellCtrls, PrnDbgeh,
  Menus, bsSkinMenus, Grids, DBGridEh, ExtCtrls;

type
  TFormQueryYG = class(TFormQuery)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinComboBox1: TbsSkinComboBox;
    cdsQueryDSDesigner: TStringField;
    cdsQueryDSDesigner3: TStringField;
    cdsQueryDSDesigner4: TStringField;
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
    procedure xxxx;
  public
    { Public declarations }
  end;

var
  FormQueryYG: TFormQueryYG;

implementation

uses
  dm, addyg;

{$R *.dfm}

procedure TFormQueryYG.bsSkinSpeedButton1Click(Sender: TObject);
var
  sWhere : String;
begin
  inherited;
  sWhere := '';
  if Length(bsSkinEdit1.Text) > 0 then
    sWhere := '用户名 LIKE ''%' + bsSkinEdit1.Text + '%''';
  if Length(bsSkinComboBox1.Text) > 0 then
  begin
    if Length(sWhere) > 0 then
      sWhere := sWhere + ' and ';
    sWhere := sWhere + '人员类别= ''' + bsSkinComboBox1.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 TFormQueryYG.bsSkinSpeedButton2Click(Sender: TObject);
var
  sWhere : String;
begin
  inherited;
  sWhere := 'select * from 用户';

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

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

   with TFormAddYG.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;

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

end.