ser300_01.dfm.svn-base

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

inherited Ser300_01Form: TSer300_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #26469#30005#35760#24405#36319#36394
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 241
    Top = 80
    Width = 3
    Height = 473
    Cursor = crHSplit
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 80
    Width = 241
    Height = 473
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object dbgSer500: TdxDBGrid
      Left = 0
      Top = 0
      Width = 241
      Height = 473
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'T500_001'
      ShowGroupPanel = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsSer500
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      OnBackgroundDrawEvent = dbgSer530BackgroundDrawEvent
      object dbgSer500S500_001: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 93
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_001'
      end
      object dbgSer500S500_002: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 93
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_002'
      end
      object dbgSer500S110_003: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S110_003'
      end
      object dbgSer500S100_002: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 75
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S100_002'
      end
      object dbgSer500S500_005: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_005'
      end
      object dbgSer500S500_006: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_006'
      end
      object dbgSer500S500_007: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_007'
      end
      object dbgSer500S500_008: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_008'
      end
      object dbgSer500S500_009: TdxDBGridCurrencyColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_009'
        Nullable = False
      end
      object dbgSer500H150_003: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dbgSer500S500_011: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_011'
      end
      object dbgSer500S500_012: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_012'
      end
      object dbgSer500S500_013: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_013'
      end
      object dbgSer500S500_014: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_014'
      end
      object dbgSer500S500_015: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_015'
      end
      object dbgSer500S500_016: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 104
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_016'
      end
      object dbgSer500O150_003: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 104
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dbgSer500S500_018: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_018'
      end
      object dbgSer500S500_019: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 97
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_019'
      end
      object dbgSer500S500_020: TdxDBGridCheckColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_020'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dbgSer500S500_025: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_025'
      end
      object dbgSer500S500_026: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_026'
      end
      object dbgSer500S500_027: TdxDBGridCheckColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_027'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dbgSer500S500_028: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_028'
      end
      object dbgSer500S500_029: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_029'
      end
      object dbgSer500S500_030: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_030'
      end
      object dbgSer500S500_031: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_031'
      end
      object dbgSer500S500_033: TdxDBGridMemoColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_033'
      end
      object dbgSer500S500_034: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_034'
      end
      object dbgSer500S500_035: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_035'
      end
      object dbgSer500S500_036: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_036'
      end
      object dbgSer500S500_037: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_037'
      end
    end
  end
  object Panel2: TPanel [2]
    Left = 244
    Top = 80
    Width = 556
    Height = 473
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 0
      Top = 237
      Width = 556
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object PageControl1: TPageControl
      Left = 0
      Top = 65
      Width = 556
      Height = 172
      ActivePage = TabSheet1
      Align = alTop
      Style = tsFlatButtons
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #27719#25253#21015#34920
        object dbgSer530: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 142
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T520_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 0
          OnDblClick = dbgTas510DblClick
          DataSource = dsSer530
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgSer530BackgroundDrawEvent
          object dbgSer530S530_001: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_001'
          end
          object dbgSer530S530_002: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_002'
          end
          object dbgSer530S530_003: TdxDBGridColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_003'
          end
          object dbgSer530S530_004: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_004'
          end
          object dbgSer530S530_005: TdxDBGridMemoColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_005'
          end
          object dbgSer530S530_006: TdxDBGridMaskColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_006'
          end
          object dbgSer530S530_007: TdxDBGridDateColumn
            Alignment = taLeftJustify
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'S530_007'
          end