sys500_01.dfm.svn-base

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

            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsCust: TTabSheet
      Caption = #23458#25143#26435#38480
      ImageIndex = 8
      object sbCust: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgCust: TdxDBTreeList
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'O110_001'
          ParentField = 'O110_003'
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsOrd110
          HeaderColor = 15262169
          LookAndFeel = lfUltraFlat
          OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
          OptionsView = [etoBandHeaderWidth, etoIndicator, etoUseBitmap, etoUseImageIndexForSelected]
          ShowGrid = True
          ShowLines = False
          TreeLineColor = clGrayText
          object dbgCustO110_002: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'O110_002'
          end
          object dbgCustS500C_004: TdxDBTreeListCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsAccount: TTabSheet
      Caption = #31185#30446#26435#38480
      ImageIndex = 6
      object sbAccount: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgAccount: TdxDBTreeList
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'G150_001'
          ParentField = 'G150_003'
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsGld150
          HeaderColor = 15262169
          LookAndFeel = lfUltraFlat
          OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
          OptionsView = [etoBandHeaderWidth, etoIndicator, etoUseBitmap, etoUseImageIndexForSelected]
          ShowGrid = True
          ShowLines = False
          TreeLineColor = clGrayText
          object dbgAccountG150_002: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'G150_002'
          end
          object dbgAccountG150_004: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'G150_004'
          end
          object dbgAccountS500C_004: TdxDBTreeListCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
  end
  object TreeView1: TdxDBTreeView
    Left = 0
    Top = 80
    Width = 168
    Height = 473
    ShowNodeHint = True
    DataSource = dsSys500D
    KeyField = 'S500D_001'
    ListField = 'S500D_007'
    ParentField = 'S500D_002'
    SeparatedSt = ' - '
    RaiseOnError = True
    ReadOnly = True
    HideSelection = False
    Indent = 19
    OnGetImageIndex = TreeView1GetImageIndex
    Align = alLeft
    ParentColor = False
    Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    SelectedIndex = -1
    TabOrder = 2
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 783
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object tlbCopy: TToolButton
        Left = 253
        Top = 0
        Action = ActCopy
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 288
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 296
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 331
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object ToolButton5: TToolButton
        Left = 366
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 401
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 436
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 444
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object dsSys500A: TDataSource
    DataSet = qrySys500A
    Left = 24
    Top = 48
  end
  object dsSys500D: TDataSource
    DataSet = qrySys500D
    Left = 56
    Top = 208
  end
  object dsSys500B: TDataSource
    DataSet = qrySys500B
    Left = 191
    Top = 192
  end
  object dsHrm100: TDataSource
    DataSet = qryHrm100
    Left = 271
    Top = 192
  end
  object dsInv100: TDataSource
    DataSet = qryInv100
    Left = 311
    Top = 192
  end
  object qrySys500A: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySys500AAfterScroll
    OnNewRecord = qrySys500ANewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from SYS500A')
    Left = 24
    Top = 104
    object qrySys500AS500A_001: TAutoIncField
      FieldName = 'S500A_001'
      ReadOnly = True
      Visible = False
    end
    object qrySys500AS500A_002: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'S500A_002'
    end
    object qrySys500AS500A_003: TStringField
      FieldName = 'S500A_003'
      Visible = False
    end
    object qrySys500AS500A_004: TBooleanField
      FieldName = 'S500A_004'
      Visible = False
    end
    object qrySys500AS500A_005: TBooleanField
      FieldName = 'S500A_005'
      Visible = False
    end
    object qrySys500AS500A_006: TBooleanField
      FieldName = 'S500A_006'
      Visible = False
    end
  end
  object qrySys500D: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySys500DAfterScroll
    OnCalcFields = qrySys500DCalcFields
    Parameters = <>
    SQL.Strings = (
      'select S500D_001,S500D_002,S500D_011'
      'from SYS500D '
      'where S500D_010='#39'C'#39' and S500D_006<>0')
    Left = 56
    Top = 256
    object qrySys500DS500D_001: TStringField
      FieldName = 'S500D_001'
      FixedChar = True
      Size = 10
    end
    object qrySys500DS500D_002: TStringField
      FieldName = 'S500D_002'
      FixedChar = True
      Size = 10
    end
    object qrySys500DS500D_007: TStringField
      FieldKind = fkCalculated
      FieldName = 'S500D_007'
      ReadOnly = True
      Size = 255
      Calculated = True
    end
    object qrySys500DS500D_011: TAutoIncField
      FieldName = 'S500D_011'
      ReadOnly = True
      Visible = False
    end
  end
  object qrySys500B: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnCalcFields = qrySys500BCalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select B.S500D_001, B.S500D_002, A.S500B_002, A.S500B_004, A.S50' +
        '0B_005, A.S500B_006, A.S500B_007, A.S500B_008, A.S500B_009, A.S5' +
        '00B_010'
      'from SYS500B A, SYS500D B'
      
        'where A.S500B_002=B.S500D_011 and B.S500D_006<>0 and A.S500B_011' +
        '='#39'P'#39' and A.S500B_001=1'
      'order by B.S500D_005,A.S500D_001')
    Left = 192
    Top = 200
    object qrySys500BS500D_001: TStringField
      FieldName = 'S500D_001'
      ReadOnly = True
      Visible = False
      Size = 10
    end
    object qrySys500BS500D_002: TStringField
      FieldName = 'S500D_002'
      ReadOnly = True
      Visible = False
      Size = 10
    end
    object qrySys500BS500D_007: TStringField
      DisplayLabel = #31243#24207#21517#31216
      FieldKind = fkCalculated
      FieldName = 'S500D_007'
      ReadOnly = True
      Size = 50
      Calculated = True
    end
    object qrySys500BS500B_004: TBooleanField
      DisplayLabel = #26597#35810#26435#38480
      FieldName = 'S500B_004'
    end
    object qrySys500BS500B_005: TBooleanField
      DisplayLabel = #26032#22686#26435#38480
      FieldName = 'S500B_005'
    end
    object qrySys500BS500B_006: TBooleanField
      DisplayLabel = #20462#25913#26435#38480
      FieldName = 'S500B_006'
    end
    object qrySys500BS500B_007: TBooleanField
      DisplayLabel = #21024#38500#26435#38480
      FieldName = 'S500B_007'
    end
    object qrySys500BS500B_008: TBooleanField
      DisplayLabel = #25171#21360#26435#38480
      FieldName = 'S500B_008'
    end
    object qrySys500BS500B_009: TBooleanField
      DisplayLabel = #26597#30475#25104#26412
      FieldName = 'S500B_009'
    end
    object qrySys500BS500B_010: TBooleanField
      DisplayLabel = #23457#26680#26435#38480
      FieldName = 'S500B_010'
    end
    object qrySys500BS500B_002: TIntegerField
      FieldName = 'S500B_002'
      Visible = False
    end
  end
  object qryHrm100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.H100_001,B.H100_002,B.H100_003,A.*'
      'from SYS500C A, HRM100 B '
      
        'where A.S500C_002=B.H100_001 and A.S500C_003='#39'DEP'#39' and A.S500C_0' +
        '01= :UserNo')
    Left = 272
    Top = 200
    object qryHrm100H100_001: TIntegerField
      FieldName = 'H100_001'
      Visible = False
    end
    object qryHrm100H100_002: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'H100_002'
      Size = 50
    end
    object qryHrm100H100_003: TIntegerField
      FieldName = 'H100_003'
      Visible = False
    end
    object qryHrm100S500C_001: TIntegerField
      FieldName = 'S500C_001'