unit BaseProductSelect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfoSelect, PrintForm, DB, ADODB, Grids, DBGridEh, ComCtrls,
  ToolWin;

type
  TBaseProductSelectForm = class(TBaseInfoSelectForm)
    procedure tbSelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure ShowBaseProductSelectForm(ADOQryTmp: TADOQuery);

implementation

uses SysPublic;

{$R *.dfm}

procedure ShowBaseProductSelectForm(ADOQryTmp: TADOQuery);
var
  BaseProductSelectForm: TBaseProductSelectForm;
begin
  BaseProductSelectForm:= TBaseProductSelectForm.Create(Nil);
  BaseProductSelectForm.ADOQrySel:= ADOQryTmp;
  BaseProductSelectForm.ShowModal;
end;

procedure TBaseProductSelectForm.tbSelClick(Sender: TObject);
begin
  inherited;
  SetField('編號(hào),產(chǎn)品名稱,類別編號(hào),類別名稱,銷售價(jià),產(chǎn)品條碼,保質(zhì)期,成本價(jià),超儲(chǔ)界線,缺貨界線,產(chǎn)品折扣,需用積分,是否打包,備注,狀態(tài)',
  '產(chǎn)品編號(hào),產(chǎn)品名稱,類別編號(hào),類別名稱,銷售價(jià),產(chǎn)品條碼,保質(zhì)期,成本價(jià),超儲(chǔ)界線,缺貨界線,產(chǎn)品折扣,需用積分,是否打包,備注,狀態(tài)',
  ADOQrySel, QBaseInfo);
  Close;
end;

end.