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

#Text3.SetFocusElseFonn3.Textl=Form3.DataLRecoidset（"姓名”）Fonn3.Text2=Fonn3.DataLRecoidset（"身份證號”）Form3.Text3=Form3.DataLRecordset（"性別”）Fonn3.Text4=Fonn3.DataLRecoidset（“班級”）Form3.Text5=Form3.DataLRecoidset（"籍貫”）Fonn3.Text6=Form3.DataLRecoidset（"專業(yè)”）UnloadFonn4Text3.Text=EndIfEndIfEndSubPrivateSubConmiand2-Click（）UnloadForm4Forni3.ShowEndSubPrivateSublinagel_Click（）EndSub6.2用戶繳費信息查詢源代碼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é)號”）Form6.Text3=Form6.DataLRecordset（"性別”）Form6.Text4=Fonn6.DataLRecoidset（"繳費情況”）Form6.Text5=Form6.DataLRecordset（“班級”）Form6.Text6=Fonn6.DataLRecoidset（"身份證號”）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é)號”）Form6.Text3=Fonn6.DataLRecoidset（"性別”）Form6.Text4=Fonn6.DataLRecoidset（"繳費情況”）Form6.Text5=Fonn6.DataLRecoidset（“班級”）Form6.Text6=Fonn6.DataLRecoidset（"身份證號”）UnloadForm5Text2.Text=EndIfEndIfEndSubPrivateSubConmiand2-Click（）UnloadForni5Form6.ShowEndSub7.設(shè)計心得通過本次課程設(shè)計，我了解到了我們平時的實驗根本和做一個完整的系統(tǒng)差的實在太遠，我們平時的實驗固然很重要，這是我們對基本知識點的一次次的鞏固，這是為我們做一次完整系統(tǒng)的基礎(chǔ)工作，是必不可少的一個環(huán)節(jié)。但是真正要體驗一下做系統(tǒng)的快感，課程設(shè)計是個不錯的選擇。我們往往所認為的編代碼在課程設(shè)計里面所占的比例其實很小，真正要做的東西其實遠遠不止敲代碼。這也是我們的專業(yè)所要做的，我們的專業(yè)會的不僅僅是敲代碼,我們要做的是設(shè)計,不是打字員。此外我認為在做系統(tǒng)是要充分利用各種資源，要會運用各種知識，要靈活掌握所學(xué)