ubom.dfm

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

    Top = 304
    object QBOMfpartcode: TStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'fpartcode'
      LookupDataSet = QProduct
      LookupKeyFields = 'fID'
      LookupResultField = 'fCode'
      KeyFields = 'fpartid'
      Lookup = True
    end
    object QBOMfpartname: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'fpartname'
      LookupDataSet = QProduct
      LookupKeyFields = 'fID'
      LookupResultField = 'fName'
      KeyFields = 'fpartid'
      Size = 38
      Lookup = True
    end
    object QBOMfqty: TBCDField
      DisplayLabel = #29992#37327
      DisplayWidth = 10
      FieldName = 'fqty'
      Precision = 9
      Size = 2
    end
    object QBOMfpartunit: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 6
      FieldKind = fkLookup
      FieldName = 'fpartunit'
      LookupDataSet = QProduct
      LookupKeyFields = 'fID'
      LookupResultField = 'fUnit'
      KeyFields = 'fpartid'
      Size = 12
      Lookup = True
    end
    object QBOMfpartdesc: TStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'fpartdesc'
      LookupDataSet = QProduct
      LookupKeyFields = 'fID'
      LookupResultField = 'fdesc'
      KeyFields = 'fpartid'
      Size = 36
      Lookup = True
    end
    object QBOMfpartcolor: TStringField
      DisplayWidth = 18
      FieldKind = fkLookup
      FieldName = 'fpartcolor'
      LookupDataSet = QProduct
      LookupKeyFields = 'fID'
      LookupResultField = 'fColor'
      KeyFields = 'fpartid'
      Visible = False
      Size = 18
      Lookup = True
    end
    object QBOMfpartlevel: TStringField
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'fpartlevel'
      LookupDataSet = QProduct
      LookupKeyFields = 'fID'
      LookupResultField = 'fLevel'
      KeyFields = 'fpartid'
      Visible = False
      Size = 12
      Lookup = True
    end
    object QBOMfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object QBOMfparentid: TIntegerField
      DisplayWidth = 10
      FieldName = 'fparentid'
      Visible = False
    end
    object QBOMfpartid: TIntegerField
      DisplayWidth = 10
      FieldName = 'fpartid'
      Visible = False
    end
    object QBOMfunit: TWideStringField
      DisplayWidth = 12
      FieldName = 'funit'
      Visible = False
      Size = 12
    end
    object QBOMfbegintime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fbegintime'
      Visible = False
    end
    object QBOMfendtime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fendtime'
      Visible = False
    end
    object QBOMfnotes: TWideStringField
      DisplayWidth = 200
      FieldName = 'fnotes'
      Visible = False
      Size = 200
    end
  end
  object dsBOM: TDataSource
    DataSet = QBOM
    OnStateChange = dsBOMStateChange
    Left = 552
    Top = 312
  end
  object QProduct: TADOQuery
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select fID,fCode,fName,fdesc,fUnit,fColor,fLevel,fType from vite' +
        'm'
      'order by fCode')
    Left = 344
    Top = 280
    object QProductfCode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 16
      FieldName = 'fCode'
    end
    object QProductfName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 22
      FieldName = 'fName'
      Size = 38
    end
    object QProductfdesc: TWideStringField
      DisplayLabel = #35268#26684
      DisplayWidth = 26
      FieldName = 'fdesc'
      Size = 48
    end
    object QProductfUnit: TWideStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 6
      FieldName = 'fUnit'
      Size = 12
    end
    object QProductfID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object QProductfColor: TWideStringField
      DisplayWidth = 18
      FieldName = 'fColor'
      Visible = False
      Size = 18
    end
    object QProductfLevel: TWideStringField
      DisplayWidth = 12
      FieldName = 'fLevel'
      Visible = False
      Size = 12
    end
    object QProductfType: TWideStringField
      DisplayWidth = 28
      FieldName = 'fType'
      Visible = False
      Size = 28
    end
  end
  object dsProduct: TDataSource
    DataSet = QProduct
    Left = 352
    Top = 296
  end
  object spBOM: TADOStoredProc
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    ProcedureName = 'pBOMViewList;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@intProdID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 255
      end>
    Left = 104
    Top = 256
    object spBOMfParentID: TIntegerField
      FieldName = 'fParentID'
    end
    object spBOMfPartID: TIntegerField
      FieldName = 'fPartID'
    end
    object spBOMname: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'name'
      Size = 101
    end
  end
  object dsspBom: TDataSource
    DataSet = spBOM
    OnDataChange = dsspBomDataChange
    Left = 112
    Top = 272
  end
  object QIsExists: TADOQuery
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ParentID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Count(*) FROM tBom Where fParentID=:ParentID')
    Left = 552
    Top = 152
  end
  object dsBomParent: TDataSource
    DataSet = QBomParent
    Left = 32
    Top = 112
  end
  object ALToolbar: TActionList
    Left = 552
    Top = 40
    object acOpen: TAction
      Caption = #25171#24320
      Hint = #25171#24320'BOM'
      ImageIndex = 1
      ShortCut = 16463
      OnExecute = acOpenExecute
    end
    object acNew: TAction
      Caption = #26032#24314
      Hint = #26032#24314'BOM'
      ImageIndex = 0
      ShortCut = 16429
      OnExecute = acNewExecute
    end
    object acCopy: TAction
      Caption = #22797#21046
      ImageIndex = 7
      Visible = False
    end
    object acModify: TAction
      Caption = #32534#36753
      Hint = #32534#36753
      ImageIndex = 15
      ShortCut = 16453
      OnExecute = acModifyExecute
    end
    object acDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500'BOM'
      ImageIndex = 16
      ShortCut = 16430
      OnExecute = acDeleteExecute
    end
    object acSave: TAction
      Caption = #20445#23384
      Enabled = False
      Hint = #20445#23384
      ImageIndex = 4
      ShortCut = 16467
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      Enabled = False
      Hint = #21462#28040
      ImageIndex = 5
      ShortCut = 16392
      OnExecute = acCancelExecute
    end
    object acPrint: TAction
      Caption = #25171#21360
      Hint = #25171#21360
      ImageIndex = 3
      ShortCut = 16464
    end
    object acExit: TAction
      Caption = #20851#38381
      Hint = #20851#38381
      ImageIndex = 20
      ShortCut = 16465
      OnExecute = acExitExecute
    end
    object acAddLine: TAction
      Caption = #22686#21152
      Enabled = False
      Hint = #22686#21152#23376#20214
      ImageIndex = 12
      ShortCut = 16457
      OnExecute = acAddLineExecute
    end
    object acDelLine: TAction
      Caption = #21024#38500
      Enabled = False
      Hint = #21024#38500#23376#20214
      ImageIndex = 13
      ShortCut = 16452
      OnExecute = acDelLineExecute
    end
    object acIsExists: TAction
    end
    object acFullExpand: TAction
      Caption = #23637#24320