ubom.dfm

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

          Left = 77
          Top = 18
          Width = 135
          Height = 20
          TabStop = False
          Color = clScrollBar
          DataField = 'fCode'
          DataSource = dsParent
          ReadOnly = True
          TabOrder = 0
        end
      end
      object pnlBOMParentAppend: TPanel
        Left = 7
        Top = 6
        Width = 407
        Height = 117
        TabOrder = 1
        Visible = False
        object Label9: TLabel
          Left = 13
          Top = 22
          Width = 60
          Height = 12
          Alignment = taRightJustify
          Caption = #29238#20135#21697#32534#21495
        end
        object Label18: TLabel
          Left = 25
          Top = 43
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #21517#12288#12288#31216
        end
        object Label19: TLabel
          Left = 25
          Top = 66
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #35268#12288#12288#26684
        end
        object Label20: TLabel
          Left = 25
          Top = 90
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #39068#12288#12288#33394
        end
        object Label21: TLabel
          Left = 257
          Top = 92
          Width = 56
          Height = 12
          Alignment = taRightJustify
          AutoSize = False
          Caption = #35745#37327#21333#20301
        end
        object Label22: TLabel
          Left = 265
          Top = 21
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #31561#12288#12288#32423
        end
        object SpeedButton1: TSpeedButton
          Left = 221
          Top = 18
          Width = 21
          Height = 21
          Glyph.Data = {
            D6000000424DD60000000000000076000000280000000B0000000C0000000100
            04000000000060000000C40E0000C40E00001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
            0000888888888880000088800000888000008888888888800000888880888880
            0000888800088880000088700000888000008800000008800000888800088880
            0000888800088880000088880008888000008888888888800000}
          OnClick = SpeedButton1Click
        end
        object edtName: TEdit
          Left = 77
          Top = 41
          Width = 315
          Height = 20
          TabStop = False
          ReadOnly = True
          TabOrder = 2
        end
        object edtSpec: TEdit
          Left = 77
          Top = 64
          Width = 315
          Height = 20
          TabStop = False
          ReadOnly = True
          TabOrder = 3
        end
        object edtColor: TEdit
          Left = 77
          Top = 87
          Width = 170
          Height = 20
          TabStop = False
          ReadOnly = True
          TabOrder = 4
        end
        object edtUnit: TEdit
          Left = 318
          Top = 88
          Width = 74
          Height = 20
          TabStop = False
          ReadOnly = True
          TabOrder = 5
        end
        object edtLevel: TEdit
          Left = 318
          Top = 18
          Width = 74
          Height = 20
          TabStop = False
          ReadOnly = True
          TabOrder = 1
        end
        object edtcode: TEdit
          Left = 77
          Top = 18
          Width = 140
          Height = 20
          TabOrder = 0
        end
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 333
      Width = 473
      Height = 46
      Align = alBottom
      TabOrder = 2
      object Label13: TLabel
        Left = 11
        Top = 6
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = #22791#12288#12288#27880
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBMemo2: TDBMemo
        Left = 64
        Top = 5
        Width = 386
        Height = 37
        DataField = 'fNotes'
        DataSource = dsBOM
        ReadOnly = True
        TabOrder = 0
      end
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 16
      Top = 152
      Width = 121
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fCode'#9'16'#9#32534#21495#9#9
        'fName'#9'22'#9#21517#31216#9#9
        'fdesc'#9'26'#9#35268#26684#9#9
        'fUnit'#9'6'#9#21333#20301#9#9)
      DataField = 'fpartid'
      DataSource = dsBOM
      LookupTable = QProduct
      LookupField = 'fID'
      Options = [loColLines, loRowLines, loTitles]
      TabOrder = 3
      AutoDropDown = True
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 799
    Height = 37
    AutoSize = True
    ButtonHeight = 35
    ButtonWidth = 31
    Caption = 'ToolBar'
    Flat = True
    Images = ToolButtonImages
    ShowCaptions = True
    TabOrder = 3
    object tbtOpen: TToolButton
      Left = 0
      Top = 0
      Action = acOpen
    end
    object ToolButton8: TToolButton
      Left = 31
      Top = 0
      Width = 13
      Caption = 'ToolButton8'
      ImageIndex = 0
      Style = tbsDivider
    end
    object tbtNew: TToolButton
      Left = 44
      Top = 0
      Action = acNew
      ImageIndex = 13
    end
    object ToolButton4: TToolButton
      Left = 75
      Top = 0
      Action = acCopy
      ImageIndex = 21
    end
    object tbtModify: TToolButton
      Left = 106
      Top = 0
      Action = acModify
      ImageIndex = 11
    end
    object tbtDelete: TToolButton
      Left = 137
      Top = 0
      Action = acDelete
      ImageIndex = 12
    end
    object tbtDivider1: TToolButton
      Left = 168
      Top = 0
      Width = 9
      Caption = 'tbtDivider1'
      ImageIndex = 3
      Style = tbsDivider
    end
    object ToolButton6: TToolButton
      Left = 177
      Top = 0
      Action = acFullExpand
      ImageIndex = 14
    end
    object ToolButton7: TToolButton
      Left = 208
      Top = 0
      Action = acFullCollapse
      ImageIndex = 15
    end
    object ToolButton5: TToolButton
      Left = 239
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 0
      Style = tbsDivider
    end
    object ToolButton1: TToolButton
      Left = 247
      Top = 0
      Action = acAddLine
      ImageIndex = 8
    end
    object ToolButton2: TToolButton
      Left = 278
      Top = 0
      Action = acDelLine
      ImageIndex = 9
    end
    object ToolButton3: TToolButton
      Left = 309
      Top = 0
      Width = 11
      Caption = 'ToolButton3'
      ImageIndex = 0
      Style = tbsDivider
    end
    object tbtSave: TToolButton
      Left = 320
      Top = 0
      Action = acSave
    end
    object tbtCancel: TToolButton
      Left = 351
      Top = 0
      Action = acCancel
    end
    object tbtDivider3: TToolButton
      Left = 382
      Top = 0
      Width = 8
      Caption = 'tbtDivider3'
      ImageIndex = 12
      Style = tbsDivider
    end
    object tbtExit: TToolButton
      Left = 390
      Top = 0
      Action = acExit
      ImageIndex = 16
    end
  end
  object QBOM: TADOQuery
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterInsert = QBOMAfterInsert
    BeforePost = QBOMBeforePost
    Parameters = <
      item
        Name = 'ParentID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from tBOM '
      'where fParentID= :ParentID')
    Left = 536