📄 frmfsin.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 = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FRMFSIN
Caption = "分数录入"
ClientHeight = 7575
ClientLeft = 60
ClientTop = 345
ClientWidth = 9975
Icon = "FRMFSIN.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7575
ScaleWidth = 9975
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 885
Left = 0
TabIndex = 1
Top = 0
Width = 9975
_ExtentX = 17595
_ExtentY = 1561
ButtonHeight = 1411
Appearance = 1
_Version = 327682
BorderStyle = 1
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 2
Left = 2040
OleObjectBlob = "FRMFSIN.frx":08CA
TabIndex = 17
Top = 150
Width = 1065
End
Begin VB.ComboBox Combo3
ForeColor = &H00FF0000&
Height = 300
ItemData = "FRMFSIN.frx":0929
Left = 2220
List = "FRMFSIN.frx":092B
TabIndex = 16
Text = "Combo3"
Top = 420
Width = 735
End
Begin VB.CommandButton Command1
Caption = "全部显示"
Height = 465
Left = 4200
TabIndex = 6
Top = 180
Width = 885
End
Begin VB.CommandButton Command8
Caption = "随机演示"
Height = 465
Left = 9180
TabIndex = 15
Top = 180
Width = 885
End
Begin VB.TextBox Text2
Height = 315
Left = 10590
TabIndex = 14
Text = "Text2"
Top = 150
Visible = 0 'False
Width = 1665
End
Begin VB.TextBox Text1
Height = 315
Left = 10440
TabIndex = 13
Text = "Text1"
Top = 480
Visible = 0 'False
Width = 1695
End
Begin VB.CommandButton Command7
Caption = "保存数据"
Height = 465
Left = 7170
TabIndex = 12
Top = 180
Width = 885
End
Begin VB.CommandButton Command6
Caption = "退出程序"
Height = 465
Left = 8160
TabIndex = 11
Top = 180
Width = 885
End
Begin VB.CommandButton Command5
Caption = "删除此行"
Height = 465
Left = 6180
TabIndex = 10
Top = 180
Width = 885
End
Begin VB.CommandButton Command4
Caption = "清除数据"
Height = 465
Left = 5190
TabIndex = 9
Top = 180
Width = 885
End
Begin VB.CommandButton Command3
Caption = "数据导入"
Height = 465
Left = 3210
TabIndex = 8
Top = 180
Width = 885
End
Begin VB.CommandButton Command2
Caption = "插入空表"
Height = 465
Left = 4200
TabIndex = 7
Top = 0
Visible = 0 'False
Width = 885
End
Begin VB.ComboBox Combo2
ForeColor = &H000000FF&
Height = 300
ItemData = "FRMFSIN.frx":092D
Left = 1200
List = "FRMFSIN.frx":093D
Style = 2 'Dropdown List
TabIndex = 5
Top = 420
Width = 885
End
Begin VB.ComboBox Combo1
ForeColor = &H000000FF&
Height = 300
Left = 180
Style = 2 'Dropdown List
TabIndex = 4
Top = 420
Width = 885
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 1
Left = 1080
OleObjectBlob = "FRMFSIN.frx":0959
TabIndex = 3
Top = 150
Width = 1065
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 0
Left = 90
OleObjectBlob = "FRMFSIN.frx":09B6
TabIndex = 2
Top = 150
Width = 1065
End
End
Begin VB.CommandButton Command9
Caption = "Command9"
Height = 315
Left = 5790
TabIndex = 18
Top = 6360
Visible = 0 'False
Width = 795
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 585
Left = 10890
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 10020
Visible = 0 'False
Width = 1275
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 3090
OleObjectBlob = "FRMFSIN.frx":0A13
Top = 6960
End
Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid1
Align = 1 'Align Top
Bindings = "FRMFSIN.frx":2ABA4
Height = 5295
Left = 0
TabIndex = 0
Top = 885
Width = 9975
_cx = 17595
_cy = 9340
_ConvInfo = 1
Appearance = 0
BorderStyle = 0
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = 16711680
BackColorFixed = 15724527
ForeColorFixed = 255
BackColorSel = 15724527
ForeColorSel = 255
BackColorBkg = 15724527
BackColorAlternate= -2147483643
GridColor = 15724527
GridColorFixed = 15724527
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 1
SelectionMode = 1
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = -1 'True
ScrollBars = 3
ScrollTips = -1 'True
MergeCells = 0
MergeCompare = 0
AutoResize = 0 'False
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 1
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 2
ShowComboButton = 2
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 1
VirtualData = -1 'True
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 3
BackColorFrozen = 255
ForeColorFrozen = 15724527
WallPaperAlignment= 9
End
End
Attribute VB_Name = "FRMFSIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim STR As String
Dim XS As String '取出COM中的输入显示中的代码信息
Dim NUM As Long
Dim iawv As Integer '取出满分数
Dim GYXEOV As Integer '取出总班级数
Dim SHFileOp As SHFILEOPSTRUCT
Private Sub Combo1_Click()
On Error Resume Next
Data1.DatabaseName = App.Path & "\TEMP\" & DD & ".NHB"
Data1.RecordSource = XS & " WHERE 班级=" & Combo1.Text & "" & " ORDER BY " & "" & Combo2.Text & ""
Data1.Refresh
Dim III As Long
For III = 1 To NUM
VSFlexGrid1.TextMatrix(III, 0) = III
Next
End Sub
Private Sub Combo2_Click()
On Error Resume Next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -