ord140_02.dfm.svn-base

一个用Delphi开发的ERP软件

            00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
            000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
            0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
            BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
            0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
            0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          OnClick = sbSaleIDClick
        end
        object edtSaleID: TEdit
          Left = 104
          Top = 16
          Width = 113
          Height = 20
          Color = clBtnFace
          Enabled = False
          TabOrder = 1
          OnExit = edtSaleIDExit
        end
        object edtSaleGrade: TEdit
          Left = 104
          Top = 40
          Width = 113
          Height = 20
          Color = clBtnFace
          Enabled = False
          TabOrder = 4
          OnExit = edtSaleGradeExit
        end
        object edtSaleName: TEdit
          Left = 248
          Top = 16
          Width = 177
          Height = 20
          Color = clBtnFace
          Enabled = False
          TabOrder = 2
        end
        object edtSaleGradeName: TEdit
          Left = 248
          Top = 40
          Width = 177
          Height = 20
          Color = clBtnFace
          Enabled = False
          TabOrder = 5
        end
        object cbSaleID: TCheckBox
          Left = 16
          Top = 18
          Width = 81
          Height = 17
          Caption = #38144#21806#21592#21495
          TabOrder = 0
          OnClick = cbSaleIDClick
        end
        object cbSaleGrade: TCheckBox
          Left = 16
          Top = 42
          Width = 81
          Height = 17
          Caption = #38144#21806#21592#32423#21035
          TabOrder = 3
          OnClick = cbSaleGradeClick
        end
      end
      object gbRegion: TGroupBox
        Left = 16
        Top = 272
        Width = 441
        Height = 49
        Caption = #22320#21306
        TabOrder = 3
        object cbRegion: TCheckBox
          Left = 16
          Top = 18
          Width = 81
          Height = 17
          Caption = #20132#36135#22320#21306
          TabOrder = 0
          OnClick = cbRegionClick
        end
        object edtRegion: TdxLookupTreeView
          Left = 104
          Top = 16
          Width = 137
          Height = 20
          CanSelectParents = True
          Color = clBtnFace
          Enabled = False
          ParentColor = False
          TabOrder = 1
          TabStop = True
          TreeViewColor = clWindow
          TreeViewCursor = crDefault
          TreeViewFont.Charset = DEFAULT_CHARSET
          TreeViewFont.Color = clWindowText
          TreeViewFont.Height = -11
          TreeViewFont.Name = 'MS Sans Serif'
          TreeViewFont.Style = []
          TreeViewIndent = 19
          TreeViewReadOnly = False
          TreeViewShowButtons = True
          TreeViewShowHint = False
          TreeViewShowLines = True
          TreeViewShowRoot = True
          TreeViewSortType = stNone
          DividedChar = '.'
          ListSource = dsOrd120
          KeyField = 'O120_001'
          ListField = 'O120_002'
          Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
          ParentField = 'O120_003'
          TextStyle = tvtsShort
          Alignment = taLeftJustify
        end
      end
    end
    object TabSheet3: TTabSheet [3]
      Caption = 'TabSheet3'
      ImageIndex = 4
      TabVisible = False
      object lblRange: TLabel
        Left = 16
        Top = 8
        Width = 48
        Height = 12
        Caption = #36866#29992#33539#22260
      end
      object cbSame: TCheckBox
        Left = 296
        Top = 56
        Width = 161
        Height = 17
        Caption = #30456#21516#30340#20215#26684#25110#25240#25187#29575
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = cbSameClick
      end
      object cbRange: TComboBox
        Left = 16
        Top = 24
        Width = 273
        Height = 20
        Style = csDropDownList
        ItemHeight = 0
        TabOrder = 1
        OnChange = cbRangeChange
      end
      object dbgOrd140B: TdxDBTreeList
        Left = 16
        Top = 80
        Width = 273
        Height = 233
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'FNo'
        ParentField = 'FParent'
        TabOrder = 2
        DataSource = dsOrd140B
        HideFocusRect = True
        LookAndFeel = lfUltraFlat
        OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoEnterThrough, etoHorzThrough, etoImmediateEditor, etoTabThrough]
        OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
        ShowGrid = True
        ShowLines = False
        TreeLineColor = clGrayText
        object dbgOrd140BFCode: TdxDBTreeListMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FCode'
        end
        object dbgOrd140BFName: TdxDBTreeListMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 240
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FName'
        end
      end
      object dbgOrd140C: TdxDBGrid
        Left = 296
        Top = 80
        Width = 162
        Height = 233
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'FNo'
        SummaryGroups = <>
        SummarySeparator = ', '
        TabOrder = 3
        DataSource = dsOrd140C
        Filter.Criteria = {00000000}
        HideFocusRect = True
        LookAndFeel = lfUltraFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoEnterThrough, edgoHorzThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
        object dbgOrd140CFQtyAmt: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Width = 68
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FQtyAmt'
        end
        object dbgOrd140CFPriDis: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Width = 68
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FPriDis'
        end
      end
      object ToolBar1: TToolBar
        Left = 16
        Top = 48
        Width = 273
        Height = 29
        Align = alNone
        ButtonHeight = 26
        ButtonWidth = 27
        Caption = 'ToolBar1'
        EdgeBorders = []
        Flat = True
        Images = SYSDM.imgBtn
        TabOrder = 4
        object tlbInsert: TToolButton
          Left = 0
          Top = 0
          Caption = 'tlbInsert'
          ImageIndex = 4
          OnClick = tlbInsertClick
        end
        object tlbDelete: TToolButton
          Left = 27
          Top = 0
          Caption = 'tlbDelete'
          ImageIndex = 6
          OnClick = tlbDeleteClick
        end
        object ToolButton4: TToolButton
          Left = 54
          Top = 0
          Width = 8
          Caption = 'ToolButton4'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object tlbLocate: TToolButton
          Left = 62
          Top = 0
          Caption = 'tlbLocate'
          ImageIndex = 11
          OnClick = tlbLocateClick
        end
      end
    end
    inherited tsFinish: TTabSheet
      object lblFinish3: TLabel
        Left = 24
        Top = 32
        Width = 60
        Height = 12
        Caption = 'lblFinish3'
      end
      object lblFinish4: TLabel
        Left = 24
        Top = 56
        Width = 60
        Height = 12
        Caption = 'lblFinish4'
      end
      object lblFinish6: TLabel
        Left = 24
        Top = 104
        Width = 60
        Height = 12
        Caption = 'lblFinish6'
      end
      object lblFinish5: TLabel
        Left = 24
        Top = 80
        Width = 60
        Height = 12
        Caption = 'lblFinish5'
      end
      object lblFinish8: TLabel
        Left = 24
        Top = 152
        Width = 60
        Height = 12
        Caption = 'lblFinish8'
      end
      object lblFinish7: TLabel
        Left = 24
        Top = 128
        Width = 60
        Height = 12
        Caption = 'lblFinish7'
      end
    end
  end
  object adsOrd140B: TADODataSet [10]
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = adsOrd140BAfterScroll
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end
      item