📄 mainform.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form mainform
BackColor = &H00C0FFC0&
Caption = "评语管理系统"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 10830
ScaleWidth = 15240
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Frame Frame6
Caption = "评语项目管理"
Height = 2655
Left = 12000
TabIndex = 28
Top = 720
Width = 2295
Begin VB.CommandButton Command13
Caption = "删除项目分类"
Height = 375
Left = 480
TabIndex = 32
Top = 2160
Width = 1335
End
Begin VB.CommandButton Command12
Caption = "增加项目分类"
Height = 375
Left = 480
TabIndex = 31
Top = 1560
Width = 1335
End
Begin VB.CommandButton Command11
Caption = "删除选定项目"
Height = 375
Left = 480
TabIndex = 30
Top = 960
Width = 1335
End
Begin VB.CommandButton Command9
Caption = "增加评语项目"
Height = 375
Left = 480
TabIndex = 29
Top = 360
Width = 1335
End
End
Begin VB.Frame Frame5
Caption = "评语项目"
Height = 6615
Left = 12000
TabIndex = 19
Top = 3840
Width = 2295
Begin MSComctlLib.TreeView TreeView1
Height = 5415
Left = 120
TabIndex = 20
Top = 360
Width = 2055
_ExtentX = 3625
_ExtentY = 9551
_Version = 393217
Style = 7
Appearance = 1
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "展开项目请单击项目名称"
Height = 180
Left = 120
TabIndex = 21
Top = 6000
Width = 1980
End
End
Begin VB.Frame Frame4
BackColor = &H00C0FFC0&
Height = 1575
Left = 3120
TabIndex = 14
Top = 3960
Width = 8055
Begin VB.CommandButton Command10
BackColor = &H0080FF80&
Caption = "增加评语"
Height = 855
Left = 600
MaskColor = &H00FF0000&
TabIndex = 35
Top = 360
Width = 975
End
Begin VB.CommandButton Command14
Caption = "重写"
Height = 375
Left = 6600
TabIndex = 34
Top = 960
Width = 1095
End
Begin VB.CommandButton Command8
Caption = "放弃增加"
Height = 375
Left = 2400
TabIndex = 27
Top = 960
Width = 1455
End
Begin VB.CommandButton Command7
Caption = "保存评语"
Height = 375
Left = 4440
TabIndex = 26
Top = 960
Width = 1455
End
Begin VB.ComboBox Combo1
Height = 300
Left = 6600
TabIndex = 17
Text = "操行评定"
Top = 360
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "老师签名"
Height = 375
Left = 4440
TabIndex = 16
Top = 360
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "添加日期"
Height = 375
Left = 2400
TabIndex = 15
Top = 360
Width = 1455
End
End
Begin VB.Frame Frame3
BackColor = &H00C0FFC0&
Caption = "评语"
Height = 4815
Left = 3120
TabIndex = 13
Top = 5640
Width = 8055
Begin VB.CommandButton Command6
Caption = "删除此条评语"
Height = 375
Left = 4320
TabIndex = 25
Top = 3960
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "修改此条评语"
Height = 375
Left = 2400
TabIndex = 24
Top = 3960
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "添加新评语"
Height = 375
Left = 600
TabIndex = 23
Top = 3960
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "添加到学生评语"
Height = 375
Left = 6360
TabIndex = 22
Top = 3960
Width = 1455
End
Begin VB.ListBox List2
Height = 3480
Left = 360
TabIndex = 18
Top = 240
Width = 7455
End
End
Begin VB.Frame Frame2
BackColor = &H00C0FFC0&
Caption = "学生评语"
Height = 3495
Left = 3120
TabIndex = 8
Top = 360
Width = 8055
Begin TabDlg.SSTab SSTab1
Height = 2895
Left = 360
TabIndex = 11
Top = 360
Width = 7455
_ExtentX = 13150
_ExtentY = 5106
_Version = 393216
Tabs = 2
TabHeight = 520
BackColor = 12648384
TabCaption(0) = "历年评语"
TabPicture(0) = "mainform.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Text1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "添加新评语"
TabPicture(1) = "mainform.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Text1(1)"
Tab(1).ControlCount= 1
Begin VB.TextBox Text1
Height = 2295
Index = 1
Left = -74880
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 33
Top = 480
Width = 7215
End
Begin VB.TextBox Text1
Height = 2295
Index = 0
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 480
Width = 7215
End
End
End
Begin VB.Frame Frame1
BackColor = &H00C0FFC0&
Caption = "学生信息"
Height = 10215
Left = 240
TabIndex = 0
Top = 240
Width = 2775
Begin VB.CommandButton Command15
Caption = "刷新"
Height = 375
Left = 600
TabIndex = 36
Top = 9600
Width = 1335
End
Begin VB.ListBox List1
BackColor = &H00C0FFC0&
Height = 7440
Left = 120
TabIndex = 1
Top = 1920
Width = 2415
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "学号"
Height = 195
Left = 1440
TabIndex = 10
Top = 1680
Width = 360
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "学生姓名"
Height = 195
Left = 120
TabIndex = 9
Top = 1680
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "Label6"
Height = 195
Left = 720
TabIndex = 7
Top = 960
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "班级"
Height = 195
Left = 120
TabIndex = 6
Top = 960
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "Label4"
Height = 195
Left = 720
TabIndex = 5
Top = 600
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "学号"
Height = 195
Left = 120
TabIndex = 4
Top = 600
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "Label2"
Height = 195
Left = 720
TabIndex = 3
Top = 240
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0FFC0&
Caption = "学生"
Height = 195
Left = 120
TabIndex = 2
Top = 240
Width = 360
End
End
Begin VB.Menu pymanage
Caption = "评语项目管理"
Begin VB.Menu addnewpyxm
Caption = "增加评语项目"
End
Begin VB.Menu modifypyxm
Caption = "删除评语项目"
End
Begin VB.Menu fengexian
Caption = "-"
End
Begin VB.Menu addxmfl
Caption = "增加项目分类"
End
Begin VB.Menu delxmfl
Caption = "删除项目分类"
End
End
Begin VB.Menu weihupy
Caption = "评语维护"
Begin VB.Menu addpy
Caption = "添加评语"
End
Begin VB.Menu xgpy
Caption = "修改评语"
End
Begin VB.Menu delpy
Caption = "删除评语"
End
End
Begin VB.Menu studentman
Caption = "学生管理"
Begin VB.Menu findstudent
Caption = "查找学生"
End
Begin VB.Menu addstudent
Caption = "添加学生"
End
Begin VB.Menu delstudent
Caption = "删除学生"
End
Begin VB.Menu fenge
Caption = "-"
End
Begin VB.Menu addstupy
Caption = "添加新评语"
End
End
Begin VB.Menu sysman
Caption = "系统管理"
Begin VB.Menu changepwd
Caption = "修改密码"
End
Begin VB.Menu adduser
Caption = "添加用户"
End
Begin VB.Menu fgf
Caption = "-"
End
Begin VB.Menu exitsys
Caption = "退出系统"
End
End
End
Attribute VB_Name = "mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs1 As New ADODB.Recordset
Dim cat As New adox.Catalog
Dim tbl As New adox.table
Dim list2state As Boolean '标记list2的状态
Dim ID_num As String '记录学号
Dim txttbl As String '记录当前评语项目名称
Dim txtfield As String '记录当前项目分支名称
Dim str1 As String '记录当前评语项目
Dim str2 As String '记录当前项目中类别
Dim xq As Integer '记录学期
Dim selstu As Boolean
Dim selxm As Boolean
Dim xing As String '记录教师姓名
Private mnode As Node
Private Sub write_Click()
End Sub
Private Sub addnewpyxm_Click()
Command9_Click
End Sub
Private Sub addpy_Click()
Command4_Click
End Sub
Private Sub addstudent_Click()
Form1.Show
End Sub
Private Sub addstupy_Click()
Command10_Click
End Sub
Private Sub adduser_Click()
Form3.Show
End Sub
Private Sub addxmfl_Click()
Command12_Click
End Sub
Private Sub changepwd_Click()
Form4.Show
End Sub
Private Sub Combo1_Click()
Dim caoxing As String
caoxing = Combo1.Text
Text1(1).Text = Text1(1).Text & "操行评定" & caoxing
End Sub
Private Sub Command1_Click()
Text1(1).Text = Text1(1).Text & vbCrLf & Date
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -