📄 pay160_01.dfm.svn-base
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -