📄 charge_name.~dfm
字号:
object frm_Charge_Name: Tfrm_Charge_Name
Left = 126
Top = 112
Width = 373
Height = 375
AutoSize = True
BorderIcons = [biSystemMenu]
Caption = #12304#25910#36153#21517#31216#23450#20041#12305
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 365
Height = 128
Align = alTop
TabOrder = 0
object ToolBar1: TToolBar
Left = 2
Top = 97
Width = 361
Height = 29
Align = alBottom
ButtonHeight = 28
Caption = 'ToolBar1'
TabOrder = 0
object Cmd_Add: TSpeedButton
Left = 0
Top = 2
Width = 60
Height = 28
Caption = #22686#21152
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = Cmd_AddClick
end
object Cmd_Delete: TSpeedButton
Left = 60
Top = 2
Width = 60
Height = 28
Caption = #21024#38500
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = Cmd_DeleteClick
end
object Cmd_Edit: TSpeedButton
Left = 120
Top = 2
Width = 60
Height = 28
Caption = #20462#25913
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
OnClick = Cmd_EditClick
end
object Cmd_Save: TSpeedButton
Left = 180
Top = 2
Width = 60
Height = 28
Caption = #20445#23384
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
OnClick = Cmd_SaveClick
end
object Cmd_Rush: TSpeedButton
Left = 240
Top = 2
Width = 60
Height = 28
Caption = #21047#26032
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
OnClick = Cmd_RushClick
end
object Cmd_Select: TSpeedButton
Left = 300
Top = 2
Width = 60
Height = 28
Caption = #36873#25321
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
OnClick = Cmd_SelectClick
end
end
object Edit1: TLabeledEdit
Left = 103
Top = 19
Width = 200
Height = 21
EditLabel.Width = 60
EditLabel.Height = 13
EditLabel.Caption = #21517#31216#32534#21495#65307
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 1
end
object Edit2: TLabeledEdit
Left = 103
Top = 45
Width = 200
Height = 21
EditLabel.Width = 60
EditLabel.Height = 13
EditLabel.Caption = #25910#36153#21517#31216#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 2
end
object Edit3: TLabeledEdit
Left = 103
Top = 70
Width = 200
Height = 21
EditLabel.Width = 60
EditLabel.Height = 13
EditLabel.Caption = #22791#27880#35828#26126#65306
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
LabelPosition = lpLeft
LabelSpacing = 3
TabOrder = 3
end
object Edit_ID: TEdit
Left = 128
Top = 56
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 4
Visible = False
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 128
Width = 365
Height = 220
Align = alClient
DataSource = frm_Data.DataS_Charge_Name
FixedColor = clSkyBlue
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = 'Charge_Name_ID'
Title.Caption = #21517#31216#32534#21495
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Charge_Name'
Title.Caption = #25910#36153#21517#31216
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Charge_Note'
Title.Caption = #22791#27880#35828#26126
Width = 100
Visible = True
end>
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = True
Active = True
ControlUseTrueXPStyle = True
BtnRoundArc = 5
BtnOutLineBorderColor = 7552000
BtnInnerBorderMoveColor = 3257087
BtnInnerBorderFocusColor = 15183500
BtnSurfaceNormalColor = 16251903
BtnSurfaceDownColor = 14608359
BtnSurfaceBottomLineColor = 14608359
BtnSurfaceDownBottomLineColor = 15199215
RdoChkControlChkColor = 41472
ComboBoxChkColor = 9201994
ComboboxSurfaceMoveColor = 16771030
ControlDisabledBorderColor = 11913158
Left = 112
Top = 160
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -