———记一件小事引起的思考
<span style="font-size:18px;"><strong>txtSQL = "select * from student_Info where cardno = '” & txtCardNo.Text & " ' " Set mrc = ExecuteSQL(txtSQL, MsgText) While (mrc.EOF = False) If mrc.Fields(0) = txtCardNo.Text Then MsgBox "该卡号已经存在,请重新注册!", vbOKOnly + vbExclamation, "警告" txtCardNo.SetFocus txtCardNo.Text = "" Exit Sub Else mrc.MoveNext<span style="white-space:pre"> </span>'对记录集进行遍历,直至循环结束 End If Wend </strong></span>
上面的一段代码是我在敲机房收费系统时,管理员注册用户信息窗体中的一段代码,然而这段代码的作用仅仅是用来判断txtCardNo这个输入的卡号是不是和数据库表student_Info中已有的卡号重名,因为当时学生信息管理系统中有类似的代码,所以我就直接按着那个样子模仿着敲了下来,直到昨天我才真正感悟到我的《SQL数据库视频》真的是白看了,这样的代码实在是过于繁杂。
<span style="font-size:18px;"><strong>txtSQL = "select * from student_Info where cardno = '" & txtCardNo.Text & " ' and status = '使用'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "该卡号已经存在,请重新注册!", vbOKOnly + vbExclamation, "警告" Exit Sub End If</strong></span>
再看看上面的这段代码,与之前的那一段实现的功能是一样的,都是判断用户名是否已经存在,可是仅仅是在txtSQL代码行中添了一个判断的约束 status = '使用' 代码量就从12行变成了6行,这让我真的感到很是震惊,不得不让我对我过去的学习、思考方式进行反省了。
当时在作品展的时候,总是喜欢纯粹靠自己来设计程序,结果代码量很大不说错误还百出。米老师一直强调站在巨人肩膀上的思想,在程序设计中却没有得到运用。其实仅仅靠自己来单干,永远也见识不到大神的世界里的精彩与简单。对于我们来说就是要学会借力,多和比自己牛的人交流,无论是技术还是思想,学会取其长处,和大神的差距也就会慢慢的减小,这样大神玩的东西你也慢慢就会玩了。
------学会借力
不知道多少人有自己的代码本,我想如果能够把这四年来认为无论是自己写的还是别人写的优秀的精彩的代码做个锦集,这绝对是一笔不可估价的财富。它的价值不在于你有了成百上千条的精彩的代码,而是在你今后的职业生涯中让你一直想把你的下一行代码收入代码本中,就像是球王贝利回答记者的问题“我的下一个进球是我生涯中最精彩的进球”一样,我们的下一条代码将是我们最精彩的一行代码。这也是一种调动自己不断去思考、优化程序的一种方法,一种让自己良性循环的方法。
------拥有自己的代码本
结合这次我的这个问题,还有一点,我们的知识网一定要派上用场,我想就是在机房收费系统中,判断卡号是否重复很多人都跟我第一次那样是按着学生信息管理系统套用过来的,代码量复杂不说,运行时还占用大量内存(遍历+嵌套),一个窗体这个就会多个窗体这样(定式思维已经形成),到最后,CPU崩溃。。。。。。所以,结合学生信息管理系统之后的《SQL数据库视频》,对原有代码改进,系统整体就能优化。新的知识慢慢的积累过程中一定要想着去用,用茶壶煮再多的饺子永远都倒不出来,唯一能做的就是换掉茶壶。改变旧的学习方式,编织知识网的同时,更要利用知识网。
------知识网的应用
代码如人生,留意热爱观察生活的人,学习他们的思考方式,我们的代码我们的人生都会变得更加精彩。