sys500_01.dfm.svn-base

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

object Sys500_01Form: TSys500_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #29992#25143#26435#38480#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Pitch = fpFixed
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 168
    Top = 80
    Width = 3
    Height = 473
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 43
    Width = 800
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Enabled = False
    TabOrder = 0
    DesignSize = (
      800
      37)
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 796
      Height = 33
      Align = alClient
      Stretch = True
    end
    object lblUser: TLabel
      Left = 594
      Top = 13
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = #29992#25143#21517#31216
      FocusControl = edtUser
      Transparent = True
    end
    object edtUser: TDBEdit
      Left = 650
      Top = 9
      Width = 137
      Height = 20
      Anchors = [akTop, akRight]
      DataField = 'S500A_002'
      DataSource = dsSys500A
      TabOrder = 0
    end
  end
  object PageControl1: TPageControl
    Left = 171
    Top = 80
    Width = 629
    Height = 473
    ActivePage = tsProgram
    Align = alClient
    MultiLine = True
    TabIndex = 0
    TabOrder = 1
    object tsProgram: TTabSheet
      Caption = #31243#24207#26435#38480
      object sbProgram: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgProgram: TdxDBGrid
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          KeyField = 'S500D_007'
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgProgramClick
          OnKeyUp = dbgProgramKeyUp
          DataSource = dsSys500B
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgProgramS500D_007: TdxDBGridLookupColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 200
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500D_007'
          end
          object dbgProgramS500B_004: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgProgramS500B_005: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_005'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgProgramS500B_006: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_006'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgProgramS500B_007: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_007'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgProgramS500B_008: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_008'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgProgramS500B_009: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_009'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgProgramS500B_010: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 55
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500B_010'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsCsh: TTabSheet
      Caption = #24080#25143#26435#38480
      ImageIndex = 1
      object sbCsh: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgCsh: TdxDBGrid
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          KeyField = 'C550_001'
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsCsh550
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgCshC550_002: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550_002'
          end
          object dbgCshS500C_004: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsDept: TTabSheet
      Caption = #37096#38376#26435#38480
      ImageIndex = 1
      object sbDept: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgDept: TdxDBTreeList
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'H100_001'
          ParentField = 'H100_003'
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsHrm100
          HeaderColor = 15262169
          LookAndFeel = lfUltraFlat
          OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
          OptionsView = [etoBandHeaderWidth, etoIndicator, etoUseBitmap, etoUseImageIndexForSelected]
          ShowGrid = True
          ShowLines = False
          TreeLineColor = clGrayText
          object dbgDeptH100_002: TdxDBTreeListMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 304
            BandIndex = 0
            RowIndex = 0
            FieldName = 'H100_002'
          end
          object dbgDeptS500C_004: TdxDBTreeListCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsWhs: TTabSheet
      Caption = #20179#24211#26435#38480
      ImageIndex = 2
      object sbWhs: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgWhs: TdxDBTreeList
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'I100_001'
          ParentField = 'FParent'
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsInv100
          HeaderColor = 15262169
          LookAndFeel = lfUltraFlat
          OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
          OptionsView = [etoBandHeaderWidth, etoIndicator, etoUseBitmap, etoUseImageIndexForSelected]
          ShowGrid = True
          ShowLines = False
          TreeLineColor = clGrayText
          object dbgWhsI100_002: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I100_002'
          end
          object dbgWhsI100_003: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 304
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I100_003'
          end
          object dbgWhsS500C_004: TdxDBTreeListCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsWht: TTabSheet
      Caption = #24211#23384#25805#20316
      ImageIndex = 4
      object sbWht: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgWht: TdxDBGrid
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          KeyField = 'I550_001'
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsInv550
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          object dbgWhtI550_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I550_002'
          end
          object dbgWhtI550_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 304
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I550_003'
          end
          object dbgWhtS500C_004: TdxDBGridCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
    object tsItem: TTabSheet
      Caption = #29289#26009#26435#38480
      ImageIndex = 3
      object sbItem: TScrollBox
        Left = 0
        Top = 0
        Width = 621
        Height = 446
        Align = alClient
        TabOrder = 0
        object dbgItem: TdxDBTreeList
          Left = 0
          Top = 0
          Width = 617
          Height = 442
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'I120_001'
          ParentField = 'I120_004'
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnClick = dbgCshClick
          OnKeyUp = dbgCshKeyUp
          DataSource = dsInv120
          HeaderColor = 15262169
          LookAndFeel = lfUltraFlat
          OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
          OptionsView = [etoBandHeaderWidth, etoIndicator, etoUseBitmap, etoUseImageIndexForSelected]
          ShowGrid = True
          ShowLines = False
          TreeLineColor = clGrayText
          object dbgItemI120_002: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I120_002'
          end
          object dbgItemI120_003: TdxDBTreeListColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 304
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I120_003'
          end
          object dbgItemS500C_004: TdxDBTreeListCheckColumn
            HeaderAlignment = taCenter
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S500C_004'
            ValueChecked = 'True'