ord320_01.dfm.svn-base

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

inherited Ord320_01Form: TOrd320_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #38144#21806#23450#21333#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 dbgOrd510: TdxDBGrid
      Left = 0
      Top = 0
      Width = 241
      Height = 473
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'T510_001'
      ShowGroupPanel = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnDblClick = dbgOrd510DblClick
      DataSource = dsOrd510
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      OnBackgroundDrawEvent = dbgPur510BackgroundDrawEvent
      OnCustomDrawCell = dbgOrd510CustomDrawCell
      object dbgOrd510O510A_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_001'
      end
      object dbgOrd510O100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O100_002'
      end
      object dbgOrd510O510A_003: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_003'
      end
      object dbgOrd510O510A_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_004'
      end
      object dbgOrd510H150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dbgOrd510H150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dbgOrd510G100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dbgOrd510G100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_003'
      end
      object dbgOrd510O510A_008: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_008'
        Nullable = False
      end
      object dbgOrd510G110_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G110_002'
      end
      object dbgOrd510O510A_010: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_010'
      end
      object dbgOrd510O510A_012: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_012'
      end
      object dbgOrd510O510A_013: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_013'
        Nullable = False
      end
      object dbgOrd510O510A_014: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_014'
      end
      object dbgOrd510O510A_015: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_015'
      end
      object dbgOrd510O510A_016: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_016'
      end
      object dbgOrd510O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dbgOrd510O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dbgOrd510O150_005: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_005'
      end
      object dbgOrd510O150_006: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_006'
      end
      object dbgOrd510O150_012: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_012'
      end
      object dbgOrd510O510A_018: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_018'
      end
      object dbgOrd510O510A_019: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_019'
      end
      object dbgOrd510O510A_022: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_022'
      end
      object dbgOrd510O510A_023: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_023'
      end
      object dbgOrd510O510A_024: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_024'
      end
      object dbgOrd510O510A_025: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O510A_025'
      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 = #37319#36141#28165#21333
        object dbgPur510: 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
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgOrd510DblClick
          DataSource = dsPur510
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgPur510BackgroundDrawEvent
          object dbgPur510P510A_001: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 120
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P510A_001'
          end
          object dbgPur510P510A_003: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P510A_003'
          end
          object dbgPur510I150_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 120
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_002'
          end
          object dbgPur510I150_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 240
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_003'
          end
          object dbgPur510I150_004: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 240
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_004'
          end
          object dbgPur510I140_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I140_003'
          end
          object dbgPur510P510B_005: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P510B_005'
          end
          object dbgPur510P510B_016: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 80
            BandIndex = 0
            RowIndex = 0
            FieldName = 'P510B_016'
          end
        end
      end
    end
    object PageControl2: TPageControl
      Left = 0
      Top = 240
      Width = 556
      Height = 233
      ActivePage = TabSheet2
      Align = alClient
      Style = tsFlatButtons
      TabIndex = 0
      TabOrder = 1
      object TabSheet2: TTabSheet
        Caption = #20837#24211#28165#21333
        object dbgInv500: TdxDBGrid
          Left = 0
          Top = 0
          Width = 548
          Height = 203
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T530_001'
          ShowGroupPanel = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = dbgOrd510DblClick
          DataSource = dsInv500
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dbgPur510BackgroundDrawEvent
          object dbgInv500I500A_001: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 120
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I500A_001'
          end
          object dbgInv500I500A_004: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I500A_004'
          end
          object dbgInv500I150_002: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 120
            BandIndex = 0
            RowIndex = 0
            FieldName = 'I150_002'
          end
          object dbgInv500I150_003: TdxDBGridColumn
            DisableEditor = True
            HeaderAlignment = taCenter