📄 frmf.frm
字号:
VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "ACTSKIN4.OCX"
Object = "{D76D7130-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "Vsflex7d.ocx"
Object = "{A8561640-E93C-11D3-AC3B-CE6078F7B616}#1.0#0"; "VSPRINT7.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FRMF
Caption = "每班人数限制 (男女与分数平衡)"
ClientHeight = 7155
ClientLeft = 60
ClientTop = 345
ClientWidth = 10065
Icon = "FRMF.frx":0000
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 7155
ScaleWidth = 10065
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 2445
Index = 1
Left = 570
TabIndex = 6
Top = 4560
Visible = 0 'False
Width = 5445
Begin VB.Data Data2
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 645
Left = 3330
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1050
Width = 1950
End
Begin VB.TextBox Text1
DataField = "学号"
DataSource = "Data2"
Height = 285
Index = 1
Left = 300
TabIndex = 10
Text = "Text1"
Top = 330
Width = 2265
End
Begin VB.TextBox Text2
DataField = "姓名"
DataSource = "Data2"
Height = 315
Index = 1
Left = 270
TabIndex = 9
Text = "Text2"
Top = 780
Width = 2505
End
Begin VB.TextBox Text3
DataField = "性别"
DataSource = "Data2"
Height = 285
Index = 1
Left = 270
TabIndex = 8
Text = "Text3"
Top = 1140
Width = 2595
End
Begin VB.TextBox Text4
DataField = "分数"
DataSource = "Data2"
Height = 270
Index = 1
Left = 300
TabIndex = 7
Text = "Text4"
Top = 1620
Width = 2625
End
End
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 2445
Index = 0
Left = 600
TabIndex = 1
Top = 1950
Visible = 0 'False
Width = 5445
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 495
Left = 3510
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1020
Width = 1635
End
Begin VB.TextBox Text4
DataField = "分数"
DataSource = "Data1"
Height = 270
Index = 0
Left = 300
TabIndex = 5
Text = "Text4"
Top = 1620
Width = 2625
End
Begin VB.TextBox Text3
DataField = "性别"
DataSource = "Data1"
Height = 285
Index = 0
Left = 270
TabIndex = 4
Text = "Text3"
Top = 1140
Width = 2595
End
Begin VB.TextBox Text2
DataField = "姓名"
DataSource = "Data1"
Height = 315
Index = 0
Left = 270
TabIndex = 3
Text = "Text2"
Top = 780
Width = 2505
End
Begin VB.TextBox Text1
DataField = "学号"
DataSource = "Data1"
Height = 285
Index = 0
Left = 300
TabIndex = 2
Text = "Text1"
Top = 330
Width = 2265
End
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 8580
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6120
Visible = 0 'False
Width = 1185
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 615
Left = 8760
TabIndex = 0
Top = 3240
Visible = 0 'False
Width = 945
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 7830
OleObjectBlob = "FRMF.frx":3AFA
Top = 6630
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 6450
Top = 1380
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7320
Top = 1440
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 11
Top = 615
Visible = 0 'False
Width = 10065
_ExtentX = 17754
_ExtentY = 1085
ButtonWidth = 609
ButtonHeight = 926
Appearance = 1
_Version = 393216
Begin VB.CommandButton Command2
Caption = "返回表格"
Height = 465
Left = 9000
TabIndex = 21
Top = 60
Width = 975
End
Begin VB.CommandButton cmdPageSetup
Caption = "页面设置"
Height = 465
Left = 120
TabIndex = 20
Top = 60
Width = 1005
End
Begin VB.ComboBox cmbPercent
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMF.frx":2DC8B
Left = 5040
List = "FRMF.frx":2DCA4
Style = 2 'Dropdown List
TabIndex = 19
Top = 150
Width = 915
End
Begin VB.ComboBox cmbZoomMode
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMF.frx":2DCCF
Left = 3540
List = "FRMF.frx":2DCE5
Style = 2 'Dropdown List
TabIndex = 18
Top = 150
Width = 1395
End
Begin VB.HScrollBar scrlPage
Height = 255
Left = 6780
Max = 1
Min = 1
TabIndex = 17
TabStop = 0 'False
Top = 90
Value = 1
Width = 1020
End
Begin ACTIVESKINLibCtl.SkinLabel lblPage
Height = 165
Left = 6780
OleObjectBlob = "FRMF.frx":2DD1F
TabIndex = 16
Top = 360
Width = 1035
End
Begin VB.CommandButton btnFont
Caption = "字体设置"
Height = 450
Left = 2370
TabIndex = 15
Top = 60
Width = 1050
End
Begin VB.CommandButton Print
Caption = "开始打印"
Height = 465
Left = 7920
TabIndex = 14
Top = 60
Width = 945
End
Begin VB.CommandButton SETHARD
Caption = "设置表头"
Height = 465
Left = 1230
TabIndex = 13
Top = 60
Width = 1035
End
Begin VB.ComboBox Combo2
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMF.frx":2DD80
Left = 6030
List = "FRMF.frx":2DD8D
Style = 2 'Dropdown List
TabIndex = 12
Top = 150
Width = 645
End
End
Begin MSComctlLib.Toolbar Toolbar2
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 22
Top = 0
Width = 10065
_ExtentX = 17754
_ExtentY = 1085
ButtonWidth = 609
ButtonHeight = 926
Appearance = 1
_Version = 393216
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 195
Index = 2
Left = 2220
OleObjectBlob = "FRMF.frx":2DD9A
TabIndex = 29
Top = 30
Width = 1065
End
Begin VB.ComboBox Combo3
ForeColor = &H000000FF&
Height = 300
ItemData = "FRMF.frx":2DDF7
Left = 2310
List = "FRMF.frx":2DE07
Style = 2 'Dropdown List
TabIndex = 28
Top = 240
Width = 1035
End
Begin VB.CommandButton Command4
Caption = "退出报表"
Height = 435
Left = 4680
TabIndex = 27
Top = 60
Width = 1005
End
Begin VB.CommandButton Command1
Caption = "报表预览"
Height = 435
Left = 3510
TabIndex = 26
Top = 60
Width = 1005
End
Begin VB.ComboBox Combo1
ForeColor = &H000000FF&
Height = 300
Left = 900
Style = 2 'Dropdown List
TabIndex = 25
Top = 180
Width = 855
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 0
Left = -180
OleObjectBlob = "FRMF.frx":2DE23
TabIndex = 24
Top = 210
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -