📄 main_sjwh_jfbzwhform.dfm
字号:
object DBEdit8: TDBEdit
Left = 216
Top = 80
Width = 110
Height = 21
Color = 16767411
DataField = 'Sjf'
DataSource = DataSource1
TabOrder = 6
OnKeyPress = DBEdit8KeyPress
end
object DBEdit9: TDBEdit
Left = 376
Top = 18
Width = 110
Height = 21
Color = 16767411
DataField = 'Bkf'
DataSource = DataSource1
TabOrder = 7
OnKeyPress = DBEdit9KeyPress
end
object DBEdit10: TDBEdit
Left = 376
Top = 80
Width = 110
Height = 21
Color = 16767411
DataField = 'Jsf'
DataSource = DataSource1
TabOrder = 8
OnKeyPress = DBEdit10KeyPress
end
object DBEdit11: TDBEdit
Left = 48
Top = 112
Width = 110
Height = 21
Color = 16767411
DataField = 'Qtf'
DataSource = DataSource1
TabOrder = 9
OnKeyPress = DBEdit11KeyPress
end
object DBEdit12: TDBEdit
Left = 216
Top = 112
Width = 110
Height = 21
Color = 16767411
DataField = 'Mjf'
DataSource = DataSource1
TabOrder = 10
OnKeyPress = DBEdit12KeyPress
end
object DBEdit15: TDBEdit
Left = 376
Top = 112
Width = 112
Height = 21
Color = 16767411
DataField = 'zfy'
DataSource = DataSource1
TabOrder = 11
OnKeyPress = DBEdit15KeyPress
end
end
object Panel3: TPanel
Left = 6
Top = 290
Width = 617
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object BitBtn2: TBitBtn
Left = 8
Top = 8
Width = 80
Height = 25
Hint = '添加一条新记录'
Caption = '添加'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = BitBtn2Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888000088888888888066660888888888066666
6088000000066666608880444406666660888804440666666008888044406666
0B08888804000000BF0888888080FBFBFB0888888880BFBFBF0888888880FBFB
FB0888888880BFBFBF0888888880000000088888888888888888}
end
object BitBtn4: TBitBtn
Left = 96
Top = 8
Width = 80
Height = 25
Hint = '删除当前记录'
Caption = '删除'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtn4Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888808888888888088800088888888888880000888888
8088888000888888088888880008888008888888800088008888888888000008
8888888888800088888888888800000888888888800088008888888000088880
0888880000888888008888000888888888088888888888888888}
end
object BitBtn3: TBitBtn
Left = 186
Top = 8
Width = 80
Height = 25
Hint = '修改当前记录'
Caption = '修改'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888800000888880000080BFB0888880BFB080FBF0888880FBF08000008808800
000888088808088808888808808E80880888880008E8E80008888888808E8088
8888888888080888888888888880888888888888800000888888888880FBF088
8888888880BFB088888888888000008888888888888888888888}
end
object BitBtn5: TBitBtn
Left = 276
Top = 8
Width = 80
Height = 25
Hint = '保存当前记录'
Caption = '保存'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = BitBtn5Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888880000000000000880330000008803088033000000880308803300000088
0308803300000000030880333333333333088033000000003308803088888888
0308803088888888030880308888888803088030888888880308803088888888
0008803088888888080880000000000000088888888888888888}
end
object BitBtn6: TBitBtn
Left = 366
Top = 8
Width = 76
Height = 25
Hint = '取消操作'
Caption = '取消'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = BitBtn6Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888888888887488888444448888847888844448888888488884448888888
8488884484888888848888488844888847888888888844447888888888888888
8888888888888888888888888888888888888888888888888888}
end
object BitBtn1: TBitBtn
Left = 531
Top = 8
Width = 76
Height = 25
Hint = '关闭当前窗口'
Caption = '关闭'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = BitBtn1Click
Kind = bkClose
end
object BitBtn7: TBitBtn
Left = 449
Top = 8
Width = 75
Height = 25
Caption = '查找'
TabOrder = 6
OnClick = BitBtn7Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888800000888880000080F000888880F00080F000888880F
0008000000080000000800F000000F00000800F000800F00000800F000800F00
00088000000000000088880F00080F0008888800000800000888888000888000
88888880F08880F0888888800088800088888888888888888888}
end
end
object GroupBox2: TGroupBox
Left = 510
Top = 50
Width = 110
Height = 148
TabOrder = 4
object firstbutton: TButton
Left = 10
Top = 13
Width = 90
Height = 25
Hint = '移动到记录首部'
Caption = '首 条'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = firstbuttonClick
end
object prebutton: TButton
Left = 10
Top = 47
Width = 90
Height = 25
Hint = '转到上一条记录'
Caption = '上一条'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = prebuttonClick
end
object nextbutton: TButton
Left = 10
Top = 81
Width = 90
Height = 25
Hint = '转到下一条记录'
Caption = '下一条'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = nextbuttonClick
end
object lastbutton: TButton
Left = 10
Top = 114
Width = 90
Height = 25
Hint = '移动到记录尾部'
Caption = '末 条'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = lastbuttonClick
end
end
end
object Table1: TTable
OnCalcFields = Table1CalcFields
DatabaseName = 'JFXT'
TableName = 'jfbz'
TableType = ttParadox
Left = 216
Top = 264
object Table1Xf: TCurrencyField
DisplayLabel = '学费'
FieldName = 'Xf'
end
object Table1Zf: TCurrencyField
DisplayLabel = '杂费'
FieldName = 'Zf'
end
object Table1Bf: TCurrencyField
DisplayLabel = '班费'
FieldName = 'Bf'
end
object Table1Kbf: TCurrencyField
DisplayLabel = '课本费'
FieldName = 'Kbf'
end
object Table1Jdf: TCurrencyField
DisplayLabel = '借读费'
FieldName = 'Jdf'
end
object Table1Kgf: TCurrencyField
DisplayLabel = '课管费'
FieldName = 'Kgf'
end
object Table1Sjf: TCurrencyField
DisplayLabel = '上机费'
FieldName = 'Sjf'
end
object Table1Bkf: TCurrencyField
DisplayLabel = '补习费'
FieldName = 'Bkf'
end
object Table1Jsf: TCurrencyField
DisplayLabel = '住宿费'
FieldName = 'Jsf'
end
object Table1Qtf: TCurrencyField
DisplayLabel = '其它费'
FieldName = 'Qtf'
end
object Table1Mjf: TCurrencyField
DisplayLabel = '免交费'
FieldName = 'Mjf'
end
object Table1zfy: TCurrencyField
DisplayLabel = '总费用'
FieldKind = fkCalculated
FieldName = 'zfy'
Calculated = True
end
object Table1Bj: TStringField
DisplayLabel = '班级'
FieldName = 'Bj'
Size = 8
end
object Table1xm: TStringField
DisplayLabel = '所属系名'
FieldKind = fkLookup
FieldName = 'xm'
LookupDataSet = Table2
LookupKeyFields = 'Bj'
LookupResultField = 'Xm'
KeyFields = 'Bj'
Lookup = True
end
object Table1yj: TStringField
DisplayLabel = '所属年级'
FieldKind = fkLookup
FieldName = 'yj'
LookupDataSet = Table2
LookupKeyFields = 'Bj'
LookupResultField = 'Yj'
KeyFields = 'Bj'
Size = 8
Lookup = True
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 176
Top = 352
end
object Table2: TTable
Active = True
DatabaseName = 'JFXT'
TableName = 'bj'
TableType = ttParadox
Left = 320
Top = 296
object Table2Xm: TStringField
FieldName = 'Xm'
end
object Table2Bj: TStringField
FieldName = 'Bj'
Size = 8
end
object Table2Yj: TStringField
FieldName = 'Yj'
Size = 8
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -