xdselclient.pas

来自「企业商品管理系统」· PAS 代码 · 共 93 行

unit XDSelClient;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB,Theme;

type
  TFrm_XDSelClient = class(TBaseForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    SpeedButton3: TSpeedButton;
    ADOClient: TADODataSet;
    DSClient: TDataSource;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_XDSelClient: TFrm_XDSelClient;
  ClientCode,ClientName:string;
implementation
uses XDPrice,DM;
{$R *.dfm}

procedure TFrm_XDSelClient.SpeedButton3Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_XDSelClient.SpeedButton1Click(Sender: TObject);
var
  SQLStr:string;
begin
  if Edit1.Text='' then
  begin
    Application.MessageBox('查询值不能为空！','明日科技');
    Exit;
  end;
  case ComboBox1.ItemIndex of
  0:  begin
        SQLStr:='MR_Code = '+Edit1.Text;  
      end;
  1:  begin
        SQLStr:='MR_Name like '''+QuotedStr(Edit1.Text+'%');
      end;
  end;
  with Frm_XDPeice do
  begin
    ADOClient.Filtered:=False;
    ADOClient.Filter:=SQLStr;
    ADOClient.Filtered:=True;
  end;
end;

procedure TFrm_XDSelClient.DBGrid1DblClick(Sender: TObject);
begin
    ClientCode:=ADOClient.FieldByName('MR_Code').AsString;
    ClientName:=ADOClient.FieldByName('MR_Name').AsString;
  Close;
end;

procedure TFrm_XDSelClient.SpeedButton2Click(Sender: TObject);
begin
  with Frm_XDPeice do
  begin
    ADOClient.Filtered:=False;
    ADOClient.Filter:='';
    ADOClient.Filtered:=True;
  end;
end;

procedure TFrm_XDSelClient.FormShow(Sender: TObject);
begin
  ADOClient.Close;
  ADOClient.Open;
  SpeedButton2.Click;
end;

end.