aprsd.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 361 行
DFM
361 行
inherited frmAprsd: TfrmAprsd
Left = 107
Top = 240
Width = 680
Height = 302
Caption = '红字核销单明细'
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object sgAprsd: TSDGrid
Left = 0
Top = 63
Width = 672
Height = 171
Align = alClient
Color = clWhite
ColCount = 7
Ctl3D = False
DefaultRowHeight = 18
FixedColor = 8564917
RowCount = 2
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goRowSizing, goColSizing]
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnDblClick = sgAprsdDblClick
OnKeyDown = sgAprsdKeyDown
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clGreen
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '标志'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '行号'
ColumnWidth = 0
end
item
EditType = sdEdit
ColumnFont.Charset = ANSI_CHARSET
ColumnFont.Color = clRed
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
CharType = gtNumeric
TitleString = '红冲金额'
ColumnWidth = 0
end
item
EditType = sdEdit
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clRed
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
CharType = gtNumeric
TitleString = '核销金额'
ColumnWidth = 0
end
item
EditType = sdEdit
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clRed
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
CharType = gtNumeric
TitleString = '换算系数'
ColumnWidth = 0
end
item
EditType = sdEdit
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clRed
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '备注'
ColumnWidth = 0
end>
ReadOnly = False
ColWidths = (
4
30
54
68
71
69
138)
end
object FloatPanel1: TFloatPanel
Left = 0
Top = 234
Width = 672
Height = 41
Align = alBottom
Color = clWhite
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 1
object bbSelAll: TBitBtn
Left = 40
Top = 6
Width = 80
Height = 24
Caption = '全选(&A)'
TabOrder = 0
OnClick = bbSelAllClick
Glyph.Data = {
F2010000424DF201000000000000760000002800000024000000130000000100
0400000000007C01000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
3333333333388F3333333333000033334224333333333333338338F333333333
0000333422224333333333333833338F33333333000033422222243333333333
83333338F3333333000034222A22224333333338F33F33338F33333300003222
A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
33333A2224A2233333333338F338F83300003333333333A2224A333333333333
8F338F33000033333333333A222433333333333338F338F30000333333333333
A224333333333333338F38F300003333333333333A223333333333333338F8F3
000033333333333333A3333333333333333383330000}
NumGlyphs = 2
end
object bbSelNone: TBitBtn
Left = 120
Top = 8
Width = 80
Height = 22
Cancel = True
Caption = '全不选(&N)'
TabOrder = 1
OnClick = bbSelNoneClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object btnOK: TBitBtn
Left = 453
Top = 6
Width = 80
Height = 24
Anchors = [akRight, akBottom]
Caption = '确定(&O)'
TabOrder = 2
OnClick = btnOKClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object btnCancel: TBitBtn
Left = 542
Top = 7
Width = 80
Height = 23
Anchors = [akRight, akBottom]
Caption = '取消(&C)'
ModalResult = 2
TabOrder = 3
OnClick = btnCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object FloatPanel3: TFloatPanel
Left = 0
Top = 0
Width = 672
Height = 63
Align = alTop
Color = clWhite
Caption = 'FloatPanel3'
ParentColor = False
TabOrder = 2
object Label36: TLabel
Left = 39
Top = 36
Width = 60
Height = 12
Caption = '单 据 号:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 315
Top = 36
Width = 60
Height = 12
Caption = '核销单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 39
Top = 12
Width = 60
Height = 12
Caption = '单据类型:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 315
Top = 12
Width = 60
Height = 12
Caption = '金 额:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object seAprsdCavCode: TSDEdit
Left = 374
Top = 30
Width = 120
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seAprsdCavCode'
OnButtonClick = seAprsdCavCodeButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object seAprshDocCode: TSDEdit
Left = 97
Top = 31
Width = 120
Height = 18
Ctl3D = False
Enabled = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = 'seAprshDocCode'
SplitSymbol = ' | '
end
object scAprshDocType: TSDComboBox
Left = 98
Top = 7
Width = 120
Height = 20
Color = 50331647
Ctl3D = False
Enabled = False
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
Text = 'scAprshDocType'
KeyItem = cbItem2
ReadOnly = True
end
object seAprshDocAmt: TSDEdit
Left = 373
Top = 7
Width = 120
Height = 18
Ctl3D = False
Enabled = False
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 3
Text = 'seAprshDocAmt'
SplitSymbol = ' | '
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?