还剩31页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
主要代码如下
1、登录界面代码DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubCommand1_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.RecordsetStatici%cn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.Openusna=TrimText
1.Textmysql=select*from用户表where用户名=usnarst.OpenmysqlcnIfrst.EOFThenMsgBox用户名不存在!cn.CloseText
1.Text=Text
2.Text=Text
1.SetFocusElseIfTrimrst密码=TrimText
2.TextThen管理界面.ShowElsei=i+1Ifi3ThenMsgBox用户名或密码错误!vbOKOnly+vbExclamation警告cn.CloseText
2.Text=Text
1.Text=Text
1.SetFocusElseMsgBox该用户已被锁定!vbOKOnly+vbExclamation警告EndIfEndIfEndIfEndSubPrivateSubCommand2_ClickText
1.Text=Text
2.Text=Text
3.Text=EndSub
2、管理界面代码PrivateSubSinsert_Click添加学生信息.ShowEndSubPrivateSubSselect_Click查询学生信息.ShowEndSubPrivateSubsustu_Click查询更新学生信息.ShowEndSubPrivateSubxgmm_Click修改密码.ShowEndSubPrivateSubyhzc_Click用户注册.ShowEndSub
3、查询学生信息代码DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubCommand1_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.OpenIfCombo
1.TextThenmysql=select*from学生信息表where系别=TrimCombo
1.Textrst.OpenmysqlcnIfrst.EOFThenMsgBox没有学生!vbOKOnly+vbExclamation警告Combo
1.Text=ElseWithMSFlexGrid
1.TextMatrix01=学号.TextMatrix02=姓名.TextMatrix03=性别.TextMatrix04=年龄.TextMatrix05=系别.TextMatrix06=班级MSFlexGrid
1.Rows=1每次查询自动定位到第一行DoWhileNotrst.EOF.Rows=.Rows+
1.CellAlignment=
8.TextMatrix.Rows-11=rst.Fields学号.TextMatrix.Rows-12=rst.Fields姓名.TextMatrix.Rows-13=rst.Fields性别.TextMatrix.Rows-14=rst.Fields年龄.TextMatrix.Rows-15=rst.Fields系别.TextMatrix.Rows-16=rst.Fields班级rst.MoveNextLoopEndWithEndIfElseIfCombo
2.TextThenmysql=select*from学生信息表where班级=TrimCombo
2.Textrst.OpenmysqlcnIfrst.EOFThenMsgBox没有学生!vbOKOnly+vbExclamation警告Combo
1.Text=ElseWithMSFlexGrid
1.TextMatrix01=学号.TextMatrix02=姓名.TextMatrix03=性别.TextMatrix04=年龄.TextMatrix05=系别.TextMatrix06=班级MSFlexGrid
1.Rows=1每次查询自动定位到第一行DoWhileNotrst.EOF.Rows=.Rows+
1.CellAlignment=
8.TextMatrix.Rows-11=rst.Fields学号.TextMatrix.Rows-12=rst.Fields姓名.TextMatrix.Rows-13=rst.Fields性别.TextMatrix.Rows-14=rst.Fields年龄.TextMatrix.Rows-15=rst.Fields系别.TextMatrix.Rows-16=rst.Fields班级rst.MoveNextLoopEndWithEndIfElseIfText
1.TextThenmysql=select*from学生信息表where学号=TrimText
1.Textrst.OpenmysqlcnIfrst.EOFThenMsgBox没有学生!vbOKOnly+vbExclamation警告Combo
1.Text=ElseWithMSFlexGrid
1.TextMatrix01=学号.TextMatrix02=姓名.TextMatrix03=性别.TextMatrix04=年龄.TextMatrix05=系别.TextMatrix06=班级MSFlexGrid
1.Rows=1每次查询自动定位到第一行DoWhileNotrst.EOF.Rows=.Rows+
1.CellAlignment=
8.TextMatrix.Rows-11=rst.Fields学号.TextMatrix.Rows-12=rst.Fields姓名.TextMatrix.Rows-13=rst.Fields性别.TextMatrix.Rows-14=rst.Fields年龄.TextMatrix.Rows-15=rst.Fields系别.TextMatrix.Rows-16=rst.Fields班级rst.MoveNextLoopEndWithEndIfElseMsgBox请输入查询条件!vbOKOnly+vbExclamation警告EndIfEndSubPrivateSubCommand2_ClickCombo
1.Text=Combo
2.Text=Text
1.Text=EndSubPrivateSubCommand3_Click修改学生信息.ShowEndSub修改学生信息PrivateSubCommand4_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.Openmysql=deletefrom学生信息表where学号=Text
1.Textrst.OpenmysqlcnMsgBox删除成功!vbOKOnly+vbExclamation警告EndSubPrivateSubForm_LoadCombo
1.AddItem信息服务学院Combo
1.AddItem电子信息工程系Combo
2.AddItem40821PCombo
2.AddItem40811PCombo
2.AddItem40822PCombo
2.AddItem40721PEndSub
4、添加学生信息代码DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubForm_LoadCombo
1.AddItem信息服务学院Combo
1.AddItem电子信息工程系Combo
2.AddItem40821PCombo
2.AddItem40811PCombo
2.AddItem40822PCombo
2.AddItem40721PEndSubPrivateSubCommand1_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.OpenDimsexAsStringusna=TrimText
1.Textmysql=select*from学生信息表where学号=usnarst.OpenmysqlcnIfrst.EOFThenrst.CloseElserst.CloseMsgBox该学生信息已存在!vbOKOnly+vbExclamation警告Text
1.Text=Text
2.Text=Text
3.Text=Combo
1.Text=Combo
2.Text=Option
1.Value=FalseText
1.SetFocusEndIfIfText
1.Text=ThenMsgBox请输入学号!vbOKOnly+vbExclamation警告Text
1.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请输入姓名!vbOKOnly+vbExclamation警告Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请输入年龄!vbOKOnly+vbExclamation警告Text
3.SetFocusExitSubEndIfIfOption
1.ValueThensex=男Elsesex=女EndIfxh=TrimText
1.Textxm=TrimText
2.Textxb=sexnl=TrimText
3.Textxofy=TrimCombo
1.Textbj=TrimCombo
2.Textmysql=insertinto学生信息表学号姓名性别年龄系别班级valuesxhxmxbnlxofybjrst.OpenmysqlcnMsgBox信息添加成功!Text
1.Text=Text
2.Text=Text
3.Text=Combo
1.Text=Combo
2.Text=Option
1.Value=FalseEndSub
5、修改密码DimrstAsNewADODB.RecordsetDimcnAsNewADODB.ConnectionPrivateSubCommand1_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.OpenIfText
1.Text=ThenMsgBox请输入密码!vbOKOnly+vbExclamation警告Text
1.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请输入新密码!vbOKOnly+vbExclamation警告Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请确认输入的新密码!vbOKOnly+vbExclamation警告Text
3.SetFocusExitSubEndIfIfText
2.Text=Text
3.TextThenxmm=TrimText
2.Textmysql=update用户表set密码=xmmwhere用户名=登陆.Text
1.Textrst.OpenmysqlcnMsgBox密修改成功!EndIfEndSubPrivateSubCommand2_ClickText
1.Text=Text
2.Text=Text
3.Text=EndSub
6、修改学生信息代码DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubCommand1_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.Openusna=TrimText
1.Textmysql=select*from学生信息表where学号=usnarst.Openmysqlcnrst.Closemysql=deletefrom学生信息表where学号=Text
1.Textrst.OpenmysqlcnIfText
1.Text=ThenMsgBox请输入学号!vbOKOnly+vbExclamation警告Text
1.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请输入姓名!vbOKOnly+vbExclamation警告Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请输入年龄!vbOKOnly+vbExclamation警告Text
3.SetFocusExitSubEndIfIfOption
1.ValueThensex=男Elsesex=女EndIfxh=TrimText
1.Textxm=TrimText
2.Textxb=sexnl=TrimText
3.Textxofy=TrimCombo
1.Textbj=TrimCombo
2.Textmysql=insertinto学生信息表学号姓名性别年龄系别班级valuesxhxmxbnlxofybjrst.OpenmysqlcnMsgBox信息修改成功!Text
1.Text=Text
2.Text=Text
3.Text=Combo
1.Text=Combo
2.Text=Option
1.Value=FalseEndSubPrivateSubForm_LoadCombo
1.AddItem信息服务学院Combo
1.AddItem电子信息工程系Combo
2.AddItem40821PCombo
2.AddItem40811PCombo
2.AddItem40822PCombo
2.AddItem40721PEndSub
7、用户注册代码DimrstAsNewADODB.RecordsetDimcnAsNewADODB.ConnectionPrivateSubCommand1_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.OpenIfText
1.Text=ThenMsgBox请输入用户名!vbOKOnly+vbExclamation警告Text
1.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请输入密码!vbOKOnly+vbExclamation警告Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请再次输入密码!vbOKOnly+vbExclamation警告Text
3.SetFocusExitSubEndIfsryhm=TrimText
1.Textsrmm=TrimText
2.Textmysql=insertinto用户表用户名密码valuessryhmsrmmrst.OpenmysqlcnMsgBox用户添加成功!Text
1.Text=Text
2.Text=Text
3.Text=EndSub添加用户PrivateSubCommand2_ClickText
1.Text=Text
2.Text=Text
3.Text=EndSub重置按钮PrivateSubCommand3_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.Openusna=TrimText
1.Textmysql=select*from用户表where用户名=usnarst.OpenmysqlcnIfrst.EOFThenMsgBox用户名可用!ElseMsgBox用户名已存在!vbOKOnly+vbExclamation警告Text
1.Text=Text
2.Text=Text
3.Text=Text
1.SetFocusExitSubEndIfEndSub检查用户名PrivateSubCommand4_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.Openusna=TrimText
1.Textmysql=select*from用户表where用户名=usnarst.OpenmysqlcnIfrst.EOFThenMsgBox无此用户名,删除不成功!vbOKOnly+vbExclamation警告Elserst.Closeusna=TrimText
1.Textmysql=deletefrom用户表where用户名=usnarst.OpenmysqlcnMsgBox删除成功!vbOKOnly+vbExclamation警告Text
1.Text=Text
2.Text=Text
3.Text=Text
1.SetFocusEndIfEndSub删除用户PrivateSubCommand5_ClickSetcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847cn.Openmysql=select*from用户表rst.OpenmysqlcnIfrst.EOFThenMsgBox出错!vbOKOnly+vbExclamation警告EndIfWithMSFlexGrid
1.TextMatrix01=用户名.TextMatrix02=密码MSFlexGrid
1.Rows=1每次查询自动定位到第一行DoWhileNotrst.EOF.Rows=.Rows+
1.CellAlignment=
8.TextMatrix.Rows-11=rst.Fields用户名.TextMatrix.Rows-12=rst.Fields密码rst.MoveNextLoopEndWithrst.CloseEndSub查询用户表源代码如下#includeiostream#includecstringusingnamespacestd;structstudent{intno;charname
[30];intmathcomputerenglishphysics;}stu
[100]={000000};voidsetup;intlookforintm;voidedit;voidDelete;intmain{loop:cout***************************************\n;cout请选择服务\n;cout1-录入学生信息\n;cout2-查找学生信息\n;cout3-修改学生信息\n;cout4-删除学生信息\n;cout0-退出\n;cout***************************************\n;intmenunumtem;cinmenu;systemcls;switchmenu{case1:{setup;systemcls;gotoloop;break;}case2:{cout请输入您想查询的学号:;cinnum;tem=lookfornum;iftem!=-1{cout学号姓名计算机成绩数学成绩英语成绩物理成绩\n;coutstu[tem].nostu[tem].namestu[tem].computer\stu[tem].mathstu[tem].englishstu[tem].physicsendl;}elsecout对不起该学号不存在!\n;systempause;systemcls;gotoloop;break;}case3:{edit;systemcls;gotoloop;break;}case4:{Delete;systemcls;gotoloop;break;}case5:{cout谢谢使用!\n;break;}default:{cout错误的请求!\n;systemcls;gotoloop;break;}}return0;}voidsetup{charstr;forinti=0;i100;i++{cout请输入学生学号、姓名、计算机成绩、数学成绩、英语成绩、物理成绩\n;cinstu[i].nostu[i].namestu[i].computerstu[i].math\stu[i].englishstu[i].physics;cout继续(y/n\n;cinstr;ifstr==nbreak;}}intlookforintm{forinti=0;i100;i++{ifm==stu[i].noreturni;}return-1;}voidedit{charch
[30];ints1s2s3s4;inttmtemp;cout请选择学号endl;cinm;temp=lookform;ifm!=-1{cout******************************\n;cout请选择:\n;cout1-修改姓名\n;cout2-修改计算机成绩\n;cout3-修改数学成绩\n;cout4-修改英语成绩\n;cout5-修改物理成绩\n;cout******************************\n;cint;switcht{case1:cout请输入学生的名字\n;cinch;strcpystu[temp].namech;break;case2:cout请输入学生新的计算机成绩\n;cins1;stu[temp].computer=s1;break;case3:cout请输入学生新的数学成绩\n;cins2;stu[temp].math=s2;break;case4:cout请输入学生新的英语成绩\n;cins3;stu[temp].english=s3;break;case5:cout请输入学生新的物理成绩\n;cins4;stu[temp].physics=s4;break;}}elsecout此学号不存在!\n;}voidDelete{inttempm;cout请选择学号endl;cinm;temp=lookform;ifm!=-1{stu[temp].no=0;stu[temp].name
[0]=0;stu[temp].computer=0;stu[temp].math=0;stu[temp].english=0;stu[temp].physics=0;}elsecout此学号不存在!\n;}。