hwseldataa.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

object HwSelDataAForm: THwSelDataAForm
  Left = 100
  Top = 47
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #26009#21697#36873#25321
  ClientHeight = 437
  ClientWidth = 645
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Width = 3
    Height = 394
    Cursor = crHSplit
  end
  object pnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 394
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object pnlWhs: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 25
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = ' '#20179#24211#36164#26009
      TabOrder = 0
      Visible = False
    end
    object pnlClass: TPanel
      Left = 0
      Top = 184
      Width = 185
      Height = 25
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = ' '#26009#21697#20998#31867
      TabOrder = 1
    end
    object dtlWhs: TdxDBTreeList
      Left = 0
      Top = 25
      Width = 185
      Height = 159
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'FNo'
      ParentField = 'FParent'
      Align = alTop
      TabOrder = 2
      Visible = False
      DataSource = dsInv100
      ShowHeader = False
      TreeLineColor = clGrayText
      object dtlWhsFName: TdxDBTreeListMaskColumn
        DisableEditor = True
        Width = 160
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
    end
    object dxDBTreeView1: TdxDBTreeView
      Left = 0
      Top = 209
      Width = 185
      Height = 185
      ShowNodeHint = True
      AutoExpand = True
      DataSource = dsInv120
      KeyField = 'FNo'
      ListField = 'FName'
      ParentField = 'FParent'
      SeparatedSt = ' - '
      RaiseOnError = True
      ReadOnly = True
      Indent = 19
      Align = alClient
      ParentColor = False
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      SelectedIndex = -1
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 0
    Width = 457
    Height = 394
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object dbgItem: TdxDBGrid
      Left = 0
      Top = 0
      Width = 457
      Height = 394
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'FItemNo'
      ShowGroupPanel = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 0
      OnKeyPress = dbgItemKeyPress
      OnMouseUp = dbgItemMouseUp
      DataSource = dsInv150
      Filter.Criteria = {00000000}
      HideFocusRect = True
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
      OnBackgroundDrawEvent = dbgItemBackgroundDrawEvent
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 394
    Width = 645
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object bbtnOk: TBitBtn
      Left = 480
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450'(&O)'
      Default = True
      TabOrder = 0
      OnClick = bbtnOkClick
    end
    object bbtnExit: TBitBtn
      Left = 560
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986'(&X)'
      TabOrder = 1
      OnClick = bbtnExitClick
    end
    object bbtnFind: TBitBtn
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#25214'(&F)'
      TabOrder = 2
      OnClick = bbtnFindClick
    end
    object bbtnSearch: TBitBtn
      Left = 96
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#35810'(&S)'
      TabOrder = 3
      OnClick = bbtnSearchClick
    end
    object bbtnRefresh: TBitBtn
      Left = 176
      Top = 8
      Width = 75
      Height = 25
      Caption = #21047#26032'(&R)'
      TabOrder = 4
      OnClick = bbtnRefreshClick
    end
    object bbtnSelAll: TBitBtn
      Left = 288
      Top = 8
      Width = 75
      Height = 25
      Caption = #20840#37096#36873#25321'(&A)'
      TabOrder = 5
      OnClick = bbtnSelAllClick
    end
    object bbtnUnSel: TBitBtn
      Left = 368
      Top = 8
      Width = 75
      Height = 25
      Caption = #20840#37096#19981#36873'(&U)'
      TabOrder = 6
      OnClick = bbtnUnSelClick
    end
  end
  object dsInv100: TDataSource
    DataSet = adsInv100
    Left = 112
    Top = 88
  end
  object dsInv120: TDataSource
    DataSet = adsInv120
    Left = 112
    Top = 288
  end
  object dsInv150: TDataSource
    DataSet = adsInv150
    Left = 248
    Top = 88
  end
  object adsInv100: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = adsInv100AfterScroll
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 72
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 144
    Top = 88
    object adsInv100FNo: TIntegerField
      FieldName = 'FNo'
    end
    object adsInv100FName: TStringField
      FieldName = 'FName'
      Size = 72
    end
    object adsInv100FParent: TIntegerField
      FieldName = 'FParent'
    end
  end
  object adsInv150: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <>
    Parameters = <>
    StoreDefs = True
    Left = 288
    Top = 88
  end
  object adsInv120: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = adsInv100AfterScroll
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 72
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 144
    Top = 288
    object adsInv120FNo: TIntegerField
      FieldName = 'FNo'
    end
    object adsInv120FName: TStringField
      FieldName = 'FName'
      Size = 72
    end
    object adsInv120FParent: TIntegerField
      FieldName = 'FParent'
    end
  end
end