📄 frmsqlmark.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 5
Left = 1470
TabIndex = 26
Top = 930
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "第五学期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 4
Left = 150
TabIndex = 25
Top = 930
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "第四学期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 1470
TabIndex = 24
Top = 585
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "第三学期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 2
Left = 150
TabIndex = 23
Top = 585
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "第二学期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 1470
TabIndex = 22
Top = 240
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "第一学期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 150
TabIndex = 21
Top = 240
Width = 1155
End
End
Begin VB.ListBox LSTKC
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1950
Left = 5760
TabIndex = 17
Top = 570
Width = 1575
End
Begin VB.ListBox LSTBJ
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1950
Index = 0
Left = 1470
TabIndex = 15
Top = 570
Width = 1215
End
Begin VB.Label Label6
Caption = "院系："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 180
TabIndex = 31
Top = 270
Width = 795
End
Begin VB.Label Label5
Caption = "学期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2790
TabIndex = 19
Top = 270
Width = 795
End
Begin VB.Label Label2
Caption = "课程："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5760
TabIndex = 18
Top = 270
Width = 795
End
Begin VB.Label Label1
Caption = "班级："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 1470
TabIndex = 16
Top = 270
Width = 795
End
End
End
Begin VB.Frame Frame2
Height = 3615
Left = 8130
TabIndex = 5
Top = -30
Width = 1305
Begin VB.CommandButton CMDPRINT
Caption = "打印"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 210
TabIndex = 2
Top = 1410
Width = 945
End
Begin VB.CommandButton cmdSearch
Caption = "检索"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 210
TabIndex = 0
Top = 390
Width = 945
End
Begin VB.CommandButton cmdExit
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 210
TabIndex = 3
Top = 1920
Width = 945
End
Begin VB.CommandButton cmdReset
Caption = "复原"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 210
TabIndex = 1
Top = 900
Width = 945
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "查询结果:"
Height = 180
Left = 150
TabIndex = 7
Top = 2670
Width = 810
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 180
Left = 150
TabIndex = 6
Top = 3120
Width = 90
End
End
Begin MSFlexGridLib.MSFlexGrid flexResult
Height = 3075
Left = 90
TabIndex = 4
Top = 3630
Width = 9375
_ExtentX = 16536
_ExtentY = 5424
_Version = 393216
AllowUserResizing= 1
End
End
Attribute VB_Name = "FRMSQLMARK"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DAT As Database
Dim num As Integer
Dim XQID As Integer
Dim STR As String
Dim STRKC As String
Dim nowdata As Boolean
Dim datxxk As Database
Dim ex As Excel.Application
Dim exwbook As Excel.WorkBook
Dim exsheet As Excel.WorkSheet
Dim exchart As Excel.Chart
Private Sub Check1_Click(Index As Integer)
Dim SQLKC As String
Dim RECKC As Recordset
Dim I As Integer
Select Case SSTab1.Tab
'班级成绩查询
Case 0
STR = "'0'"
For I = 0 To 9
If Check1(I).Value = 1 Then STR = STR & ",'" & I + 1 & "'"
Next I
LSTKC.Clear
LSTKC.Enabled = True
If Trim(LSTBJ(0).List(LSTBJ(0).ListIndex)) = "" Then MsgBox "请选择班级": Exit Sub
SQLKC = "SELECT DISTINCT 课程名⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -