blAstable
DimfieldAsString
DimstrAsString
GoToadderror
xmname=InputBox("输入新评语项目名称","添加评语项目")
Ifxmname=""Then
MsgBox"项目名称不能为空!",vbOKOnly,""
ExitSub
Else
IfRight(xmname,2)="评语"Then
table.Name=xmname
Else
table.Name=xmname+"评语"
EndIf
cat.Tables.Appendtable
TreeView1.Nodes.Clear
ForEachtblIncat.Tables
str=tbl.Name
IfRight(str,2)="评语"Then
Setmnode=TreeView1.Nodes.Add()
mnode.Text=str
DimiAsInteger
DimnodeindexAsInteger
nodeindex=mnode.Index
Fori=0Totbl.Columns.Count-1
Setmnode=TreeView1.Nodes.Add(nodeindex,tvwChild)
mnode.Text=tbl.Columns.Item(i).Name
Next
EndIf
Next
EndIf
ExitSub
adderror:
MsgBoxErr.Description,vbOKOnly+vbExclamation,""
EndSub
PrivateSubdelpy_Click()
Command6_Click
EndSub
PrivateSubdelstudent_Click()
DimanswerAsString
DimiAsInteger
DimIDAsString
DimsqlAsString
DimrsdelstuAsNewADODB.Recordset
ID=Label4.Caption
i=List1.ListIndex
Ifselstu=TrueThen
answer=MsgBox("确定要删除此学生吗?",vbYesNo,"")
Ifanswer=vbYesThen
sql="select*from学生管理where学号='"&ID&"'"
rsdelstu.CursorLocation=adUseClient
rsdelstu.Opensql,conn,adOpenKeyset,adLockPessimistic
rsdelstu.Delete
rsdelstu.Update
rsdelstu.Close
List1.RemoveItemi
EndIf
Else
MsgBox"请选择要删除的学生!",vbOKOnly+vbExclamation,""
EndIf
ExitSub
EndSub
PrivateSubdelxmfl_Click()
Command13_Click
EndSub
PrivateSubexitsys_Click()
UnloadMe
EndSub
PrivateSubfindstudent_Click()
Form2.Show
EndSub
PrivateSubForm_Load()
DimconnectionstringAsString
DimsqlAsString
GoToopenerror
rs1.CursorLocation=adUseClient
sql="select*from学生管理orderby学号"'打开学生管理数据表,在列表框中显示所有的学生
rs1.Opensql,conn,adOpenKeyset,adLockPessimistic
Whilers1.EOF=False
List1.AddItemrs1.Fields(1)&""&rs1.Fields(0)
rs1.MoveNext
Wend
Combo1.AddItem"优"
Combo1.AddItem"良"
Combo1.AddItem"中"
Combo1.AddItem"差"
pymanage.Enabled=False
weihupy.Enabled=False
list2state=False
setcommandstate
SSTab1.TabEnabled(1)=False
Command1.Enabled=False
Command2.Enabled=False
Command8.Enabled=False
Command7.Enabled=False
Command14.Enabled=False
Combo1.Enabled=False
selstu=False
'selxm=False
Command9.Enabled=False
Command11.Enabled=False
Command13.Enabled=False
Command12.Enabled=False
DimstrAsString
Setcat.ActiveConnection=conn
TreeView1.LabelEdit=tvwManual
ForEachtblIncat.Tables
str=tbl.Name
IfRight(str,2)="评语"Then
Setmnode=TreeView1.Nodes.Add()
mnode.Text=str
DimiAsInteger
DimnodeindexAsInteger
nodeindex=mnode.Index
Fori=0Totbl.Columns.Count-1
Setmnode=TreeView1.Nodes.Add(nodeindex,tvwChild)
mnode.Text=tbl.Columns.Item(i).Name
Next
EndIf
Next
ExitSub
openerror:
MsgBoxErr.Description
EndSub
PrivateSubList1_Click()
DimiAsLong
rs1.Requery
rs1.MoveFirst
i=CLng(List1.ListIndex)
rs1.Movei
ID_num=rs1.Fields(0)
selstu=True
displaystudent
displaypy
EndSub
PublicSubdisplaystudent()
Label2.Caption=rs1.Fields(1)
Label4.Caption=rs1.Fields(0)
Label6.Caption=rs1.Fields(2)
EndSub
PublicSubdisplaypy()
DimrsAsNewADODB.Recordset
DimsqlAsString
DimcntAsInteger
DimiAsInteger
GoTodisplaypyerror
rs.CursorLocation=adUseClient
sql="select*from学生操行where学号='"&ID_num&"'"&"orderby学期"
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs.EOF=FalseThen
rs.MoveFirst
Else
MsgBox"该生没有评语!",vbOKOnly+vbExclamation,""
ExitSub
EndIf
Text1(0).Text=""'文本框清空
Whilers.EOF=False
Text1(0).Text=Text1(0).Text&vbCrLf&"第"&rs.Fields(1)&"学期"&vbCrLf&Space(2)&_
rs.Fields(2)&vbCrLf&Space(10)&rs.Fields(3)&Space(2)&rs.Fields(4)
rs.MoveNext
Wend
rs.MovePrevious
xq=rs.Fields(1)
rs.Close
ExitSub
displaypyerror:
MsgBoxErr.Description
EndSub
PrivateSubList2_Click()
weihupy.Enabled=True
EndSub
PrivateSubmodifypyxm_Click()
Command11_Click
EndSub
PrivateSubTreeView1_NodeClick(ByValNodeAsMSComctlLib.Node)
GoToclickerror
DimiAsInteger
DimrsAsNewADODB.Recordset
DimsqlAsString
i=TreeView1.SelectedItem.Index
pymanage.Enabled=True
DimaAsInteger
Command9.Enabled=True
Command11.Enabled=True
Command12.Enabled=True
Command13.Enabled=True
IfTreeView1.SelectedItem.Children>0Then
txttbl=TreeView1.SelectedItem.Text
IfTreeView1.SelectedItem.Expanded=TrueThen
TreeView1.SelectedItem.Expanded=False
Else
TreeView1.SelectedItem.Expanded=True
EndIf
Else
IfInStr(TreeView1.SelectedItem.FullPath,"\")<>0Then
txttbl=TreeView1.SelectedItem.Parent.Text
txtfield=TreeView1.SelectedItem.Text
str1=txttbl
str2=txtfield
sql="select"&txtfield&"from"&txttbl
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs.EOF=FalseThen
rs.MoveFirst
List2.Clear
Whilers.EOF=False
IfNotIsNull(rs.Fields(txtfield))Then
List2.AddItemrs.Fields(txtfield)
EndIf
rs.MoveNext
Wend
rs.Close
Else
MsgBox"没有任何评语!",vbOKOnly
Command4.Enabled=True
ExitSub
EndIf
list2state=True
setcommandstate
Else
MsgBox"没有分类!",vbOKOnly+vbExclamation,""
ExitSub
EndIf
EndIf
ExitSub
clickerror:
MsgBoxErr.Description
EndSub
PublicSubsetcommandstate()
Iflist2state=FalseThen
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=False
Else
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=True
EndIf
EndSub
PrivateSubxgpy_Click()
Command5_Click
EndSub
结束语
本软件的设计目的是为教师对学生写评语提供方便和帮助。通过这几个月的毕业设计,我学到很多以前没有学到的visualbasic开发技术,在软件工程学上更是取得了很大的进步。经过大量的测试和试用,作者深信本软件达到了方便和实用的设计目的,并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平,但由于作者水平有限,软件存在bug也是在所难免的,您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
致谢
我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。
上一篇:
vb评语生成系统(论文和程序)
下一篇:
网络能耗监测系统管理端的研究与实现