📄 frm_enterforexanmreport.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{57EA6131-FAB3-49C3-BF10-85A4777A5A7C}#1.0#0"; "XPButton.ocx"
Begin VB.Form frm_examreport
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 3240
ClientLeft = 0
ClientTop = 0
ClientWidth = 5055
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 216
ScaleMode = 3 'Pixel
ScaleWidth = 337
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin MSMask.MaskEdBox MaskEdBox1
Height = 345
Left = 2145
TabIndex = 10
Top = 1815
Width = 2385
_ExtentX = 4207
_ExtentY = 609
_Version = 393216
MaxLength = 10
Format = "dd-mmm-yy"
Mask = "####-##-##"
PromptChar = "_"
End
Begin VB.ComboBox Combo1
Height = 300
Left = 2145
Style = 2 'Dropdown List
TabIndex = 2
Top = 1410
Width = 2415
End
Begin VB.TextBox Text2
Height = 345
Left = 2130
MaxLength = 6
TabIndex = 1
Top = 960
Width = 2400
End
Begin VB.TextBox Text1
Height = 360
Left = 2130
MaxLength = 6
TabIndex = 0
Top = 540
Width = 2400
End
Begin XP_Button.XPButton command1
Height = 450
Left = 720
TabIndex = 3
Top = 2325
Width = 1410
_ExtentX = 2487
_ExtentY = 794
caption = "确定"
End
Begin XP_Button.XPButton command2
Height = 450
Left = 2925
TabIndex = 4
Top = 2325
Width = 1410
_ExtentX = 2487
_ExtentY = 794
caption = "取消"
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "请输入考试日期："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 315
TabIndex = 9
Top = 1845
Width = 1920
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "学员考试报表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Left = 300
TabIndex = 5
Top = 120
Width = 1590
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "请输入班级编号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 270
TabIndex = 8
Top = 570
Width = 1920
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "请输入课程编号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 300
TabIndex = 7
Top = 1005
Width = 1935
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "请选择考试种类："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 300
TabIndex = 6
Top = 1440
Width = 1920
End
Begin VB.Image imgclose
Height = 240
Left = 4635
Picture = "frm_enterforexanmreport.frx":0000
Top = 120
Width = 240
End
Begin VB.Image imgrightwindow
Height = 2505
Left = 4605
Picture = "frm_enterforexanmreport.frx":0342
Stretch = -1 'True
Top = 450
Width = 450
End
Begin VB.Image imgrightbottom
Height = 450
Left = 4605
Picture = "frm_enterforexanmreport.frx":465C
Top = 2790
Width = 450
End
Begin VB.Image imgleftwindow
Height = 2520
Left = 15
Picture = "frm_enterforexanmreport.frx":5166
Stretch = -1 'True
Top = 450
Width = 465
End
Begin VB.Image imgbottom
Height = 450
Left = 420
Picture = "frm_enterforexanmreport.frx":8718
Stretch = -1 'True
Top = 2790
Width = 4275
End
Begin VB.Image imgleftbottom
Height = 450
Left = 15
Picture = "frm_enterforexanmreport.frx":F05A
Top = 2790
Width = 450
End
Begin VB.Image imglefttitle
Height = 450
Left = 0
Picture = "frm_enterforexanmreport.frx":FB64
Top = 15
Width = 450
End
Begin VB.Image imgrighttitle
Height = 525
Left = 4680
Picture = "frm_enterforexanmreport.frx":1066E
Top = 15
Width = 375
End
Begin VB.Image imgtop
Height = 450
Left = 285
Picture = "frm_enterforexanmreport.frx":11114
Stretch = -1 'True
Top = 0
Width = 4395
End
End
Attribute VB_Name = "frm_examreport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim myrpt As Cls_Report
Private Sub Combo1_Click()
If Text2 <> "" Then command1.DragMode = 0
End Sub
Private Sub Combo1_GotFocus()
If Text2 = "" Then Text2.SetFocus
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If Combo1 <> "" And KeyAscii = 13 Then
MaskEdBox1.SetFocus
command1.DragMode = 0
End If
If KeyAscii <> 13 Then KeyAscii = 0
End Sub
Private Sub command1_Click()
Dim mykind As String
Dim d1 As String
Dim d2 As String
Dim d3 As String
Dim mydate As String
Me.Hide
Set myrpt = New Cls_Report
frm_ProgressBar.Show 1
If Trim(Combo1) = "机试" Then
mykind = "GradeCpt"
ElseIf Trim(Combo1) = "笔试" Then
mykind = "GradePaper"
ElseIf Trim(Combo1) = "平时" Then
mykind = "GradeUal"
End If
'确保输入的日期不至于使系统出错
d1 = Mid(Trim(MaskEdBox1), 1, 4)
d2 = Mid(Trim(MaskEdBox1), 6, 2)
d3 = Mid(Trim(MaskEdBox1), 9, 2)
If Val(d1) > 1601 And Val(d2) <= 12 And Val(d3) <= 31 Then
mydate = d1 & "-" & d2 & "-" & Trim(Str(Val(d3)))
Else
mydate = ""
End If
myrpt.EnterForExamReport mydate, mykind, Trim(Text1), Trim(Text2)
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 "平时"
Move (frm_main.Width - Me.Width) / 2, (frm_main.Height - Me.Height) / 2 - 800
End Sub
Private Sub command2_Click()
Unload Me
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
Private Sub MaskEdBox1_GotFocus()
If Combo1 = "" Then Combo1.SetFocus
End Sub
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then command1_Click
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1 <> "" And KeyAscii = 13 Then Text2.SetFocus
End Sub
Private Sub Text2_GotFocus()
If Text1 = "" Then Text1.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Text2 <> "" And KeyAscii = 13 Then Combo1.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -