建议期望评语:
5.课堂评语:
6.特长爱好评语:
7.体育锻炼评语:
8:卫生评语:
9:系统管理:
10:学生操行:
11:学生管理:
12:学生成绩评语:
13:印象评语:
14:作业评语:
3.2界面设计与代码设计
1.登陆界面设计:
登陆界面代码设计:
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(txtuser.Text)=""Then'判断输入的用户名是否为空
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtuser.SetFocus
Else
sql="select*from系统管理where用户名='"&txtuser.Text&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtuser.SetFocus
Else'检验密码是否正确
IfTrim(rs_login.Fields(1))=Trim(txtpwd.Text)Then
userID=txtuser.Text
rs_login.Close
UnloadMe
mainform.Show
Else
MsgBox"密码不正确",vbOKOnly+vbExclamation,""
txtpwd.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimconnectionstringAsString
connectionstring="provider=Microsoft.Jet.oledb.4.0;"&_
"datasource=pingyu.mdb"
conn.Openconnectionstring
cnt=0
EndSub
2.添加学生界面设计:
添加学生代码设计:
PrivateSubCommand1_Click()
DimsqlAsString
IfTrim(Text1.Text)=""Then
MsgBox"学生姓名不能为空",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"学号不能为空",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"班级不能为空",vbOKOnly+vbExclamation,""
Text3.SetFocus
ExitSub
EndIf
sql="select*from学生管理"
rs.CursorLocation=adUseClient
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
While(rs.EOF=False)
IfTrim(rs.Fields(0))=Trim(Text2.Text)Then
MsgBox"学号不能重复!",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs.MoveNext
EndIf
Wend
rs.AddNew
rs.Fields(0)=Text2.Text
rs.Fields(1)=Text1.Text
rs.Fields(2)=Text3.Text
rs.Update
rs.Close
MsgBox"添加用户成功",vbOKOnly+vbExclamation,""
UnloadMe
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
3.查找学生界面设计:
查找学生代码设计:
PrivateSubCommand1_Click()
DimrsAsNewADODB.Recordset
DimfindAsString
DimsqlAsString
List1.Clear
List1.AddItem"学号"&Space(5)&"姓名"&Space(5)&"班级"
IfOption1.Value=TrueThen
sql="select*from学生管理where学生姓名='"&Text1.Text&"'"
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs.EOF=FalseThen
rs.MoveFirst
Whilers.EOF=False
List1.AddItemrs.Fields(0)&Space(5)&rs.Fields(1)&Space(5)&rs.Fields(2)
rs.MoveNext
Wend
Text1.Text=""
Else
MsgBox"没有找到目标!",vbOKOnly+vbExclamation,""
EndIf
EndIf
IfOption2.Value=TrueThen
sql="select*from学生管理where学号='"&Text2.Text&"'"
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs.EOF=FalseThen
rs.MoveFirst
Whilers.EOF=False
List1.AddItemrs.Fields(0)&Space(5)&rs.Fields(1)&Space(5)&rs.Fields(2)
rs.MoveNext
Wend
Text2.Text=""
Else
MsgBox"没有找到目标!",vbOKOnly+vbExclamation,""
EndIf
EndIf
IfOption3.Value=TrueThen
sql="select*from学生管理where班级='"&Text3.Text&"'"
rs.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs.EOF=FalseThen
rs.MoveFirst
Whilers.EOF=False
List1.AddItemrs.Fields(0)&Space(5)&rs.Fields(1)&Space(5)&rs.Fields(2)
rs.MoveNext
Wend
Text3.Text=""
Else
MsgBox"没有找到目标!",vbOKOnly+vbExclamation,""
EndIf
EndIf
rs.Close
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubList1_Click()
DimiAsLong
DimsqlAsString
DimrsclickAsNewADODB.Recordset
i=CLng(List1.ListIndex)
ID=Left(List1.Text,6)
Ifi>0Then
rsclick.CursorLocation=adUseClient
sql="select*from学生操行where学号='"&ID&"'"&"orderby学期"
rsclick.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrsclick.EOF=FalseThen
rsclick.MoveFirst
Else
MsgBox"该生没有评语!",vbOKOnly+vbExclamation,""
ExitSub
EndIf
Text4.Text=""'文本框清空
Whilersclick.EOF=False
Text4.Text=Text4.Text&vbCrLf&"第"&rsclick.Fields(1)&"学期"&vbCrLf&Space(2)&_
rsclick.Fields(2)&vbCrLf&Space(10)&rsclick.Fields(3)&Space(2)&rsclick.Fields(4)
rsclick.MoveNext
Wend
rsclick.Close
ExitSub
Else
MsgBox"请选择学生!",vbOKOnly+vbExclamation,""
ExitSub
EndIf
EndSub
4.添加学生界面设计:
添加学生代码设计:
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_addAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空",vbOKOnly+vbExclamation,""
ExitSub
Text1.SetFocus
Else
sql="select*from系统管理"
rs_add.Opensql,conn,adOpenKeyset,adLockPessimistic
While(rs_add.EOF=False)
IfTrim(rs_add.Fields(0))=Trim(Text1.Text)Then
MsgBox"已有这个用户",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs_add.MoveNext
EndIf
Wend
IfTrim(Text2.Text)<>Trim(Text3.Text)Then
MsgBox"两次密码不一致",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs_add.AddNew
rs_add.Fields(0)=Text1.Text
rs_add.Fields(1)=Text2.Text
rs_add.Update
rs_add.Close
MsgBox"添加用户成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
EndIf
EndSub
5.修改密码界面设计:
修改界面代码设计:
PrivateSubCommand1_Click()
Dimrs_changAsNewADODB.Recordset
DimsqlAsString
IfTrim(Text1.Text)<>Trim(Text2.Text)Then
MsgBox"密码不一致!",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Else
sql="select*from系统管理where用户名='"&userID&"'"
rs_chang.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_chang.Fields(1)=Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox"密码修改成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
6.主界面设计:
主界面代码设计:
OptionExplicit
Dimrs1AsNewADODB.Recordset
DimcatAsNewadox.Catalog
DimtblAsNewadox.table
Dimlist2stateAsBoolean'标记list2的状态
DimID_numAsString'记录学号
DimtxttblAsString'记录当前评语项目名称
Dimtxtfi
上一篇:
vb评语生成系统(论文和程序)
下一篇:
政府形象媒体危机的处置策略研究