新生入學(xué)管理系統(tǒng)

#Text3.SetFocusElseFonn3.Textl=Form3.DataLRecoidset（"姓名”）Fonn3.Text2=Fonn3.DataLRecoidset（"身份證號(hào)”）Form3.Text3=Form3.DataLRecordset（"性別”）Fonn3.Text4=Fonn3.DataLRecoidset（“班級(jí)”）Form3.Text5=Form3.DataLRecoidset（"籍貫”）Fonn3.Text6=Form3.DataLRecoidset（"專業(yè)”）UnloadFonn4Text3.Text=EndIfEndIfEndSubPrivateSubConmiand2-Click（）UnloadForm4Forni3.ShowEndSubPrivateSublinagel_Click（）EndSub6.2用戶繳費(fèi)信息查詢源代碼PrivateSubCommandl_Click（）IfTextl.Text<>"nThenFonn6.Data1.Recordset.MoveFirstFonn6.DataLRecoidset?FindFirst（"姓名=”& &Textl&）IfForm6.Data1.Recordset.NoMatchThenMsgBox（"沒有匹配的記錄，請重新輸入！"）Textl.SetFocusElseForm6.Textl=Form6.Datal.Recordset（''姓名"）Form6.Text2=Form6.DataLRecordset（“學(xué)號(hào)”）Form6.Text3=Form6.DataLRecordset（"性別”）Form6.Text4=Fonn6.DataLRecoidset（"繳費(fèi)情況”）Form6.Text5=Form6.DataLRecordset（“班級(jí)”）Form6.Text6=Fonn6.DataLRecoidset（"身份證號(hào)”）UnloadForm5Textl.Text=HilEndIfElseIfText2.Text<>H"ThenFoim6.Data1.Recordset.MoveFirstFoim6.Data1.Recoidset.FmdFust 9=n& &Text2&）IfForm3.Data1.Recordset.NoMatchThenMsgBox（"沒有匹配的記錄，請重新輸入！"）Text2.SetFocusElseForm6.Textl=Fonn6.DataLRecoLdset（"姓名”）Form6.Text2=Fonn6.DataLRecoidset（“學(xué)號(hào)”）Form6.Text3=Fonn6.DataLRecoidset（"性別”）Form6.Text4=Fonn6.DataLRecoidset（"繳費(fèi)情況”）Form6.Text5=Fonn6.DataLRecoidset（“班級(jí)”）Form6.Text6=Fonn6.DataLRecoidset（"身份證號(hào)”）UnloadForm5Text2.Text=EndIfEndIfEndSubPrivateSubConmiand2-Click（）UnloadForni5Form6.ShowEndSub7.設(shè)計(jì)心得通過本次課程設(shè)計(jì)，我了解到了我們平時(shí)的實(shí)驗(yàn)根本和做一個(gè)完整的系統(tǒng)差的實(shí)在太遠(yuǎn)，我們平時(shí)的實(shí)驗(yàn)固然很重要，這是我們對基本知識(shí)點(diǎn)的一次次的鞏固，這是為我們做一次完整系統(tǒng)的基礎(chǔ)工作，是必不可少的一個(gè)環(huán)節(jié)。但是真正要體驗(yàn)一下做系統(tǒng)的快感，課程設(shè)計(jì)是個(gè)不錯(cuò)的選擇。我們往往所認(rèn)為的編代碼在課程設(shè)計(jì)里面所占的比例其實(shí)很小，真正要做的東西其實(shí)遠(yuǎn)遠(yuǎn)不止敲代碼。這也是我們的專業(yè)所要做的，我們的專業(yè)會(huì)的不僅僅是敲代碼,我們要做的是設(shè)計(jì),不是打字員。此外我認(rèn)為在做系統(tǒng)是要充分利用各種資源，要會(huì)運(yùn)用各種知識(shí)，要靈活掌握所學(xué)