inherited Pay160_01Form: TPay160_01Form
  Left = 157
  Top = 110
  Width = 625
  Height = 429
  Caption = #34218#36164#31867#21035#32500#25252
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 217
    Top = 80
    Width = 3
    Height = 322
    Cursor = crHSplit
  end
  object CoolBar1: TCoolBar [1]
    Left = 0
    Top = 0
    Width = 617
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 613
      end>
    Images = SYSDM.ImageList1
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 600
      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 ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 261
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 296
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 331
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 366
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = PopupMenu1
        Style = tbsDropDown
      end
      object ToolButton4: TToolButton
        Left = 414
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 422
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object Panel1: TPanel [2]
    Left = 0
    Top = 43
    Width = 617
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 613
      Height = 33
      Align = alClient
      Stretch = True
    end
  end
  object ScrollBox1: TScrollBox [3]
    Left = 0
    Top = 80
    Width = 217
    Height = 322
    Align = alLeft
    TabOrder = 2
    object dxDBGrid1: TdxDBGrid
      Left = 0
      Top = 0
      Width = 213
      Height = 318
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'P160A_001'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsPay160A
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      object dxDBGrid1P160A_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P160A_002'
      end
      object dxDBGrid1P160A_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 114
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P160A_003'
      end
    end
  end
  object ScrollBox2: TScrollBox [4]
    Left = 220
    Top = 80
    Width = 397
    Height = 322
    Align = alClient
    TabOrder = 3
    object dxDBGrid2: TdxDBGrid
      Left = 0
      Top = 0
      Width = 393
      Height = 318
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'P160B_002'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = dsPay160B
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      object dxDBGrid2P150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P150_002'
      end
      object dxDBGrid2P150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 163
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P150_003'
      end
      object dxDBGrid2P160B_003: TdxDBGridMaskColumn
        HeaderAlignment = taCenter
        Width = 82
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P160B_003'
      end
      object dxDBGrid2P160B_004: TdxDBGridCheckColumn
        HeaderAlignment = taCenter
        Width = 47
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P160B_004'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 424
    Top = 48
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object dsPay160A: TDataSource
    DataSet = qryPay160A
    Left = 32
    Top = 208
  end
  object dsPay160B: TDataSource
    DataSet = qryPay160B
    Left = 96
    Top = 208
  end
  object qryPay150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from PAY150')
    Left = 296
    Top = 216
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 392
    Top = 64
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32848
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActInsert: TAction
      Caption = #26032#22686
      Hint = #26032#22686#19968#26465#35760#24405
      ImageIndex = 4
      ShortCut = 32833
      OnExecute = ActInsertExecute
    end
    object ActUpdate: TAction
      Caption = #20462#25913
      Hint = #20462#25913#24403#21069#35760#24405
      ImageIndex = 5
      ShortCut = 32837
      OnExecute = ActUpdateExecute
    end
    object ActDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500#24403#21069#35760#24405
      ImageIndex = 6
      ShortCut = 32836
      OnExecute = ActDeleteExecute
    end
    object ActSave: TAction
      Caption = #20445#23384
      Enabled = False
      Hint = #20445#23384#32534#36753#30340#35760#24405
      ImageIndex = 7
      ShortCut = 32851
    end
    object ActCancel: TAction
      Caption = #21462#28040
      Enabled = False
      Hint = #21462#28040#32534#36753#30340#35760#24405
      ImageIndex = 8
      ShortCut = 32835
    end
    object ActRefresh: TAction
      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExport: TAction
      Caption = #23548#20986#21040'Excel'
      Hint = #23548#20986#21040'Excel'#25991#20214#20013
      ShortCut = 32852
      OnExecute = ActExportExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object qryPay160A: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from PAY160A order by P160A_002')
    Left = 48
    Top = 224
    object qryPay160AP160A_001: TAutoIncField
      FieldName = 'P160A_001'
      ReadOnly = True
      Visible = False
    end
    object qryPay160AP160A_002: TStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'P160A_002'
      Size = 10
    end
    object qryPay160AP160A_003: TStringField
      DisplayLabel = #31867#21035#21517#31216
      FieldName = 'P160A_003'
      Size = 50
    end
  end
  object qryPay160B: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    DataSource = dsPay160A
    Parameters = <
      item
        Name = 'P160A_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from PAY160B where P160B_001= :P160A_001')
    Left = 104
    Top = 224
    object qryPay160BP150_002: TStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldKind = fkLookup
      FieldName = 'P150_002'
      LookupDataSet = qryPay150
      LookupKeyFields = 'P150_001'
      LookupResultField = 'P150_002'
      KeyFields = 'P160B_002'
      Lookup = True
    end
    object qryPay160BP150_003: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldKind = fkLookup
      FieldName = 'P150_003'
      LookupDataSet = qryPay150
      LookupKeyFields = 'P150_001'
      LookupResultField = 'P150_003'
      KeyFields = 'P160B_002'
      Size = 50
      Lookup = True
    end
    object qryPay160BP160B_003: TFloatField
      DisplayLabel = #39033#30446#37329#39069
      FieldName = 'P160B_003'
      DisplayFormat = '0.00'
    end
    object qryPay160BP160B_004: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'P160B_004'
    end
    object qryPay160BP160B_001: TIntegerField
      FieldName = 'P160B_001'
      Visible = False
    end
    object qryPay160BP160B_002: TIntegerField
      FieldName = 'P160B_002'
      Visible = False
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'xls'
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 336
    Top = 56
  end
end