课程设计说明写作模板含格式

2个字符）㈡1IfOption1.value=TrueAndText1.Text<>""AndText2.Text<>""ThenAdodc1.RecordSource="select*fromstudentwheresno='"&Text1.Text&"'andscode='"&Text2.Text&"'"IfAdodc1.Recordset.RecordCount=1学生信息MsgBox登陆成功！")MsgBox用户名或密码错误，请重新登录！")Text1.Text=""EndIfEndIfOption2.value=TrueAndText1.Text<>""AndText2.Text<>""ThenAdodc2.RecordSource="select*fromManagerwheremno='"&Text1.Text&"'andmscode='"&Text2.Text&"'"IfAdodc2.Recordset.RecordCount=1学生管理MsgBox登陆成功！")MsgBox用户名或密码错误，请重新登录！")Text1.Text=""EndIfEndIf2PrivateSubUnload学生信息EndSubPrivateSubUnload学生信息用户登录.Text1.Text用户登录.Text2.Text用户登录.Option1TrueEndSubPrivateSubmandType=Adodc3.RecordSource="select*fromstudentwheresno='"&Trim(用户登录.Text1.Text)&"'"SetDataGrid1.DataSource=Adodc3EndSub3

mandType=

Adodc4.RecordSource="selectSC.sno, ame,ccredit,gradefromSCjoinstudentonSC.sno=student.snojoourseon owhereSC.sno='"&用户登录.Text1.Text&"'"SetDataGrid1.DataSource=Adodc4EndSub456左边的DataGrid内总体显示学生信息，右边的文本框单独捕捉当前某学生信息，以分7管理员由学生信息管理界面返回再进入学生选课管理界面即可对学生选课情况进行直观查看和修改。文本框意义同上。Adodc7.Recordset.Fields("sno")=Trim(Text15.Text)Adodc7.Recordset.Fields("sname")=Trim(Text16.Text)Adodc7.Recordset.Fields("cno")=Trim(Text17.Text)Adodc7.Recordset.Fields("cname")=Trim(Text18.Text)Adodc7.Recordset.Fields("grade")=Trim(Text20.Text)MsgBox8Adodc6.Recordset.Fields("sno")=Trim(Text11.Text) ")=Trim(text12.Text)Adodc6.Recordset.Fields("sdept")=T