hwseldatab.dfm.svn-base

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

object HwSelDataBForm: THwSelDataBForm
  Left = 109
  Top = 63
  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 pnlClass: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 25
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = ' '#20998#31867#21015#34920
      TabOrder = 0
    end
    object dxDBTreeView1: TdxDBTreeView
      Left = 0
      Top = 25
      Width = 185
      Height = 369
      ImeName = ''
      ShowNodeHint = True
      AutoExpand = True
      DataSource = dsClass
      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 = 1
    end
  end
  object Panel2: TPanel
    Left = 188
    Top = 0
    Width = 457
    Height = 394
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object dbgItem: TdxDBTreeList
      Left = 0
      Top = 0
      Width = 457
      Height = 394
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'FNo'
      ParentField = 'FParent'
      Align = alClient
      TabOrder = 0
      OnKeyPress = dbgItemKeyPress
      OnMouseUp = dbgItemMouseUp
      DataSource = dsItems
      LookAndFeel = lfUltraFlat
      OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
      ShowGrid = True
      ShowLines = False
      TreeLineColor = clGrayText
      object dbgItemFSel: TdxDBTreeListCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        MinWidth = 20
        Width = 47
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FSel'
        ValueChecked = '-1'
        ValueUnchecked = '0'
      end
      object dbgItemFCode: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 133
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCode'
      end
      object dbgItemFName: TdxDBTreeListMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 252
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
    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 dsClass: TDataSource
    DataSet = adsClass
    Left = 64
    Top = 72
  end
  object dsItems: TDataSource
    DataSet = adsItems
    Left = 248
    Top = 88
  end
  object adsItems: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FSel'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 288
    Top = 88
    object adsItemsFSel: TIntegerField
      DisplayLabel = #36873#25321
      FieldName = 'FSel'
    end
    object adsItemsFNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsItemsFCode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'FCode'
      Size = 30
    end
    object adsItemsFName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 60
    end
    object adsItemsFParent: TIntegerField
      FieldName = 'FParent'
      Visible = False
    end
  end
  object adsClass: 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 = 96
    Top = 72
    object adsClassFNo: TIntegerField
      FieldName = 'FNo'
    end
    object adsClassFName: TStringField
      FieldName = 'FName'
      Size = 72
    end
    object adsClassFParent: TIntegerField
      FieldName = 'FParent'
    end
  end
  object qryItems: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select O120_001 as FNo,O120_002 as FCode,O120_002 as FName,O120_' +
        '003 as FParent from ORD120 order by O120_001')
    Left = 288
    Top = 128
  end
end