?? 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 + -