Form1的代码:mand1_Click()()()IfMsgBox("确定退出管理系统? ",_vbQuestion+vbYesNo+vbDefaultButton2," 警告!")=vbYesThenEndEndIfEndSubPrivateSubPicture1_Click()EndSubPrivateSubTimer1_Timer()=Time$()EndSubPrivateSubForm_Load()==TrueEndSubForm2的代码:mand1_Click()"用户名='"&&"'"=((Trim()) =(Trim())) And ((Trim()) =(Trim()))=="非法的账号!",vbOKOnly+vbExclamation," 请重新输入! "=""=""()=""=""mand3_Click()()=""=""="*"EndSubPrivateSubPicture1_Click()EndSubForm3的代码:mand1_Click()"用户名='"&&"'"=((Trim()) =(Trim())) And ((Trim()) =(Trim()))==="非法的账号!",vbOKOnly+vbExclamation," 请重新输入! "=""=""()===""=""mand3_Click()()=""=""="*"EndSub无代码Form5的代码:PrivateSubcjcx_Click(IndexAsInteger)()="修改"="确认"="修改""修改成功"EndIfEndSubPrivateSubForm_Load()mandType=="Select*FromstudentwelWhere 用户名 ='"&&"'"====TrueEndSubPrivateSubPicture1_Click()EndSubPrivateSubtcxt_Click(IndexAsInteger)
vb和SQL做的学生成绩管理系统 来自淘豆网www.taodocs.com转载请标明出处.