ubom.dfm

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

inherited frmBaseBOM: TfrmBaseBOM
  Left = 274
  Top = 154
  ActiveControl = dxDBTreeBom
  Caption = 'BOM'#31649#29702
  ClientHeight = 483
  ClientWidth = 799
  KeyPreview = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 317
    Top = 99
    Height = 384
  end
  object Panel1: TPanel
    Left = 0
    Top = 37
    Width = 799
    Height = 62
    Align = alTop
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 0
    object Label1: TLabel
      Left = 5
      Top = 11
      Width = 67
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #20135#21697#32534#21495#65306
    end
    object Label2: TLabel
      Left = 220
      Top = 12
      Width = 66
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #21517#12288#12288#31216#65306
    end
    object Label23: TLabel
      Left = 220
      Top = 34
      Width = 66
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #35268#12288#12288#26684#65306
    end
    object Label24: TLabel
      Left = 12
      Top = 33
      Width = 60
      Height = 12
      Alignment = taRightJustify
      Caption = #39068#12288#12288#33394#65306
    end
    object Label25: TLabel
      Left = 399
      Top = 33
      Width = 60
      Height = 12
      Alignment = taRightJustify
      Caption = #31561#12288#12288#32423#65306
    end
    object DBText1: TDBText
      Left = 74
      Top = 11
      Width = 100
      Height = 12
      DataField = 'fcode'
      DataSource = dsBomParent
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 74
      Top = 33
      Width = 100
      Height = 12
      DataField = 'fColor'
      DataSource = dsBomParent
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 458
      Top = 33
      Width = 100
      Height = 12
      DataField = 'fLevel'
      DataSource = dsBomParent
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 288
      Top = 11
      Width = 100
      Height = 12
      DataField = 'fname'
      DataSource = dsBomParent
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 288
      Top = 33
      Width = 100
      Height = 12
      DataField = 'fdesc'
      DataSource = dsBomParent
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 99
    Width = 317
    Height = 384
    Align = alLeft
    BorderStyle = bsSingle
    TabOrder = 1
    object dxDBTreeBom: TfcTreeView
      Left = 1
      Top = 1
      Width = 311
      Height = 378
      Align = alClient
      Images = ImageListTree
      Indent = 19
      Items.StreamVersion = 1
      Items.Data = {00000000}
      TabOrder = 0
      OnChange = dxDBTreeBomChange
    end
  end
  object Panel3: TPanel
    Left = 320
    Top = 99
    Width = 479
    Height = 384
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 1
      Top = 126
      Width = 473
      Height = 5
      Cursor = crVSplit
      Align = alTop
    end
    object wwDBGrid1: TwwDBGrid
      Left = 1
      Top = 131
      Width = 473
      Height = 202
      ControlType.Strings = (
        'sPartCode;CustomEdit;wwDBLKProductCode;F'
        'fpartcode;CustomEdit;wwDBLookupCombo1;F')
      Selected.Strings = (
        'fpartcode'#9'16'#9#20195#30721#9#9
        'fpartname'#9'20'#9#21517#31216#9'F'#9
        'fqty'#9'10'#9#29992#37327#9#9
        'fpartunit'#9'6'#9#21333#20301#9#9
        'fpartdesc'#9'16'#9#35268#26684#9'F'#9)
      IniAttributes.FileName = 'delphi32.ini'
      IniAttributes.SectionName = 'TableQueryFormwwDBGrid1'
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = dsBOM
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 473
      Height = 125
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object pnlBOMParentView: TPanel
        Left = 7
        Top = 5
        Width = 407
        Height = 118
        TabOrder = 0
        object Label3: TLabel
          Left = 13
          Top = 21
          Width = 60
          Height = 12
          Alignment = taRightJustify
          Caption = #29238#20135#21697#32534#21495
        end
        object Label4: TLabel
          Left = 25
          Top = 42
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #21517#12288#12288#31216
        end
        object Label5: TLabel
          Left = 25
          Top = 66
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #35268#12288#12288#26684
        end
        object Label6: TLabel
          Left = 25
          Top = 89
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #39068#12288#12288#33394
        end
        object Label7: TLabel
          Left = 257
          Top = 91
          Width = 56
          Height = 12
          Alignment = taRightJustify
          AutoSize = False
          Caption = #35745#37327#21333#20301
        end
        object Label8: TLabel
          Left = 265
          Top = 20
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #31561#12288#12288#32423
        end
        object DBEdit3: TDBEdit
          Left = 77
          Top = 42
          Width = 315
          Height = 20
          TabStop = False
          Color = clScrollBar
          DataField = 'fName'
          DataSource = dsParent
          ReadOnly = True
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 77
          Top = 65
          Width = 315
          Height = 20
          TabStop = False
          Color = clScrollBar
          DataField = 'fdesc'
          DataSource = dsParent
          ReadOnly = True
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 77
          Top = 88
          Width = 138
          Height = 20
          TabStop = False
          Color = clScrollBar
          DataField = 'fdesc'
          DataSource = dsParent
          ReadOnly = True
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 318
          Top = 88
          Width = 74
          Height = 20
          TabStop = False
          Color = clScrollBar
          DataField = 'fUnit'
          DataSource = dsParent
          ReadOnly = True
          TabOrder = 5
        end
        object DBEdit7: TDBEdit
          Left = 318
          Top = 16
          Width = 74
          Height = 20
          TabStop = False
          Color = clScrollBar
          DataField = 'fLevel'
          DataSource = dsParent
          ReadOnly = True
          TabOrder = 1
        end
        object DBEdit2: TDBEdit