學(xué)生成績管理系統(tǒng)源代碼

Form1的代碼：PrivateSubCommand1_Click()UnloadMeForm3.ShowEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSubPrivateSubCommand3_Click()IfMsgBox("確定退出管理系統(tǒng)？",_vbQuestion+vbYesNo+vbDefaultButton2,"警告！")=vbYesThenEndEndIfEndSubPrivateSubPicture1_Click()EndSubPrivateSubTimer1_Timer()Command4.Caption=Time$()EndSubPrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TrueEndSub Form2的代碼：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"用戶名='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text)))And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseForm4.Text3.Text=Text1.TextUnloadMeForm8.ShowElseMsgBox"非法的賬號!",vbOKOnly+vbExclamation,"請重新輸入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm1.ShowEndSubPrivateSubForm_Load()Text2.Text=""Text1.Text=""Text2.PasswordChar="*"EndSubPrivateSubPicture1_Click()EndSubForm3的代碼：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"用戶名='"&Text1.Text&"'"IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text)))And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseForm4.Text1.Text=Text1.TextForm4.Text2.Text=Text4.TextUnloadMeForm5.ShowElseMsgBox"非法的賬號!",vbOKOnly+vbExclamation,"請重新輸入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Option1.Value=FalseOption2.Value=FalseText1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm1.ShowEndSubPrivateSubForm_Load()Text2.Text=""Text1.Text=""Text2.PasswordChar="*"EndSub無代碼Form5的代碼：PrivateSubcjcx_Click(IndexAsInteger)UnloadMeForm7.ShowEndSubPrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="修改"ThenCommand1.Caption="確認(rèn)"Adodc2.Recordset.RequeryText5.SetFocusElseCommand1.Caption="修改"Adodc2.Recordset.UpdateMsgBox"修改成功"EndIfEndSubPrivateSubForm_Load()Adodc1.CommandType=adCmdUnknownAdodc1.RecordSource="Select*FromstudentwelWhere用戶名='"&Form4.Text1.Text&"'"Adodc1.RefreshText1.Visible=TrueText3.Visible=TrueTimer1.Interval=1000Timer1.Enabled=TrueEndSubPrivateSubPicture1_Click()EndSubPrivateSubtcxt_Click(IndexAsInteger)UnloadMeForm3.ShowEndSubPrivateSubTimer1_Timer()Text2.Text=Time$()EndSubPrivateSubxgmm_Click()Label5.Visible=TrueLabel7.Visible=TrueText4.Visible=TrueText5.Visible=TrueCommand1.Visible=TrueAdodc2.CommandType=adCmdUnknownAdodc2.RecordSource="Select*FromstudententerWhere用戶名='"&Form4.Text1.Text&"'"Adodc2.RefreshEndSubPrivateSubxxcx_Click(IndexAsInteger)UnloadMeForm6.ShowEndSubForm6的代碼：PrivateSubCommand1_Click()UnloadMeForm5.ShowEndSubPrivateSubCommand2_Click()OnErrorResumeNextIfCommand2.Caption="修改"ThenText1.SetFocusCommand2.Caption="確認(rèn)"Adodc1.Recordset.RequeryMsgBox"信息修改成功"ElseCommand2.Caption="修改"Adodc1.Recordset.UpdateEndIfEndSubPrivateSubForm_Load()Adodc1.CommandType=adCmdUnknownAdodc1.RecordSource="Select*FromstudentinforWhere學(xué)號='"&Form4.Text1.Text&"'"Adodc1.RefreshText1.Visible=TrueText2.Visible=TrueText3.Visible=TrueText4.Visible=TrueText5.Visible=TrueText6.Visible=TrueText7.Visible=TrueText8.Visible=TrueEndSubPrivateSubPicture1_Click()EndSubPrivateSubCommand1_Click()UnloadMeForm5.ShowEndSubPrivateSubForm_Load()Adodc1.Recordset.MoveFirstDimaAsStringa=Form4.Text1.TextAdodc1.Recordset.Find"學(xué)號='"&a&"'"Text1.Visible=TrueText2.Visible=TrueText4.Visible=TrueText6.Visible=TrueDimbAsIntegerb=Text2.TextIfb>=90ThenText3.Text="優(yōu)"ElseIfb>=80ThenText3.Text="良"ElseIfb>=70ThenText3.Text="中"ElseIfb>=60ThenText3.Text="及格"ElseText3.Text="不及格"EndIfDimcAsIntegerc=Text4.TextIfc>=90ThenText5.Text="優(yōu)"ElseIfc>=80ThenText5.Text="良"ElseIfc>=70ThenText5.Text="中"ElseIfc>=60ThenText5.Text="及格"ElseText5.Text="不及格"EndIfDimdAsIntegerd=Text6.TextIfd>=90ThenText7.Text="優(yōu)"ElseIfd>=80ThenText7.Text="良"ElseIfd>=70ThenText7.Text="中"ElseIfd>=60ThenText7.Text="及格"ElseText7.Text="不及格"EndIfIfText3.Text="不及格"ThenText2.ForeColor=&HFF&EndIfIfText5.Text="不及格"ThenText4.ForeColor=&HFF&EndIfIfText7.Text="不及格"ThenText6.ForeColor=&HFF&EndIfEndSubPrivateSubPicture1_Click()EndSub Form8的代碼：PrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="修改"ThenCommand1.Caption="確認(rèn)"Adodc1.Recordset.RequeryText2.SetFocusElseCommand1.Caption="修改"Adodc1.Recordset.UpdateMsgBox"修改成功"EndIfEndSubPrivateSubfile1_Click()UnloadMeForm10.ShowEndSubPrivateSubfile2_Click()UnloadMeForm9.ShowEndSubPrivateSubfile4_Click()UnloadMeForm12.ShowEndSubPrivateSubfile5_Click()UnloadMeForm11.ShowEndSubPrivateSubfile7_Click()UnloadMeForm2.ShowEndSubPrivateSubfile8_Click()Label3.Visible=TrueLabel4.Visible=TrueText1.Visible=TrueText2.Visible=TrueCommand1.Visible=TrueAdodc1.CommandType=adCmdUnknownAdodc1.RecordSource="Select*FromteacherenterWhere用戶名='"&Form4.Text3.Text&"'"Adodc1.RefreshEndSubPrivateSubPicture1_Click()EndSubForm9的代碼：PrivateSubCommand1_Click()DimmnoAsStringmno=InputBox("請輸入學(xué)號","查找窗")Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"學(xué)號='"&mno&"'"IfAdodc1.Recordset.EOF=TrueThenMsgBox"無此學(xué)號！",,"提示"EndSubPrivateSubCommand2_Click()UnloadMeForm8.ShowEndSubPrivateSubCommand3_Click()DimmnonAsStringmnon=InputBox("請輸入姓名","查找窗")Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"姓名='"&mnon&"'"IfAdodc1.Recordset.EOF=TrueThenMsgBox"無此學(xué)號！",,"提示"EndSubPrivateSubLabel5_Click()EndSubPrivateSubLabel7_Click()EndSubForm10的代碼：PrivateSubCommand1_Click()OnErrorResumeNextCommand2.Enabled=NotCommand2.EnabledCommand3.Enabled=NotCommand3.EnabledCommand4.Enabled=NotCommand4.EnabledIfCommand1.Caption="新增"ThenCommand1.Caption="確認(rèn)"Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption="新增"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand2_Click()OnErrorResumeNextAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand3_Click()OnErrorResumeNextCommand1.Enabled=NotCommand1.EnabledCommand2.Enabled=NotCommand2.EnabledCommand4.Enabled=NotCommand4.EnabledIfCommand3.Caption="修改"ThenCommand3.Caption="確認(rèn)"Adodc1.Recordset.RequeryText1.SetFocusElseCommand3.Caption="修改"Adodc1.Recordset.UpdateEndIfEndSubPrivateSubCommand4_Click()OnErrorResumeNextCommand1.Caption="新增"Command3.Caption="修改"Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueAdodc1.Recordset.CancelUpdateAdodc1.Recordset.MoveLastEndSubPrivateSubCommand5_Click()UnloadMeForm8.ShowEndSubPrivateSubCommand6_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand7_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstEndIfEndSubPrivateSubCommand8_Click()Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand9_Click()Adodc1.Recordset.MoveLastEndSubPrivateSubLabel5_Click()EndSubForm11的代碼：PrivateSubCommand1_Click()DimmnoAsStringmno=InputBox("請輸入學(xué)號","查找窗")Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"學(xué)號='"&mno&"'"IfAdodc1.Recordset.EOF=TrueThenMsgBox"無此學(xué)號！",,"提示"EndSubPrivateSubCommand2_Click()UnloadMeForm8.ShowEndSubPrivateSubPicture1_Click()EndSub Form12的代碼：PrivateSubCommand1_Click()OnErrorResumeNextCommand2.Enabled=NotCommand2.EnabledCommand3.Enabled=NotCommand3.EnabledCommand4.Enabled=NotCommand4.EnabledIfCommand1.Caption="新增"ThenCommand1.Caption="確認(rèn)"Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption="新增"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand2_Click()OnErrorResumeNextAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand3_Click()OnErrorResumeNextCommand1.Enabled=NotCommand1.EnabledCommand2.Enabled=NotCommand2.EnabledCommand4.Enabled=NotCommand4.EnabledIfCommand3.Caption="修改"ThenCommand3.Caption="確認(rèn)"Adodc1.Recordset.RequeryText1.SetFocusElseCommand3.Caption="修改"Adodc1.Recordset.UpdateEndIfEndSubPrivateSubCommand4_Click()OnErrorResumeNextCommand1.Caption="新增"Command3.Caption="修改"Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueAdodc1.Recordset.CancelUpdateAdodc1.Recordset.MoveLastEndSubPrivateSubCommand5_Click()UnloadMeForm8.ShowEndSubPrivateSubCommand6_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand7_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstEndIfEndSubPrivateSubCommand8_Click()Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand9_Click()Adodc1.Recordset.MoveLastEndSubPrivateSubPicture1_Click()EndSub數(shù)據(jù)庫部分：建立數(shù)據(jù)庫表：

社會實踐報告系別：班級：學(xué)號：姓名：作為祖國未來的事業(yè)的繼承人，我們這些大學(xué)生應(yīng)該及早樹立自己的歷史責(zé)任感，提高自己的社會適應(yīng)能力。假期的社會實踐就是很好的鍛煉自己的機(jī)會。當(dāng)下，掙錢早已不是打工的唯一目的，更多的人將其視為參加社會實踐、提高自身能力的機(jī)會。許多學(xué)校也積極鼓勵大學(xué)生多接觸社會、了解社會，一方面可以把學(xué)到的理論知識應(yīng)用到實踐中去，提高各方面的能力；另一方面可以積累工作經(jīng)驗對日后的就業(yè)大有裨益。進(jìn)行社會實踐，最理想的就是找到與本專業(yè)對口單位進(jìn)行實習(xí)，從而提高自己的實戰(zhàn)水平，同時可以將課本知識在實踐中得到運(yùn)用，從而更好的指導(dǎo)自己今后的學(xué)習(xí)。但是作為一名尚未畢業(yè)的大學(xué)生，由于本身具備的專業(yè)知識還十分的有限，所以我選擇了打散工作為第一次社會實踐的方式。目的在于熟悉社會。就職業(yè)本身而言，并無高低貴賤之分，存在即為合理。通過短短幾天的打工經(jīng)歷可以讓長期處于校園的我們對社會有一種更直觀的認(rèn)識。實踐過程：自從走進(jìn)了大學(xué)，就業(yè)問題就似乎總是圍繞在我們的身邊，成了說不完的話題。在現(xiàn)今社會，招聘會上的大字報都總寫著“有經(jīng)驗者優(yōu)先”，可還在校園里面的我們這班學(xué)子社會經(jīng)驗又會擁有多少呢？為了拓展自身的知識面，擴(kuò)大與社會的接觸面，增加個人在社會競爭中的經(jīng)驗，鍛煉和提高自己的能力，以便在以后畢業(yè)后能真正真正走入社會，能夠適應(yīng)國內(nèi)外的經(jīng)濟(jì)形勢的變化，并且能夠在生活和工作中很好地處理各方面的問題，我開始了我這個假期的社會實踐-走進(jìn)天源休閑餐廳。實踐，就是把我們在學(xué)校所學(xué)的理論知識，運(yùn)用到客觀實際中去，使自己所學(xué)的理論知識有用武之地。只學(xué)不實踐，那么所學(xué)的就等于零。理論應(yīng)該與實踐相結(jié)合。另一方面，實踐可為以后找工作打基礎(chǔ)。通過這段時間的實習(xí)，學(xué)到一些在學(xué)校里學(xué)不到的東西。因為環(huán)境的不同，接觸的人與事不同，從中所學(xué)的東西自然就不一樣了。要學(xué)會從實踐中學(xué)習(xí)，從學(xué)習(xí)中實踐。而且在中國的經(jīng)濟(jì)飛速發(fā)展，又加入了世貿(mào)，國內(nèi)外經(jīng)濟(jì)日趨變化，每天都不斷有新的東西涌現(xiàn)，在擁有了越來越多的機(jī)會的同時，也有了更多的挑戰(zhàn)，前天才剛學(xué)到的知識可能在今天就已經(jīng)被淘汰掉了，中國的經(jīng)濟(jì)越和外面接軌，對于人才的要求就會越來越高，我們不只要學(xué)好學(xué)校里所學(xué)到的知識，還要不斷從生活中，實踐中學(xué)其他知識，不斷地從各方面武裝自已，才能在競爭中突出自已，表現(xiàn)自已。在餐廳里,別人一眼就能把我人出是一名正在讀書的學(xué)生,我問他們?yōu)槭裁?他們總說從我的臉上就能看出來,也許沒有經(jīng)歷過社會的人都有我這種不知名遭遇吧!我并沒有因為我在他們面前沒有經(jīng)驗而退后,我相信我也能做的像他們一樣好.我的工作是在那做傳菜生,每天9點鐘-下午2點再從下午的4點-晚上8:30分上班,雖然時間長了點但,熱情而年輕的我并沒有絲毫的感到過累,我覺得這是一種激勵,明白了人生,感悟了生活,接觸了社會,了解了未來.在餐廳里雖然我是以傳菜為主,但我不時還要做一些工作以外的事情，有時要做一些清潔的工作，在學(xué)校里也許有老師分配說今天做些什么，明天做些什么，但在這里，不一定有人會告訴你這些，你必須自覺地去做，而且要盡自已的努力做到最好，一件工作的效率就會得到別人不同的評價。在學(xué)校，只有學(xué)習(xí)的氛圍，畢竟學(xué)校是學(xué)習(xí)的場所，每一個學(xué)生都在為取得更高的成績而努力。而這里是工作的場所，每個人都會為了獲得更多的報酬而努力，無論是學(xué)習(xí)還是工作，都存在著競爭，在競爭中就要不斷學(xué)習(xí)別人先進(jìn)的地方，也要不斷學(xué)習(xí)別人怎樣做人，以提高自已的能力！記得老師曾經(jīng)說過大學(xué)是一個小社會，但我總覺得校園里總少不了那份純真，那份真誠，盡管是大學(xué)高校，學(xué)生還終歸保持著學(xué)生的身份。而走進(jìn)企業(yè)，接觸各種各樣的客戶、同事、上司等等，關(guān)系復(fù)雜，但我得去面對我從未面對過的一切。記得在我校舉行的招聘會上所反映出來的其中一個問題是，學(xué)生的實際操作能力與在校理論學(xué)習(xí)有一定的差距。在這次實踐中，這一點我感受很深。在學(xué)校，理論的學(xué)習(xí)很多，而且是多方面的，幾乎是面面俱到；而在實際工作中，可能會遇到書本上沒學(xué)到的，又可能是書本上的知識一點都用不上的情況。或許工作中運(yùn)用到的只是很簡單的問題，只要套公式似的就能完成一項任務(wù)。有時候我會埋怨，實際操作這么簡單，但為什么書本上的知識讓人學(xué)得這么吃力呢？這是社會與學(xué)校脫軌了嗎？也許老師是正確的，雖然大學(xué)生生活不像踏入社會，但是總算是社會的一個部分，這是不可否認(rèn)的事實。但是有時也要感謝老師孜孜不倦地教導(dǎo)，有些問題有了有課堂上地認(rèn)真消化，有平時作業(yè)作補(bǔ)充，我比一部人具有更高的起點，有了更多的知識層面去應(yīng)付各種工作上的問題，作為一名大學(xué)生，應(yīng)該懂得與社會上各方面的人交往，處理社會上所發(fā)生的各方面的事情，這就意味著大學(xué)生要注意到社會實踐，社會實踐必不可少。畢竟，很快我就不再是一名大學(xué)生，而是社會中的一分子，要與社會交流，為社會做貢獻(xiàn)。只懂得紙上談兵是遠(yuǎn)遠(yuǎn)不及的，以后的人生旅途是漫長的，為了鍛煉自己成為一名合格的、對社會有用的人才.很多在學(xué)校讀書的人都說寧愿