资源描述：
《vb学生成绩管理系统.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Vb+sql学生成绩管理系统一、实验目的1.综合掌握实验一到实验六的内容。2.掌握编程语言与数据库连接及访问表记录的方法。二、实验准备1.综合以前所学知识，结合某种编程语言开发完整的系统；2.预习数据库与编程语言链接的相关内容；四、系统功能流程图查询删除修改添加查询删除修改添加成绩信息管理课程信息管理学生成绩管理系统删除修改添加删除修改添加用户登录学生成绩管理系统班级信息管理学生信息管理五、实验内容及步骤Sql建表：createtablestudent(student_IDchar(4)NOTNULL,student_Namechar(10)NOTNULL,student_Se
2、xchar(2)NULL,born_DatedatetimeNULL,class_NOchar(10)NULL,tele_Numberchar(10)NULL,ru_DatedatetimeNULL,addressvarchar(50)NULL,commentvarchar(200)NULL)createtableresult(exam_Nochar(10)NOTNULL,student_IDchar(4)NOTNULL,student_Namechar(10)NULL,class_Nochar(10)NULL,course_Namechar(10)NULL,resultflo
3、atNULL)createtablecourse(course_Nochar(10)NOTNULL,course_Namechar(10)NULL,course_Typechar(10)NULL,course_Deschar(50)NULL)createtableclass(class_Nochar(10)NOTNULL,gradechar(10)NULL,directorchar(10)NULL,classroom_Nochar(10)NULL)六、Vb开发欢迎界面欢迎界面设计思想：以动画形式开始整个程序设计代码：OptionExplicitDimProba,Proba2As
4、IntegerDimBoja2AsStringPrivateFunctionZrak(slikaAsPictureBox,StartXAsInteger,StartYAsInteger,LevoAsInteger,DesnoAsInteger,BojaAsString)Me.ScaleMode=vbPixelsWithslika.ScaleMode=vbPixels.AutoRedraw=TrueEndWithForProba2=0Toslika.ScaleWidthDoEventsForProba=0Toslika.ScaleHeightBoja2=slika.Point(P
5、roba2,Proba)Line(StartX,StartY)-(Levo+Proba2,Desno+Proba),Boja2NextLine(StartX,StartY)-(Levo+Proba2,Desno+slika.ScaleHeight),BojaNextForProba2=0Toslika.ScaleHeightLine(StartX,StartY)-(Levo+slika.ScaleWidth,Desno+Proba2),BojaNextEndFunctionPrivateSubForm_Activate()Timer1.Enabled=TrueEndSubPri
6、vateSubForm_Click()UnloadMefrmLogin.ShowTimer1.Enabled=FalseEndSubPrivateSubPicture1_Click()EndSubPrivateSubTimer1_Timer()Dimi,jAsIntegerZrakPicture1,565,295,0,0,Me.BackColorIfTimer1.Interval=1000ThenFori=0To100Forj=0To100DoEventsNextNextEndIfCallForm_ClickEndSub登陆界面登陆界面设计思想：输入用户名和密码进入学生成绩管理
7、系统设计代码：OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded=FalseMe.HideEndSubPrivateSubcmdOK_Click()'检查正确的密码IftxtPassword="0"Then'将代码放在这里传递'成功到calling函数'设置全局变量时最容易的LoginSucceeded=TrueUnloadMeFo
