frmfinditem.~pas

BOM表

unit frmFindItem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, StdCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB, ADODB,Global;

type
  TFormFindItem = class(TForm)
    dxDBGrid1: TdxDBGrid;
    btnFind: TButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    cxLookupComboBoxType: TcxLookupComboBox;
    Label2: TLabel;
    Label3: TLabel;
    EditName: TEdit;
    EditType: TEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQueryItem: TADOQuery;
    dxDBGrid1cInvCode: TdxDBGridMaskColumn;
    dxDBGrid1cInvAddCode: TdxDBGridMaskColumn;
    dxDBGrid1cInvName: TdxDBGridMaskColumn;
    dxDBGrid1cInvStd: TdxDBGridMaskColumn;
    dxDBGrid1cInvCCode: TdxDBGridMaskColumn;
    ADOQueryType: TADOQuery;
    DSType: TDataSource;
    dxDBGrid1Column6: TdxDBGridColumn;
    procedure btnFindClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    boolReplace:Boolean;
    FobjectID:integer;
  end;

var
  FormFindItem: TFormFindItem;

implementation

{$R *.dfm}

procedure TFormFindItem.btnFindClick(Sender: TObject);
var
  strSql :string;
begin

  strSql := 'SELECT * FROM Inventory,InventoryClass '
         + ' where Inventory.cInvCCode = InventoryClass.cInvCCode ';

  if boolReplace then
  begin
    strSql := strSql +' and cInvCode in (select MaterailNum from App_MaterailPrice where ObjectID in (select ObjectID from Pub_Objects where ObjectParentID in (select ObjectParentID from Pub_Objects where ObjectID ='+intTostr(FobjectID)+')))';
    with ADOQueryType do
    begin
      sql.Text := 'SELECT * FROM InventoryClass where cInvCCode in '+
                  ' (select cInvCCode from VIEW_ItemClass where ObjectID in '+
                  ' (select ObjectID from Pub_Objects where isnull(objectDeleteFlag,0)=0'+
                  ' and ObjectParentID in (select ObjectParentID from Pub_Objects '+
                  ' where ObjectID ='+intTostr(FobjectID)+'))) ORDER BY cInvCName';
      Open;
    end;
  end;

  if cxLookupComboBoxType.Text <> '' then
    strSql := strSql + ' and cInvCName='''+ cxLookupComboBoxType.Text+'''';

  if trim(EditName.Text) <> '' then
    strSql := strSql + ' and cInvName like ''%'+ EditName.Text+'%''';

  if trim(EditType.Text) <> '' then
    strSql := strSql + ' and cInvStd like ''%'+ EditType.Text+'%''';

  strSql := strSql + ' order by cInvName';

  
  with ADOQueryItem do
  begin
    Close;
    Connection := Env.ADOConnection;
    sql.text := strSql;
    Open;
  end;
end;

procedure TFormFindItem.dxDBGrid1DblClick(Sender: TObject);
begin
  if not AdoqueryItem.Eof then
    modalresult := mrOK;
end;

procedure TFormFindItem.FormShow(Sender: TObject);
begin
  btnFindClick(nil);
end;

end.