umaterieldecompose.dfm

进销存以及BOM管理,SQl Server数据库程序

      DisplayWidth = 18
      FieldName = 'fisfdate'
      Visible = False
    end
    object QProduceOrderfispcontrol: TWideStringField
      DisplayWidth = 16
      FieldName = 'fispcontrol'
      Visible = False
      Size = 16
    end
    object QProduceOrderfbill_user: TWideStringField
      DisplayWidth = 16
      FieldName = 'fbill_user'
      Visible = False
      Size = 16
    end
    object QProduceOrderfbill_date: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fbill_date'
      Visible = False
    end
  end
  object dsProduceOrder: TDataSource
    DataSet = QProduceOrder
    Left = 32
    Top = 192
  end
  object wwLookupDlgBomParent: TwwLookupDialog
    Selected.Strings = (
      'fname'#9'16'#9#29983#20135#21333#21495#9'F'
      'fdate_finish'#9'12'#9#26085#26399#9'F'
      'fitemcode'#9'16'#9#20135#21697#32534#21495#9'F'
      'fitemname'#9'26'#9#21517#31216#9'F')
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = QProduceOrder
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 88
    Top = 200
  end
  object QProduct: TADOQuery
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select fID,fCode,fName,fdesc,fUnit,fColor,fLevel,fType from vPro' +
        'duct'
      'order by fCode')
    Left = 368
    Top = 272
    object QProductfcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 16
      FieldName = 'fcode'
    end
    object QProductfname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
      Size = 38
    end
    object QProductfdesc: TWideStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 24
      FieldName = 'fdesc'
      Size = 48
    end
    object QProductfcolor: TWideStringField
      DisplayLabel = #39068#33394
      DisplayWidth = 12
      FieldName = 'fcolor'
      Size = 18
    end
    object QProductfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object QProductftype: TWideStringField
      DisplayWidth = 28
      FieldName = 'ftype'
      Visible = False
      Size = 28
    end
    object QProductflevel: TWideStringField
      DisplayWidth = 12
      FieldName = 'flevel'
      Visible = False
      Size = 12
    end
    object QProductfunit: TWideStringField
      DisplayWidth = 12
      FieldName = 'funit'
      Visible = False
      Size = 12
    end
  end
  object spBOM: TADOStoredProc
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    ProcedureName = 'pBOMTreeView;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@intProdID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 24
    Top = 272
    object spBOMPID: TIntegerField
      FieldName = 'PID'
    end
    object spBOMAID: TIntegerField
      FieldName = 'AID'
    end
    object spBOMAQty: TBCDField
      FieldName = 'AQty'
      Precision = 10
      Size = 2
    end
    object spBOMBID: TIntegerField
      FieldName = 'BID'
    end
    object spBOMBQty: TBCDField
      FieldName = 'BQty'
      Precision = 10
      Size = 2
    end
    object spBOMCID: TIntegerField
      FieldName = 'CID'
    end
    object spBOMCQty: TBCDField
      FieldName = 'CQty'
      Precision = 10
      Size = 2
    end
    object spBOMDID: TIntegerField
      FieldName = 'DID'
    end
    object spBOMDQty: TBCDField
      FieldName = 'DQty'
      Precision = 10
      Size = 2
    end
    object spBOMEID: TIntegerField
      FieldName = 'EID'
    end
    object spBOMEQty: TBCDField
      FieldName = 'EQty'
      Precision = 10
      Size = 2
    end
    object spBOMFID: TIntegerField
      FieldName = 'FID'
    end
    object spBOMFQty: TBCDField
      FieldName = 'FQty'
      Precision = 10
      Size = 2
    end
    object spBOMGID: TIntegerField
      FieldName = 'GID'
    end
    object spBOMGQty: TBCDField
      FieldName = 'GQty'
      Precision = 10
      Size = 2
    end
    object spBOMHID: TIntegerField
      FieldName = 'HID'
    end
    object spBOMHQty: TBCDField
      FieldName = 'HQty'
      Precision = 10
      Size = 2
    end
    object spBOMPName: TStringField
      FieldKind = fkLookup
      FieldName = 'PName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'PID'
      Size = 80
      Lookup = True
    end
    object spBOMAName: TStringField
      FieldKind = fkLookup
      FieldName = 'AName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'AID'
      Size = 80
      Lookup = True
    end
    object spBOMBName: TStringField
      FieldKind = fkLookup
      FieldName = 'BName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'BID'
      Size = 80
      Lookup = True
    end
    object spBOMCName: TStringField
      FieldKind = fkLookup
      FieldName = 'CName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'CID'
      Size = 80
      Lookup = True
    end
    object spBOMDName: TStringField
      FieldKind = fkLookup
      FieldName = 'DName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'DID'
      Size = 80
      Lookup = True
    end
    object spBOMEName: TStringField
      FieldKind = fkLookup
      FieldName = 'EName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'EID'
      Size = 80
      Lookup = True
    end
    object spBOMFName: TStringField
      FieldKind = fkLookup
      FieldName = 'FName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'FID'
      Size = 80
      Lookup = True
    end
    object spBOMGName: TStringField
      FieldKind = fkLookup
      FieldName = 'GName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'GID'
      Size = 80
      Lookup = True
    end
    object spBOMHName: TStringField
      FieldKind = fkLookup
      FieldName = 'HName'
      LookupDataSet = QProducts
      LookupKeyFields = 'fID'
      LookupResultField = 'sName'
      KeyFields = 'GID'
      Size = 80
      Lookup = True
    end
  end
  object dsTV: TDataSource
    DataSet = spBOM
    Left = 56
    Top = 272
  end
  object QProducts: TADOQuery
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fID,fCode+'#39'  '#39'+fName as sName from titem')
    Left = 24
    Top = 312
  end
  object dsMateriel: TDataSource
    DataSet = QMateriel
    OnStateChange = dsMaterielStateChange
    Left = 376
    Top = 160
  end
  object QMateriel: TADOQuery
    Connection = DataM.AdoConnection