VB學(xué)生成績(jī)管理系統(tǒng)

vb學(xué)生成績(jī)管理系統(tǒng)Vb+sql學(xué)生成績(jī)管理系一致、實(shí)驗(yàn)?zāi)康木C合掌握實(shí)驗(yàn)一到實(shí)驗(yàn)六的內(nèi)容。2。掌握編程語(yǔ)言與數(shù)據(jù)庫(kù)連結(jié)及接見(jiàn)表記錄的方法。二、實(shí)驗(yàn)準(zhǔn)備綜合從前所學(xué)知識(shí),聯(lián)合某種編程語(yǔ)言開(kāi)發(fā)完好的系統(tǒng);2。預(yù)習(xí)數(shù)據(jù)庫(kù)與編程語(yǔ)言鏈接的有關(guān)內(nèi)容;四、系統(tǒng)功能流程圖學(xué)生成績(jī)管理系統(tǒng)用戶登錄學(xué)生成績(jī)管理系統(tǒng)課程信息管理成績(jī)信息管理學(xué)生信息管理班級(jí)信息管理增添增添增添增添改正改正改正改正刪除刪除刪除刪除查問(wèn)查問(wèn)五、實(shí)驗(yàn)內(nèi)容及步驟Sql建表：createtablestudent（student_IDchar（4）NOTNULL，student_Namechar(10）NOTNULL,student_Sexchar（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,resultfloatNULL)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開(kāi)發(fā)歡迎界面歡迎界面設(shè)計(jì)思想:以動(dòng)畫(huà)形式開(kāi)始整個(gè)程序設(shè)計(jì)代碼:OptionExplicitDimProba,Proba2AsIntegerDimBoja2AsStringPrivateFunctionZrak(slikaAsPictureBox,StartXAsIntegerStartYAs

，Integer,LevoAsInteger

，

DesnoAsInteger,BojaAsString

）Me.ScaleMode=vbPixelsWithslika.ScaleMode=vbPixels。AutoRedraw=TrueEndWithForProba2=0ToslikaDoEvents

。ScaleWidthForProba=0Toslika

。ScaleHeightBoja2=slika.Point(Proba2

，

Proba)Line

（StartX,StartY)

—（Levo+Proba2

，

Desno+Proba

）,Boja2NextLine(StartX，StartY)-(Levo+Proba2,Desno+slika.ScaleHeight)BojaNextForProba2=0Toslika.ScaleHeight

，Line(StartX,StartY)

—（Levo+slika

。ScaleWidth,Desno+Proba2

）,BojaNextEndFunctionPrivateSubForm_Activate(Timer1.Enabled=TrueEndSub

）PrivateSubForm_Click(UnloadMefrmLogin.Show

）Timer1。Enabled=FalseEndSubPrivateSubPicture1_ClickEndSubPrivateSubTimer1_Timer()Dimi,jAsInteger

（）ZrakPicture1,565,295,0

，0，

Me。BackColorIfTimer1。Interval=1000ThenFori=0To100Forj=0To100DoEventsNextNextEndIfCallForm_ClickEndSub登岸界面登岸界面設(shè)計(jì)思想：輸入用戶名和密碼進(jìn)入學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)代碼：OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click（）設(shè)置全局變量為false’不提示失敗的登錄LoginSucceeded=FalseMe.HideEndSubPrivateSubcmdOK_Click（)’檢查正確的密碼IftxtPassword="0”Then’將代碼放在這里傳達(dá)’成功到calling函數(shù)設(shè)置全局變量時(shí)最簡(jiǎn)單的LoginSucceeded=TrueUnloadMeForm2。ShowMe。HideElseMsgBox”無(wú)效的密碼，請(qǐng)重試!"，,”登錄"txtPassword.SetFocusSendKeys"｛Home｝+｛End｝”EndIfEndSubPrivateSubForm_Load(）EndSub主界面主界面設(shè)計(jì)思想:點(diǎn)擊按鈕進(jìn)入不一樣的管理界面.設(shè)計(jì)代碼：PrivateSubCommand1_Click()UnloadMeForm1。ShowEndSubPrivateSubCommand2_Click（）UnloadMeForm9.ShowEndSubPrivateSubCommand3_Click（)UnloadMeForm7。ShowEndSubPrivateSubCommand4_Click(）UnloadMeForm8。ShowEndSubPrivateSubForm_Load()EndSub學(xué)生信息管理界面學(xué)生信息界面設(shè)計(jì)思想:點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的改正、增添、刪除和查問(wèn)。設(shè)計(jì)代碼:PrivateSubCommand1_Click(）UnloadMeForm2.ShowEndSubPrivateSubCommand2_Click（）Adodc1。Recordset.MoveFirstEndSubPrivateSubCommand3_Click()Adodc1。Recordset.MovePreviousIfAdodc1。。MoveLastEndSubPrivateSubCommand4_Click(）Adodc1。Recordset。EndSubPrivateSubCommand5_Click（PrivateSubCommand6_Click（）Adodc1.Recordset。UpdateEndSubPrivateSubCommand7_Click(）Adodc1.Recordset。AddNewEndSubPrivateSubCommand8_Click（)DimaskAsIntegerask=MsgBox(”能否刪除,”，vbYesNo）Ifask=6Then。Recordset。MoveNextIfAdodc1。Recordset.EOFThenAdodc1。Recordset。MoveLastEndIfEndSubPrivateSubCommand9_Click(）UnloadMeForm6。ShowEndSub學(xué)生信息管理界面———查問(wèn)界面學(xué)生信息查問(wèn)界面設(shè)計(jì)思想：實(shí)現(xiàn)學(xué)生信息按學(xué)號(hào)或姓名或班號(hào)的查問(wèn)。設(shè)計(jì)代碼：PrivateSubCommand2_Click（)IfText1〉"”ThenAdodc1.RecordSource=”select*fromxt27resultwherestudent_NAME='”＆Text1.Text&"’"ElseIfText2>"”ThenAdodci1。RecordSource=”select*fromxt27resultwherestudent_ID=’”＆Text2.Text＆”'”ElseIfText3〉"”ThenAdodc1.RecordSource=”select*fromxt27resultwherecourse_Name='"＆Text3。Text＆”’”EndIfAdodc1。RefreshEndSubPrivateSubCommand3_Click(）UnloadMeForm1。ShowEndSub班級(jí)信息管界面班級(jí)信息界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的改正、增添、刪除和查問(wèn)。設(shè)計(jì)代碼：PrivateSubaddCommand_Click(）Adodc1。Recordset.AddNewEndSubPrivateSubCommand1_Click()UnloadMeForm2。ShowEndSubPrivateSubdeleteCommand_Click(）DimaskAsIntegerask=MsgBox("能否刪除,"，vbYesNo)Ifask=6ThenAdodc1。Recordset。MoveNextIfAdodc1。Recordset.EOFThenAdodc1。Recordset。MoveLastEndIfEndSubPrivateSubupdateCommand_Click(）Adodc1。Recordset。UpdateEndSubPrivateSubCommand2_Click（)Adodc1。Recordset.MoveFirstEndSubPrivateSubCommand3_Click(）Adodc1。Recordset。BOFThenAdodc1。Recordset.MoveLastEndSubPrivateSubCommand4_Click（）Adodc1。Recordset。MoveNextIfAdodc1。Recordset。BOFThenAdodc1。Recordset.MoveFirstEndSubPrivateSubCommand5_Click()Adodc1。Recordset。MoveLastEndSubPrivateSubForm_Load（）EndSub課程信息管理界面課程信息界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的改正、增添、刪除。設(shè)計(jì)代碼：PrivateSubCommand1_Click(）UnloadMeForm2.ShowEndSubPrivateSubCommand2_Click()Adodc1。Recordset。MoveFirstEndSubPrivateSubCommand3_Click（）Adodc1。Recordset。MovePreviousIfAdodc1。。MoveLastEndSubPrivateSubCommand4_Click(）Adodc1。Recordset.MoveNextIfAdodc1.Recordset。BOFThenAdodc1。Recordset.MoveFirstEndSubPrivateSubCommand5_Click()Adodc1。Recordset。MoveLastEndSubPrivateSubCommand7_Click(）Adodc1。Recordset。AddNewEndSubPrivateSubCommand8_Click（)DimaskAsIntegerask=MsgBox(”能否刪除，”，vbYesNo）。Recordset.EOFThenAdodc1。Recordset.MoveLastEndIfEndSubPrivateSubForm_Load（)EndSub成績(jī)信息管理界面學(xué)生成績(jī)管理界面設(shè)計(jì)思想：點(diǎn)擊按鈕來(lái)實(shí)現(xiàn)系統(tǒng)的改正、增添、刪除和查問(wèn).設(shè)計(jì)代碼:PrivateSubCommand1_Click（)UnloadMeForm2.ShowEndSubPrivateSubCommand2_Click（)Adodc1.Recordset。MoveFirstEndSubPrivateSubCommand3_Click（)Adodc1.Recordset。MovePreviousIfAdodc1.Recordset。BOFThenAdodc1。Recordset.MoveLastEndSubPrivateSubCommand4_Click（）Adodc1.Recordset。MoveNextIfAdodc1.Recordset。PrivateSubCommand5_Click（)Adodc1。Recordset.MoveLastEndSubPrivateSubCommand6_Click(）PrivateSubCommand7_Click(）Adodc1。Recordset.AddNewEndSubPrivateSubCommand8_Click(）DimaskAsIntegerask=MsgBox（"能否刪除,”,vbYesNo）Ifask=6ThenAdodc1。Adodc1.Recordset。EOFThenAdodc1。Recordset.MoveLastEndIfEndSubPrivateSubCommand9_Click(）UnloadMeForm5.ShowEndSubPrivateSubForm_Load（)EndSub成績(jī)信息管理界面——查問(wèn)界面成績(jī)查問(wèn)界面設(shè)計(jì)思想：實(shí)現(xiàn)學(xué)生信息按學(xué)號(hào)或姓名或班號(hào)的查問(wèn)。設(shè)計(jì)代碼：PrivateSubCommand2_Click（）IfText1>""ThenAdodc1.RecordSource="select*fromxt27studentwherestudent_ID=’”＆Text1.Text&"'"ElseIfText2>"”ThenAdodc1.RecordS