📄 main_fxgl_qftjform.dfm
字号:
Width = 793
Height = 198
Caption = '欠(交)费情况'
TabOrder = 3
object DBGrid1: TDBGrid
Left = 6
Top = 18
Width = 781
Height = 172
Color = 16767411
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = '学生编号'
Visible = True
end
item
Expanded = False
FieldName = '学生姓名'
Visible = True
end
item
Expanded = False
FieldName = '所在系名'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = '所在年级'
Visible = True
end
item
Expanded = False
FieldName = '所在班级'
Visible = True
end
item
Expanded = False
FieldName = 'qxf'
Visible = True
end
item
Expanded = False
FieldName = 'qzf'
Visible = True
end
item
Expanded = False
FieldName = 'qkbf'
Visible = True
end
item
Expanded = False
FieldName = 'qzsf'
Visible = True
end
item
Expanded = False
FieldName = 'qbf'
Visible = True
end
item
Expanded = False
FieldName = 'qkgf'
Visible = True
end
item
Expanded = False
FieldName = 'qbxf'
Visible = True
end
item
Expanded = False
FieldName = 'qsjf'
Visible = True
end
item
Expanded = False
FieldName = 'qjdf'
Visible = True
end
item
Expanded = False
FieldName = 'qqtf'
Visible = True
end>
end
end
object GroupBox3: TGroupBox
Left = 4
Top = 278
Width = 792
Height = 201
Caption = '交费注册情况'
TabOrder = 4
object DBGrid2: TDBGrid
Left = 6
Top = 16
Width = 782
Height = 178
Color = 16767411
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
OnDblClick = DBGrid2DblClick
Columns = <
item
Expanded = False
FieldName = '学生编号'
Visible = True
end
item
Expanded = False
FieldName = '学生姓名'
Visible = True
end
item
Expanded = False
FieldName = 'XF'
Width = 73
Visible = True
end
item
Expanded = False
FieldName = 'ZF'
Visible = True
end
item
Expanded = False
FieldName = 'KBF'
Visible = True
end
item
Expanded = False
FieldName = 'ZSF'
Visible = True
end
item
Expanded = False
FieldName = 'BF'
Visible = True
end
item
Expanded = False
FieldName = 'KGF'
Visible = True
end
item
Expanded = False
FieldName = 'BXF'
Visible = True
end
item
Expanded = False
FieldName = 'SJF'
Visible = True
end
item
Expanded = False
FieldName = 'JDF'
Visible = True
end
item
Expanded = False
FieldName = 'QTF'
Visible = True
end
item
Expanded = False
FieldName = 'MJF'
Visible = True
end
item
Expanded = False
FieldName = 'zfy'
Visible = True
end
item
Expanded = False
FieldName = '缴费日期'
Visible = True
end
item
Expanded = False
FieldName = '经手人'
Visible = True
end>
end
end
end
object table1: TTable
OnCalcFields = table1CalcFields
DatabaseName = 'JFXT'
TableName = 'fyb'
TableType = ttParadox
Left = 152
Top = 136
object table1BDEDesigner: TStringField
FieldName = '学生编号'
Size = 5
end
object table1BDEDesigner2: TStringField
FieldName = '学生姓名'
Size = 8
end
object table1BDEDesigner3: TStringField
FieldName = '所在系名'
end
object table1BDEDesigner4: TStringField
FieldName = '所在年级'
Size = 8
end
object table1BDEDesigner5: TStringField
FieldName = '所在班级'
Size = 8
end
object table1XF: TCurrencyField
DisplayLabel = '学费'
FieldName = 'XF'
end
object table1qxf: TStringField
DisplayLabel = '学费情况'
FieldKind = fkCalculated
FieldName = 'qxf'
Size = 6
Calculated = True
end
object table1ZF: TCurrencyField
DisplayLabel = '杂费'
FieldName = 'ZF'
end
object table1qzf: TStringField
DisplayLabel = '杂费情况'
FieldKind = fkCalculated
FieldName = 'qzf'
Size = 6
Calculated = True
end
object table1KBF: TCurrencyField
DisplayLabel = '课本费'
FieldName = 'KBF'
end
object table1ZSF: TCurrencyField
DisplayLabel = '住宿费'
FieldName = 'ZSF'
end
object table1BF: TCurrencyField
DisplayLabel = '班费'
FieldName = 'BF'
end
object table1qbf: TStringField
DisplayLabel = '班费情况'
FieldKind = fkCalculated
FieldName = 'qbf'
Size = 6
Calculated = True
end
object table1KGF: TCurrencyField
DisplayLabel = '课管费'
FieldName = 'KGF'
end
object table1BXF: TCurrencyField
DisplayLabel = '补习费'
FieldName = 'BXF'
end
object table1SJF: TCurrencyField
DisplayLabel = '上机费'
FieldName = 'SJF'
end
object table1JDF: TCurrencyField
DisplayLabel = '读费'
FieldName = 'JDF'
end
object table1QTF: TCurrencyField
DisplayLabel = '其它费'
FieldName = 'QTF'
end
object table1MJF: TCurrencyField
DisplayLabel = '免交费'
FieldName = 'MJF'
end
object table1BDEDesigner6: TDateField
FieldName = '缴费日期'
end
object table1BDEDesigner7: TStringField
FieldName = '经手人'
Size = 8
end
object table1qkbf: TStringField
DisplayLabel = '课本费情况'
FieldKind = fkCalculated
FieldName = 'qkbf'
Size = 6
Calculated = True
end
object table1qzsf: TStringField
DisplayLabel = '住宿费情况'
FieldKind = fkCalculated
FieldName = 'qzsf'
Size = 6
Calculated = True
end
object table1qkgf: TStringField
DisplayLabel = '课管费情况'
FieldKind = fkCalculated
FieldName = 'qkgf'
Size = 6
Calculated = True
end
object table1qbxf: TStringField
DisplayLabel = '补习费情况'
FieldKind = fkCalculated
FieldName = 'qbxf'
Size = 6
Calculated = True
end
object table1qsjf: TStringField
DisplayLabel = '上机费情况'
FieldKind = fkCalculated
FieldName = 'qsjf'
Size = 6
Calculated = True
end
object table1qjdf: TStringField
DisplayLabel = '借读费情况'
FieldKind = fkCalculated
FieldName = 'qjdf'
Size = 6
Calculated = True
end
object table1qqtf: TStringField
DisplayLabel = '其它费情况'
FieldKind = fkCalculated
FieldName = 'qqtf'
Size = 6
Calculated = True
end
object table1zfy: TCurrencyField
DisplayLabel = '总费用'
FieldKind = fkCalculated
FieldName = 'zfy'
Calculated = True
end
end
object DataSource1: TDataSource
DataSet = table1
Left = 280
Top = 160
end
object Table2: TTable
AutoCalcFields = False
DatabaseName = 'JFXT'
TableName = 'jfbz'
TableType = ttParadox
Left = 368
Top = 344
object Table2Bj: TStringField
FieldName = 'Bj'
Size = 8
end
object Table2Xf: TCurrencyField
FieldName = 'Xf'
end
object Table2Bf: TCurrencyField
FieldName = 'Bf'
end
object Table2Zf: TCurrencyField
FieldName = 'Zf'
end
object Table2Kbf: TCurrencyField
FieldName = 'Kbf'
end
object Table2Jsf: TCurrencyField
FieldName = 'Jsf'
end
object Table2Kgf: TCurrencyField
FieldName = 'Kgf'
end
object Table2Jdf: TCurrencyField
FieldName = 'Jdf'
end
object Table2Sjf: TCurrencyField
FieldName = 'Sjf'
end
object Table2Bkf: TCurrencyField
FieldName = 'Bkf'
end
object Table2Qtf: TCurrencyField
FieldName = 'Qtf'
end
object Table2Mjf: TCurrencyField
FieldName = 'Mjf'
end
object Table2Zfy: TCurrencyField
FieldName = 'Zfy'
end
end
object DataSource2: TDataSource
DataSet = Table2
Left = 448
Top = 344
end
object Table3: TTable
DatabaseName = 'JFXT'
TableName = 'bj.DB'
TableType = ttParadox
Left = 200
Top = 40
object Table3Xm: TStringField
FieldName = 'Xm'
end
object Table3Bj: TStringField
FieldName = 'Bj'
Size = 8
end
object Table3Yj: TStringField
FieldName = 'Yj'
Size = 8
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -