📄 frm_markreport.frm
字号:
VERSION 5.00
Object = "{57EA6131-FAB3-49C3-BF10-85A4777A5A7C}#1.0#0"; "XPButton.ocx"
Begin VB.Form frm_markreport
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 3240
ClientLeft = 0
ClientTop = 0
ClientWidth = 5085
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 216
ScaleMode = 3 'Pixel
ScaleWidth = 339
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 360
Left = 2055
MaxLength = 6
TabIndex = 0
Top = 495
Width = 2505
End
Begin VB.TextBox Text2
Height = 360
Left = 2055
MaxLength = 6
TabIndex = 1
Top = 1035
Width = 2490
End
Begin VB.ComboBox Combo1
Height = 300
Left = 2055
Style = 2 'Dropdown List
TabIndex = 2
Top = 1545
Width = 2505
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "frm_markreport.frx":0000
Left = 2055
List = "frm_markreport.frx":0002
Style = 2 'Dropdown List
TabIndex = 3
Top = 2070
Width = 1170
End
Begin VB.ComboBox Combo3
Height = 300
Left = 3450
Style = 2 'Dropdown List
TabIndex = 4
Top = 2070
Width = 1110
End
Begin XP_Button.XPButton command1
Height = 450
Left = 675
TabIndex = 5
Top = 2460
Width = 1410
_ExtentX = 2487
_ExtentY = 794
caption = "确定"
End
Begin XP_Button.XPButton command2
Height = 450
Left = 2865
TabIndex = 6
Top = 2460
Width = 1410
_ExtentX = 2487
_ExtentY = 794
caption = "取消"
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "学员成绩报表"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Left = 300
TabIndex = 11
Top = 105
Width = 1590
End
Begin VB.Image imglefttitle
Height = 450
Left = 0
Picture = "frm_markreport.frx":0004
Top = 0
Width = 450
End
Begin VB.Image imgleftbottom
Height = 450
Left = 15
Picture = "frm_markreport.frx":0B0E
Top = 2775
Width = 450
End
Begin VB.Image imgbottom
Height = 450
Left = 420
Picture = "frm_markreport.frx":1618
Stretch = -1 'True
Top = 2775
Width = 4275
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "请限定分数范围："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 10
Top = 2085
Width = 1920
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "请选择考试种类："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 9
Top = 1565
Width = 1920
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "请输入课程编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 255
TabIndex = 8
Top = 1060
Width = 1935
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "请输入班级编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 7
Top = 540
Width = 1920
End
Begin VB.Image imgleftwindow
Height = 2520
Left = 15
Picture = "frm_markreport.frx":7F5A
Stretch = -1 'True
Top = 435
Width = 465
End
Begin VB.Image imgrightbottom
Height = 450
Left = 4605
Picture = "frm_markreport.frx":B50C
Top = 2775
Width = 450
End
Begin VB.Image imgrightwindow
Height = 2505
Left = 4605
Picture = "frm_markreport.frx":C016
Stretch = -1 'True
Top = 435
Width = 450
End
Begin VB.Image imgclose
Height = 240
Left = 4635
Picture = "frm_markreport.frx":10330
Top = 105
Width = 240
End
Begin VB.Image imgrighttitle
Height = 525
Left = 4680
Picture = "frm_markreport.frx":10672
Top = 0
Width = 375
End
Begin VB.Image imgtop
Height = 450
Left = 285
Picture = "frm_markreport.frx":11118
Stretch = -1 'True
Top = -15
Width = 4395
End
End
Attribute VB_Name = "frm_markreport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mystd As Cls_student
Dim myrpt As Cls_Report
Private Sub Combo1_GotFocus()
If Text2.Text = "" Then
Text2.SetFocus
command1.DragMode = 1
End If
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Combo2.SetFocus
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Combo3.SetFocus
End Sub
Private Sub Combo3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then command1_Click
End Sub
Private Sub command1_Click()
Dim mykind As String
Me.Hide
Set myrpt = New Cls_Report
frm_ProgressBar.Show 1
If Combo1.Text = "机试" Then
mykind = "GradeCpt"
ElseIf Combo1.Text = "笔试" Then
mykind = "GradePaper"
ElseIf Combo1.Text = "平时" Then
mykind = "GradeUal"
Else
mykind = ""
End If
'调用 cls_report类处理请求，生成报表
myrpt.MarkReport Trim(Text1), Trim(Text2), mykind, Trim(Combo2), Trim(Combo3)
Unload Me
End Sub
Private Sub command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
SetWindow Me
AlwaysOnTop Me, False
command1.DragMode = 1
Combo1.AddItem "机试"
Combo1.AddItem "笔试"
Combo1.AddItem "平时"
Combo2.AddItem ">="
Combo2.AddItem "<="
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem "="
Combo3.AddItem "40"
Combo3.AddItem "50"
Combo3.AddItem "60"
Combo3.AddItem "70"
Combo3.AddItem "80"
Combo3.AddItem "90"
Combo3.AddItem "100"
Move (frm_main.Width - Me.Width) / 2, (frm_main.Height - Me.Height) / 2 - 800
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub
Private Sub Text2_GotFocus()
If Text1.Text = "" Then Text1.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.SetFocus
command1.DragMode = 0
End If
End Sub
Private Sub imgclose_Click()
Unload Me
End Sub
Private Sub imglefttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawForms Me
End Sub
Private Sub imgtop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawForms Me
End Sub
Private Sub imgrighttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawForms Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -