李嘉诚说过“富人=接受+学习,穷人=怀疑+拒绝”。尽管米老师也在不断的提起这句话,但自己起初对这句话没有很好的体会,但这段时间借助对学生信息管理系统的学习过程对这句话有了更深的体会。
起初在刚刚接触学生时感觉一切都很陌生,很难,有一种抵触心理,可不学不可以啊,就慢慢开始接受这个现实,从数据库的连接开始一点一点的学习,不知不觉就到了现在,也通过了师傅的验收,回想这段时间感觉自己真的收获到不少知识,最重要的一点是自己对代码已经产生了兴趣,不在想以前一样看见那么多的代码就抵触了。我想这个过程就是接受+学习的过程,只要在以后遇到的每一件有意义的事上都抱着接受+学习的态度,我们一定会成为“富人”。
我的小小总结:(宏观)
1)是如何去敲学生的代码问题:在这一点我做的不好。我是把所有的窗体和代码全部都照着源码来完成的,然后才进行调错美化界面。师傅给出的建议是应该把增删改查分类来完成,开始不会不熟悉可以照着源码敲一个,然后自己看会其中的原理,剩下的相似的功能不要看源码自己分模块来完成,并且不要把代码调错放到最后。这样效果会更好。
1)是如何去敲学生的代码问题:在这一点我做的不好。我是把所有的窗体和代码全部都照着源码来完成的,然后才进行调错美化界面。师傅给出的建议是应该把增删改查分类来完成,开始不会不熟悉可以照着源码敲一个,然后自己看会其中的原理,剩下的相似的功能不要看源码自己分模块来完成,并且不要把代码调错放到最后。这样效果会更好。
2)是数据库的建立问题:在数据库上我也大打折扣了,没有自己重新建数据库而是直接利用了学生中现成的数据库。师傅给出的建议是自己仿照给出的数据库自己去建,这样理解会更好。在接下来的机房收费系统中要注意这一点。
我的小小总结:(微观)
1)如何使日期的输入更方便?
在窗体中加入控件:
工程——引用——
Microsoft ActiveX Da ta Objects 2.8 Library
并添加如下代码:
Private Sub Form_Load()MonthView1.Visible = FalseEnd SubPrivate Sub txtBorndate_Click()MonthView1.Visible = TrueEnd SubPrivate Sub MonthView1_DateClick(ByVal DateClicked As Date)txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.DayMonthView1.Visible = FalseEnd Sub
2)在修改班级信息时,如果按
时,记录会循环显示,很容易使人误认为记录有很多条。如何判断记录到达第一条并当记录到达第一条时就显示提示语“已是第一条记录”?
将源码'Private Sub previousCommand_Click()所有记录循环显示' mrc.MovePrevious' If mrc.BOF Then' mrc.MoveLast' End If' Call viewData''End Sub改为如下代码,通过BOF增加一个判断Private Sub previousCommand_Click() '记录不循环显示mrc.MovePreviousIf mrc.BOF Thenmrc.MoveFirstMsgBox "已是第一条记录"End IfCall viewDataEnd Sub
3)在没有记录的情况下点击修改记录总是跳出错误,如何避免呢?
对EOF,BOF进行判断,即在源代码基础加上加上如下红色语句
Private Sub Form_Load()
Dim txtSQL As StringDim MsgText As StringtxtSQL = "select * from student_Info "Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF And mrc.BOF ThenMsgBox "没有记录可以修改!"Elsemrc.MoveFirstCall viewDatamcbookmark = mrc.Bookmark '做标记mcclean = TrueEnd IfEnd Sub
4)在更改密码时,添加输入旧密码(输入的旧密码与当前登陆的密码进行比较),当输入的旧密码正确时才可以对密码进行更改,增加安全性。
Private Sub cmdOk_Click()Dim txtSQL, MsgText As StringDim mrc As ADODB.RecordsettxtSQL = "select * from user_Info where user_ID = '" & UserName & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Trim(mrc.Fields(1)) = Trim(Text2.Text) ThenIf Trim(Text1(1).Text) <> Trim(Text1(2).Text) ThenMsgBox "密码输入不正确!", vbOKOnly + vbExclamation, "警告"Text1(1).SetFocusText1(1).Text = ""Elsemrc.Fields(1) = Text1(1).Textmrc.Updatemrc.CloseMsgBox "密码修改成功!", vbOKOnly + vbExclamation, "修改密码"Me.HideEnd IfElseMsgBox "输入的旧密码不正确,请重新输入"End IfEnd Sub
5)在添加信息时,当点击添加并添加成功后,添加记录还留在文本框中,为了方便下一次的输入,如何自动清除呢?
Private Sub Command1_Click()Dim ctrl As ControlFor Each ctrl In Me.ControlsIf TypeOf ctrl Is TextBox Thenctrl.Text = ""End IfNextEnd Sub
学生信息管理系统学习总结仍在进行中,加油。不断接受,不断学习,相信我们会是个“富人”!