📄 publicmbox.frm
字号:
VERSION 5.00
Begin VB.Form publicmbox
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2730
ClientLeft = 0
ClientTop = 0
ClientWidth = 6075
LinkTopic = "Form1"
Picture = "publicmbox.frx":0000
ScaleHeight = 2730
ScaleWidth = 6075
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Image pic_exit2
Height = 285
Left = 4800
Picture = "publicmbox.frx":CEA9
Top = 2040
Visible = 0 'False
Width = 1065
End
Begin VB.Image picdel
Height = 375
Left = 1320
Picture = "publicmbox.frx":DEF5
Stretch = -1 'True
Top = 5400
Width = 495
End
Begin VB.Image pic30
Height = 375
Left = 120
Picture = "publicmbox.frx":19BDE
Stretch = -1 'True
Top = 5400
Width = 495
End
Begin VB.Image picsave
Height = 375
Left = 1920
Picture = "publicmbox.frx":25BB4
Stretch = -1 'True
Top = 5400
Width = 495
End
Begin VB.Image pic31
Height = 375
Left = 720
Picture = "publicmbox.frx":327C3
Stretch = -1 'True
Top = 5400
Width = 495
End
Begin VB.Image pic29
Height = 375
Left = 5520
Picture = "publicmbox.frx":3E51E
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic28
Height = 375
Left = 4920
Picture = "publicmbox.frx":4A1D9
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic27
Height = 375
Left = 4320
Picture = "publicmbox.frx":55E94
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic26
Height = 375
Left = 3720
Picture = "publicmbox.frx":61B62
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic25
Height = 375
Left = 3120
Picture = "publicmbox.frx":6DAAB
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic24
Height = 375
Left = 2520
Picture = "publicmbox.frx":7B849
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic23
Height = 375
Left = 1920
Picture = "publicmbox.frx":8895C
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic22
Height = 375
Left = 1320
Picture = "publicmbox.frx":958FF
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic21
Height = 375
Left = 720
Picture = "publicmbox.frx":A2BD9
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic20
Height = 375
Left = 120
Picture = "publicmbox.frx":AF210
Stretch = -1 'True
Top = 4920
Width = 495
End
Begin VB.Image pic19
Height = 375
Left = 5520
Picture = "publicmbox.frx":BC2C9
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic18
Height = 375
Left = 4920
Picture = "publicmbox.frx":C9237
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic17
Height = 375
Left = 4320
Picture = "publicmbox.frx":D64E5
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic16
Height = 375
Left = 3720
Picture = "publicmbox.frx":E32DE
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic15
Height = 375
Left = 3120
Picture = "publicmbox.frx":13B1F2
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic14
Height = 375
Left = 2520
Picture = "publicmbox.frx":193106
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic13
Height = 375
Left = 1920
Picture = "publicmbox.frx":19F6D9
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic12
Height = 375
Left = 1320
Picture = "publicmbox.frx":1AB0D8
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic_exit
Height = 285
Left = 4800
Picture = "publicmbox.frx":1B70D8
Top = 2040
Visible = 0 'False
Width = 1065
End
Begin VB.Image pic11
Height = 375
Left = 720
Picture = "publicmbox.frx":1B8124
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic10
Height = 375
Left = 120
Picture = "publicmbox.frx":1C3B30
Stretch = -1 'True
Top = 4440
Width = 495
End
Begin VB.Image pic9
Height = 375
Left = 5520
Picture = "publicmbox.frx":1CFB95
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic8
Height = 375
Left = 4920
Picture = "publicmbox.frx":1DBA83
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image picmakin0_100
Height = 375
Left = 4320
Picture = "publicmbox.frx":1E7E0B
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic7
Height = 375
Left = 3720
Picture = "publicmbox.frx":1F4858
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic6
Height = 375
Left = 3120
Picture = "publicmbox.frx":200832
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic5
Height = 375
Left = 2520
Picture = "publicmbox.frx":20E868
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic4
Height = 375
Left = 1920
Picture = "publicmbox.frx":21AC14
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic3
Height = 375
Left = 1320
Picture = "publicmbox.frx":226FC4
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic2
Height = 375
Left = 720
Picture = "publicmbox.frx":2334A7
Stretch = -1 'True
Top = 3960
Width = 495
End
Begin VB.Image pic_ok
Height = 285
Left = 3600
Picture = "publicmbox.frx":23F883
Top = 2040
Width = 1065
End
Begin VB.Image pic1
Height = 375
Left = 120
Picture = "publicmbox.frx":2408CF
Stretch = -1 'True
Top = 3960
Width = 495
End
End
Attribute VB_Name = "publicmbox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'回车后调用确定按钮
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call pic_ok_Click
End If
End Sub
'初始化信息框
Private Sub Form_Load()
Me.Height = 2730
Me.Width = 6060
Me.Visible = False
End Sub
'退出功能1实现
Private Sub pic_exit_Click()
If frmadd1.Visible = True Then
'在增加数据窗体中：取消时在相应的学期成绩表中保存该学员的基本信息和所有成绩为0的信息
Select Case frmadd1.stu_term.ListIndex
Case 0
runtsql ("insert Stumak1 values (" & Trim(frmadd1.stu_id.Text) & ",'" & Trim(frmadd1.stu_name.Text) & "',0,0,0,0,0)")
Case 1
runtsql ("insert Stumak2 values (" & Trim(frmadd1.stu_id.Text) & ",'" & Trim(frmadd1.stu_name.Text) & "',0,0,0,0,0)")
Case 2
runtsql ("insert Stumak3 values (" & Trim(frmadd1.stu_id.Text) & ",'" & Trim(frmadd1.stu_name.Text) & "',0,0,0,0,0)")
End Select
Unload Me
frmmain.check_have.Value = 0
End If
End Sub
'退出功能2实现
Private Sub pic_exit2_Click()
If frmmdf.Visible = True Then
'在编辑数据窗体中：提示删除学员信息将同时删除成绩的时候按取消的功能程序段
frmmdf.nodel.Value = 1
Unload Me
frmmain.check_have.Value = 0
End If
End Sub
'确定功能实现
Private Sub pic_ok_Click()
'以下if语句是针对增加学员数据时的推荐操作。
If Me.Picture = pic6.Picture Then
Unload Me
frmmain.check_have.Value = 0
'得到frmadd1的信息
Dim add1x As Integer
Dim add1y As Integer
Dim add1id As String
Dim add1name As String
add1x = frmadd1.Top
add1y = frmadd1.Left
add1id = frmadd1.stu_id.Text
add1name = frmadd1.stu_name.Text
'设置frmadd2的信息
Select Case frmadd1.stu_term.ListIndex
Case 0
frmadd2.op_xq1.Value = True
Case 1
frmadd2.op_xq2.Value = True
Case 2
frmadd2.op_xq3.Value = True
End Select
frmadd2.Top = add1x
frmadd2.Left = add1y
frmadd2.mak_id = add1id
frmadd2.mak_name = add1name
'显示frmadd2窗体
frmadd2.Show
'关闭frmadd1窗体
If frmadd1.Visible = True Then
Unload frmadd1
End If
End If
Unload Me
If frmuserlogin.Visible = True Or frmLogin.Visible = True Or frmuserManagement.Visible = True Then
Exit Sub
End If
frmmain.check_have.Value = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -