unit ProSelect;

interface

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

type
  TProSelectForm = class(TBaseInfoSelectForm)
    QBaseInfoID: TAutoIncField;
    QBaseInfoDSDesigner: TStringField;
    QBaseInfoDSDesigner2: TStringField;
    QBaseInfoDSDesigner3: TIntegerField;
    QBaseInfoDSDesigner4: TStringField;
    QBaseInfoDSDesigner5: TBCDField;
    QBaseInfoDSDesigner6: TFloatField;
    QBaseInfoDSDesigner7: TBCDField;
    QBaseInfoDSDesigner8: TFloatField;
    QBaseInfoDSDesigner9: TFloatField;
    QBaseInfoDSDesigner10: TIntegerField;
    QBaseInfoDSDesigner11: TBooleanField;
    QBaseInfoDSDesigner12: TWideStringField;
    QBaseInfoDSDesigner13: TStringField;
    procedure tbSelClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

procedure ShowProSelectForm(ADOQryTmp: TADOQuery);

implementation

uses SysPublic;


{$R *.dfm}

procedure ShowProSelectForm(ADOQryTmp: TADOQuery);
var
  ProSelectForm: TProSelectForm;
begin
  ProSelectForm:= TProSelectForm.Create(Nil);
  ProSelectForm.ADOQrySel:= ADOQryTmp;
  ProSelectForm.ShowModal;
end;

procedure TProSelectForm.tbSelClick(Sender: TObject);
begin
  inherited;
  SetField('項(xiàng)目編號(hào),項(xiàng)目名稱,類別編號(hào),項(xiàng)目條碼,單價(jià),項(xiàng)目折扣,材料費(fèi)用,材料單價(jià),標(biāo)準(zhǔn)工時(shí),需用積分,是否打包,備注,狀態(tài)',
  '項(xiàng)目編號(hào),項(xiàng)目名稱,類別編號(hào),項(xiàng)目條碼,單價(jià),項(xiàng)目折扣,材料費(fèi)用,材料單價(jià),標(biāo)準(zhǔn)工時(shí),需用積分,是否打包,備注,狀態(tài)',
  ADOQrySel, QBaseInfo);
  Close;
end;

end.