資源描述:
《vb學(xué)生成績(jī)管理系統(tǒng).doc》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、Vb+sql學(xué)生成績(jī)管理系統(tǒng)一、實(shí)驗(yàn)?zāi)康?.綜合掌握實(shí)驗(yàn)一到實(shí)驗(yàn)六的內(nèi)容。2.掌握編程語言與數(shù)據(jù)庫連接及訪問表記錄的方法。二、實(shí)驗(yàn)準(zhǔn)備1.綜合以前所學(xué)知識(shí),結(jié)合某種編程語言開發(fā)完整的系統(tǒng);2.預(yù)習(xí)數(shù)據(jù)庫與編程語言鏈接的相關(guān)內(nèi)容;四、系統(tǒng)功能流程圖查詢刪除修改添加查詢刪除修改添加成績(jī)信息管理課程信息管理學(xué)生成績(jī)管理系統(tǒng)刪除修改添加刪除修改添加用戶登錄學(xué)生成績(jī)管理系統(tǒng)班級(jí)信息管理學(xué)生信息管理五、實(shí)驗(yàn)內(nèi)容及步驟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開發(fā)歡迎界面歡迎界面設(shè)計(jì)思想:以動(dòng)畫形式開始整個(gè)程序設(shè)計(jì)代碼: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登陸界面登陸界面設(shè)計(jì)思想:輸入用戶名和密碼進(jìn)入學(xué)生成績(jī)管理
7、系統(tǒng)設(shè)計(jì)代碼:OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'設(shè)置全局變量為false'不提示失敗的登錄LoginSucceeded=FalseMe.HideEndSubPrivateSubcmdOK_Click()'檢查正確的密碼IftxtPassword="0"Then'將代碼放在這里傳遞'成功到calling函數(shù)'設(shè)置全局變量時(shí)最容易的LoginSucceeded=TrueUnloadMeFo