pasbom.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBom: TfrmBom
  Left = 193
  Top = 64
  Width = 1005
  Height = 600
  Caption = #20135#21697'BOM'#36164#26009#32500#25252
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 600
    Top = 38
    Height = 535
  end
  inherited DBGridEh1: TDBGridEh
    Left = 201
    Top = 180
    Width = 33
    Height = 28
    Align = alNone
    TabOrder = 3
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Fid'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'fParentID'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'fParentCode'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'fCode'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'fName'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'fNotes'
        Footers = <>
      end>
  end
  inherited ToolBar: TToolBar
    Width = 997
  end
  object dxDBTreeList1: TdxDBTreeList [3]
    Left = 0
    Top = 38
    Width = 600
    Height = 535
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'bomId'
    ParentField = 'Fid'
    Align = alLeft
    TabOrder = 1
    DataSource = dsBaseInfo
    OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
    OptionsDB = [etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoLoadAllRecords]
    TreeLineColor = clGrayText
    OnChangeNode = dxDBTreeList1ChangeNode
    object dxDBTreeList1fID: TdxDBTreeListMaskColumn
      Visible = False
      Width = 100
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bomId'
    end
    object dxDBTreeList1fParentID: TdxDBTreeListMaskColumn
      Visible = False
      Width = 100
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fid'
    end
    object dxDBTreeList1fParentCode: TdxDBTreeListColumn
      Visible = False
      Width = 100
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fxh'
    end
    object dxDBTreeList1Column8: TdxDBTreeListColumn
      Visible = False
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Fsizes'
    end
    object dxDBTreeList1fCode: TdxDBTreeListColumn
      Caption = #32534#30721
      Sorted = csUp
      Width = 250
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Xh'
    end
    object dxDBTreeList1Column7: TdxDBTreeListColumn
      Width = 50
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Sizes'
    end
    object dxDBTreeList1fName: TdxDBTreeListColumn
      Width = 125
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Name'
    end
    object dxDBTreeList1fNotes: TdxDBTreeListColumn
      Width = 150
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Remark'
    end
  end
  object PageControl1: TPageControl [4]
    Left = 603
    Top = 38
    Width = 394
    Height = 535
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'BOM'#32500#25252
      object Label1: TLabel
        Left = 20
        Top = 8
        Width = 44
        Height = 13
        Caption = #29238#31867'ID'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 33
        Width = 56
        Height = 13
        Caption = #29238#31867#32534#30721
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 10
        Top = 108
        Width = 52
        Height = 13
        Caption = #31867#22411#32534#30721
      end
      object Label4: TLabel
        Left = 203
        Top = 133
        Width = 52
        Height = 13
        Caption = #31867#22411#21517#31216
      end
      object Label5: TLabel
        Left = 36
        Top = 158
        Width = 26
        Height = 13
        Caption = #22791#27880
      end
      object Label6: TLabel
        Left = 23
        Top = 83
        Width = 40
        Height = 13
        Caption = #31867#22411'ID'
      end
      object Label7: TLabel
        Left = 201
        Top = 8
        Width = 56
        Height = 13
        Caption = #29238#31867#35268#26684
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 10
        Top = 133
        Width = 52
        Height = 13
        Caption = #31867#22411#35268#26684
      end
      object DBEdit1: TDBEdit
        Left = 72
        Top = 8
        Width = 121
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'Fid'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 72
        Top = 33
        Width = 314
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'Fxh'
        DataSource = dsBaseInfo
        TabOrder = 2
      end
      object Button1: TButton
        Left = 257
        Top = 58
        Width = 75
        Height = 21
        Caption = #25286#20998#26597#35810
        TabOrder = 11
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 8
        Top = 58
        Width = 75
        Height = 21
        Caption = #22686#21152#22522#31867
        TabOrder = 3
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 91
        Top = 58
        Width = 75
        Height = 21
        Caption = #22686#21152#21516#32423#31867
        TabOrder = 4
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 174
        Top = 58
        Width = 75
        Height = 21
        Caption = #22686#21152#23376#31867
        TabOrder = 5
        OnClick = Button4Click
      end
      object DBEdit3: TDBEdit
        Left = 72
        Top = 108
        Width = 314
        Height = 21
        DataField = 'Xh'
        DataSource = dsBaseInfo
        TabOrder = 7
      end
      object DBEdit4: TDBEdit
        Left = 265
        Top = 133
        Width = 121
        Height = 21
        DataField = 'Name'
        DataSource = dsBaseInfo
        TabOrder = 9
      end
      object DBMemo1: TDBMemo
        Left = 72
        Top = 158
        Width = 314
        Height = 70
        DataField = 'Remark'
        DataSource = dsBaseInfo
        ScrollBars = ssBoth
        TabOrder = 10
      end
      object DBEdit5: TDBEdit
        Left = 72
        Top = 83
        Width = 121
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = cl3DLight
        DataField = 'bomId'
        DataSource = dsBaseInfo
        ReadOnly = True
        TabOrder = 6
      end
      object DBEdit6: TDBEdit
        Left = 265
        Top = 8
        Width = 121
        Height = 21
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'Fsizes'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBEdit7: TDBEdit
        Left = 72
        Top = 133
        Width = 121
        Height = 21
        DataField = 'Sizes'
        DataSource = dsBaseInfo
        TabOrder = 8
      end
      object dxDBTreeList2: TdxDBTreeList
        Left = 0
        Top = 248
        Width = 386
        Height = 256
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'myret'
        ParentField = 'ret'
        Align = alBottom
        TabOrder = 12
        DataSource = DSf_getChild
        OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
        OptionsDB = [etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoLoadAllRecords]
        TreeLineColor = clGrayText
        object dxDBTreeList2xh: TdxDBTreeListMaskColumn
          Caption = #22411#21495
          Width = 250
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xh'
        end
        object dxDBTreeList2sizes: TdxDBTreeListMaskColumn
          Caption = #35268#26684
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sizes'
        end
        object dxDBTreeList2level: TdxDBTreeListMaskColumn
          Caption = #23618#27425
          Width = 50
          BandIndex = 0
          RowIndex = 0
          FieldName = 'level'
        end
        object dxDBTreeList2ret: TdxDBTreeListMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ret'
        end
        object dxDBTreeList2myret: TdxDBTreeListMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'myret'
        end
      end
    end
  end
  inherited QBaseInfo: TADOQuery
    LockType = ltOptimistic
    BeforeEdit = QBaseInfoBeforeEdit
    AfterCancel = QBaseInfoAfterCancel
    SQL.Strings = (
      'select * from CcBOM order by fid,xh')
    Left = 136
    object QBaseInfoXh: TStringField
      DisplayLabel = #22411#21495
      FieldName = 'Xh'
      Size = 50
    end
    object QBaseInfoName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'Name'
      Size = 30
    end
    object QBaseInfoSizes: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'Sizes'
      Size = 30
    end
    object QBaseInfoRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 800
    end
    object QBaseInfobomId: TBCDField
      FieldName = 'bomId'
      ReadOnly = True
      Visible = False
      Precision = 18
      Size = 0
    end
    object QBaseInfoFid: TBCDField
      FieldName = 'Fid'
      Visible = False
      Precision = 18
      Size = 0
    end
    object QBaseInfoFxh: TStringField
      FieldName = 'Fxh'
      Visible = False
      Size = 50
    end
    object QBaseInfoFsizes: TStringField
      FieldName = 'Fsizes'
      Visible = False
      Size = 30
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 173
  end
  inherited QIsUnique: TADOQuery
    Left = 165
  end
  inherited wwLookupDlg: TwwLookupDialog
    Top = 257
  end
  inherited dsQTemp: TDataSource
    Left = 170
  end
  inherited QTemp: TADOQuery
    Left = 135
    Top = 131
  end
  inherited SaveDialog1: TSaveDialog
    Left = 255
    Top = 140
  end
  object wwLocateDialog1: TwwLocateDialog
    Caption = #25628#32034
    DataSource = dsBaseInfo
    SearchField = 'Xh'
    MatchType = mtExactMatch
    CaseSensitive = False
    SortFields = fsSortByFieldName
    DefaultButton = dbFindNext
    FieldSelection = fsVisibleFields
    ShowMessages = True
    UseLocateMethod = True
    Options = [ldoCaseSensitiveBelow, ldoCloseOnMatch, ldoPreserveSearchText]
    Left = 216
    Top = 304
  end
  object Qf_getChild: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select  xh,sizes,level,ret,ret+xh+sizes myret  from   dbo.f_getC' +
        'hild('#39#39','#39#39')  ')
    Left = 704
    Top = 353
    object Qf_getChildxh: TStringField
      FieldName = 'xh'
      Size = 100
    end
    object Qf_getChildsizes: TStringField
      FieldName = 'sizes'
      Size = 50
    end
    object Qf_getChildlevel: TIntegerField
      FieldName = 'level'
    end
    object Qf_getChildret: TStringField
      FieldName = 'ret'
      Size = 7000
    end
    object Qf_getChildmyret: TStringField
      FieldName = 'myret'
      ReadOnly = True
      Size = 7150
    end
  end
  object DSf_getChild: TDataSource
    DataSet = Qf_getChild
    Left = 764
    Top = 369
  end
end