新生入学管理系统

#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（"专业”）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（“学号”）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（“学号”）Form6.Text3=Fonn6.DataLRecoidset（"性别”）Form6.Text4=Fonn6.DataLRecoidset（"缴费情况”）Form6.Text5=Fonn6.DataLRecoidset（“班级”）Form6.Text6=Fonn6.DataLRecoidset（"身份证号”）UnloadForm5Text2.Text=EndIfEndIfEndSubPrivateSubConmiand2-Click（）UnloadForni5Form6.ShowEndSub7.设计心得通过本次课程设计，我了解到了我们平时的实验根本和做一个完整的系统差的实在太远，我们平时的实验固然很重要，这是我们对基本知识点的一次次的巩固，这是为我们做一次完整系统的基础工作，是必不可少的一个环节。但是真正要体验一下做系统的快感，课程设计是个不错的选择。我们往往所认为的编代码在课程设计里面所占的比例其实很小，真正要做的东西其实远远不止敲代码。这也是我们的专业所要做的，我们的专业会的不仅仅是敲代码,我们要做的是设计,不是打字员。此外我认为在做系统是要充分利用各种资源，要会运用各种知识，要灵活掌握所学