📄 frmexcelin3.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 frmEXCELin3
Caption = "EXCEL转换预览"
ClientHeight = 6720
ClientLeft = 60
ClientTop = 450
ClientWidth = 9120
Icon = "frmEXCELin3.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6720
ScaleWidth = 9120
StartUpPosition = 2 '屏幕中心
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 885
Left = 0
TabIndex = 0
Top = 0
Width = 9120
_ExtentX = 16087
_ExtentY = 1561
ButtonHeight = 1411
Appearance = 1
_Version = 327682
BorderStyle = 1
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 435
Left = 7830
TabIndex = 16
Top = 300
Visible = 0 'False
Width = 915
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 2
Left = 2040
OleObjectBlob = "frmEXCELin3.frx":1272
TabIndex = 1
Top = 150
Width = 1065
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 0
Left = 90
OleObjectBlob = "frmEXCELin3.frx":12D1
TabIndex = 14
Top = 150
Width = 1065
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
Index = 1
Left = 1080
OleObjectBlob = "frmEXCELin3.frx":132E
TabIndex = 13
Top = 150
Width = 1065
End
Begin VB.ComboBox Combo1
ForeColor = &H000000FF&
Height = 300
Left = 180
Style = 2 'Dropdown List
TabIndex = 12
Top = 420
Width = 885
End
Begin VB.ComboBox Combo2
ForeColor = &H000000FF&
Height = 300
ItemData = "frmEXCELin3.frx":138B
Left = 1200
List = "frmEXCELin3.frx":139B
Style = 2 'Dropdown List
TabIndex = 11
Top = 420
Width = 885
End
Begin VB.CommandButton Command2
Caption = "插入空表"
Height = 465
Left = 8880
TabIndex = 10
Top = 60
Visible = 0 'False
Width = 885
End
Begin VB.CommandButton Command5
Caption = "删除此行"
Height = 465
Left = 4170
TabIndex = 9
Top = 180
Width = 885
End
Begin VB.CommandButton Command6
Caption = "退出程序"
Height = 465
Left = 6150
TabIndex = 8
Top = 180
Width = 885
End
Begin VB.CommandButton Command7
Caption = "保存数据"
Height = 465
Left = 5160
TabIndex = 7
Top = 180
Width = 885
End
Begin VB.TextBox Text1
Height = 315
Left = 10440
TabIndex = 6
Text = "Text1"
Top = 480
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox Text2
Height = 315
Left = 10590
TabIndex = 5
Text = "Text2"
Top = 150
Visible = 0 'False
Width = 1665
End
Begin VB.CommandButton Command8
Caption = "演示"
Height = 480
Left = 9180
TabIndex = 4
Top = 180
Visible = 0 'False
Width = 1125
End
Begin VB.CommandButton Command1
Caption = "全部显示"
Height = 465
Left = 3180
TabIndex = 3
Top = 180
Width = 885
End
Begin VB.ComboBox Combo3
ForeColor = &H00FF0000&
Height = 300
ItemData = "frmEXCELin3.frx":13B7
Left = 2220
List = "frmEXCELin3.frx":13B9
TabIndex = 2
Text = "Combo3"
Top = 420
Width = 735
End
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 = 11490
OleObjectBlob = "frmEXCELin3.frx":13BB
Top = 9660
End
Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid1
Align = 1 'Align Top
Bindings = "frmEXCELin3.frx":15EF
Height = 5295
Left = 0
TabIndex = 15
Top = 885
Width = 9120
_cx = 16087
_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 = 14803425
ForeColorFixed = 255
BackColorSel = 14540253
ForeColorSel = 255
BackColorBkg = 14803425
BackColorAlternate= -2147483643
GridColor = 14803425
GridColorFixed = 14803425
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 = 14540253
WallPaperAlignment= 9
End
End
Attribute VB_Name = "frmEXCELin3"
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
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 Combo3_Click()
On Error Resume Next
MousePointer = vbHourglass
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -