dAsString'记录当前项目分支名称
Dimstr1AsString'记录当前评语项目
Dimstr2AsString'记录当前项目中类别
DimxqAsInteger'记录学期
DimselstuAsBoolean
DimselxmAsBoolean
DimxingAsString'记录教师姓名
PrivatemnodeAsNode
PrivateSubwrite_Click()
EndSub
PrivateSubaddnewpyxm_Click()
Command9_Click
EndSub
PrivateSubaddpy_Click()
Command4_Click
EndSub
PrivateSubaddstudent_Click()
Form1.Show
EndSub
PrivateSubaddstupy_Click()
Command10_Click
EndSub
PrivateSubadduser_Click()
Form3.Show
EndSub
PrivateSubaddxmfl_Click()
Command12_Click
EndSub
PrivateSubchangepwd_Click()
Form4.Show
EndSub
PrivateSubCombo1_Click()
DimcaoxingAsString
caoxing=Combo1.Text
Text1(1).Text=Text1(1).Text&"操行评定"&caoxing
EndSub
PrivateSubCommand1_Click()
Text1(1).Text=Text1(1).Text&vbCrLf&Date
EndSub
PrivateSubCommand10_Click()
Ifselstu=TrueThen
Command1.Enabled=True
Command2.Enabled=True
Command7.Enabled=True
Command8.Enabled=True
Command14.Enabled=True
Combo1.Enabled=True
SSTab1.TabEnabled(1)=True
Command10.Enabled=False
List1.Enabled=False
SSTab1.Tab=1
Else
MsgBox"请选择学生!",vbOKOnly+vbExclamation,""
EndIf
EndSub
PrivateSubCommand11_Click()
DimanswerAsString
DimdelxmAsString
DimtableAsNewtable
DimindAsInteger
IfTreeView1.SelectedItem.Children>0Then
delxm=TreeView1.SelectedItem.Text
answer=MsgBox("确定要删除这一项吗?",vbYesNo,"")
Ifanswer=vbYesThen
cat.Tables.Delete(delxm)
ind=TreeView1.SelectedItem.Index
TreeView1.Nodes.Remove(ind)
Else
ExitSub
EndIf
Else
MsgBox"请选择要删除的项目!而不是项目分类!",vbOKOnly,""
ExitSub
EndIf
ExitSub
EndSub
PrivateSubCommand12_Click()
DimflnameAsString
DimtblAstable
DimsqlAsString
DimrsAsNewADODB.Recordset
DimxmnameAsString
DimindAsInteger
DimnodAsNode
Setnod=TreeView1.SelectedItem
IfInStr(TreeView1.SelectedItem.FullPath,"\")=0Then
flname=InputBox("输入项目分类名称","增加项目分类")
Ifflname=""Then
MsgBox"分类名称不能为空!",vbOKOnly,""
ExitSub
Else
xmname=TreeView1.SelectedItem.Text
ind=TreeView1.SelectedItem.Index
cat.Tables(xmname).Columns.Appendflname,adVarWChar,255
Setmnode=TreeView1.Nodes.Add(ind,tvwChild)
mnode.Text=flname
EndIf
Else
MsgBox"只能在项目中添加分类,请单击要添加分类的项目名称!",vbOKOnly,""
EndIf
EndSub
PrivateSubCommand13_Click()
DimflnameAsString
DimanswerAsString
DimxmnameAsString
DimindAsInteger
IfInStr(TreeView1.SelectedItem.FullPath,"\")=0Then
MsgBox"请选择要删除的项目分类!而不是项目名称!",vbOKOnly,""
ExitSub
Else
xmname=TreeView1.SelectedItem.Parent.Text
ind=TreeView1.SelectedItem.Index
flname=TreeView1.SelectedItem.Text
answer=MsgBox("确定要删除这一项吗?",vbYesNo,"删除项目分类")
Ifanswer=vbYesThen
cat.Tables(xmname).Columns.Deleteflname
TreeView1.Nodes.Removeind
EndIf
EndIf
ExitSub
EndSub
PrivateSubCommand14_Click()
Text1(1).Text=""
EndSub
PrivateSubCommand15_Click()
List1.Clear
DimrefreshstuAsNewADODB.Recordset
DimsqlAsString
refreshstu.CursorLocation=adUseClient
sql="select*from学生管理orderby学号"'打开学生管理数据表,在列表框中显示所有的学生
refreshstu.Opensql,conn,adOpenKeyset,adLockPessimistic
Whilerefreshstu.EOF=False
List1.AddItemrefreshstu.Fields(1)&""&refreshstu.Fields(0)
refreshstu.MoveNext
Wend
refreshstu.Close
EndSub
PrivateSubCommand2_Click()
xing=InputBox("输入老师姓或姓名:")
Text1(1).Text=Text1(1).Text&vbCrLf&Space(12)&xing&"老师"
EndSub
PrivateSubCommand3_Click()
DimiAsInteger
i=List2.ListIndex
IfText1(1).Text=""Then
Text1(1).Text=Space(2)&Text1(1).Text&List2.Text
Else
Text1(1).Text=Text1(1).Text&List2.Text
EndIf
EndSub
PrivateSubCommand4_Click()
DimrsAsNewADODB.Recordset
DimsqlAsString
DimstrAsString'记录用户输入
DimpromptAsString'函数参数
prompt="在""+str1+""中的""+str2+""类别中添加新的评语:"
str=InputBox(prompt,"添加新评语")
List2.AddItem(str)
sql="select"&str2&"from"&str1
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
rs.AddNew
rs.Fields(str2)=str
rs.Update
rs.Close
EndSub
PrivateSubCommand5_Click()
DimrsAsNewADODB.Recordset
DimsqlAsString
DimiAsInteger
DimstrAsString'记录用户输入
DimpromptAsString'函数参数
prompt="修改""+str1+""中的""+str2+""类别评语:"&List2.Text
str=InputBox(prompt,"修改评语")
Ifstr=""Then
ExitSub
Else
i=List2.ListIndex
List2.RemoveItem(List2.ListIndex)
List2.AddItemstr
sql="select"&str2&"from"&str1
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
rs.Movei
rs.Fields(str2)=str
rs.Update
rs.Close
EndIf
EndSub
PrivateSubCommand6_Click()
DimrsAsNewADODB.Recordset
DimsqlAsString
DimiAsInteger
DimanswerAsString'记录用户输入
DimpromptAsString'函数参数
prompt="确实要删除此条评语吗?"
answer=MsgBox(prompt,vbYesNo,"删除评语")
Ifanswer=vbYesThen
i=List2.ListIndex
List2.RemoveItem(List2.ListIndex)
sql="select"&str2&"from"&str1
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
rs.Movei
rs.Delete
rs.Update
rs.Close
EndIf
EndSub
PrivateSubCommand7_Click()
DimrsAsNewADODB.Recordset
DimsqlAsString
rs.CursorLocation=adUseClient
sql="select*from学生操行where学号='"&ID_num&"'"&"orderby学期"
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
DimcxAsString
rs.AddNew
rs.Fields(0)=ID_num
rs.Fields(1)=xq+1
rs.Fields(3)=Date
rs.Fields(4)=xing+"老师"
cx=Replace(Text1(1).Text,Date,"")
cx=Replace(cx,xing+"老师","")
rs.Fields(2)=cx
rs.Update
rs.Close
Command1.Enabled=False
Command2.Enabled=False
Command7.Enabled=False
Command8.Enabled=False
Command14.Enabled=False
Combo1.Enabled=False
SSTab1.TabEnabled(1)=False
Command10.Enabled=True
List1.Enabled=True
EndSub
PrivateSubCommand8_Click()
List1.Enabled=True
Command10.Enabled=True
Command1.Enabled=False
Command2.Enabled=False
Command7.Enabled=False
Command8.Enabled=False
Command14.Enabled=False
Combo1.Enabled=False
EndSub
PrivateSubCommand9_Click()
DimxmnameAsString
DimrsAsNewADODB.Recordset
DimtableAsNewtable
DimtblAst
上一篇:
vb评语生成系统(论文和程序)
下一篇:
不放弃终有希望