学生信息管理系统,拖拖拉拉历时十二天,终于完工了,我人生中的第一个系统,虽然有源码的参照,但是,毕竟花费了很多的精力和时间才完成。
第一次做一个完整的系统,从需求分析开始,分析了整个系统的所有功能,主要分为5个部分:用户管理、学籍管理、班级管理、课程设置、成绩管理,每一部分又有相应的添加、修改、查询,看似功能单一,但在代码实践的过程中,也充分验证了“想和做是两码事”。
开始的时候自己有很多的想法,总想改改这,改改那,可是真改了,就发现这个系统,牵一发而动全身,于是有一部分想法便被搁浅了。
比如说登录界面,当同一个用户名错误登录三次以后,便无法登录系统,登录错误时,只提示密码错误,当时自己想的时候,想着在登录窗体加上登录次数提醒,当用户第一次错误登录时,提示用户“错误登录一次,还有两次机会”,依此类推……但等到真正去敲代码的时候,才发现,哪有那么简单呀,不是说麻烦,只是我现在接触的东西还太少,有种迫不及待想要去学习的感觉,想多学点,会得再多一点……
整个系统做下来,很多东西都是相通的,一个功能一个功能地敲下来,发现并没有花费多少时间,只要清楚地知道每一个功能所发挥的作用,代码实现起来也变得容易多了,说到底,就是一些添加记录、修改记录、查询记录,除了这些,还是这些。说道真正的代码,无非是几个函数,几条select语句,几个if语句……
Private Sub cmdOK_Click() Dim txtSQL As String Dim rst As ADODB.Recordset Dim MsgText As String If Trim(txtClassNo.Text = "") Then MsgBox "班号不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告" txtClassNo.SetFocus Exit Sub End If If Trim(comboGrade.Text = "") Then MsgBox "年级不能为空,请重新选择!", vbOKOnly + vbExclamation, "警告" comboGrade.SetFocus Exit Sub End If If Trim(txtDirector.Text = "") Then MsgBox "班主任不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告" txtClassNo.SetFocus Exit Sub End If If Trim(txtClassroom.Text = "") Then MsgBox "教室不能为空,请重新输入!", vbOKOnly + vbExclamation, "警告" txtClassroom.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtClassNo.Text)) Then MsgBox "班号必须为数字!", vbOKOnly + vbExclamation, "警告" txtClassNo.SetFocus Exit Sub End If txtSQL = "select * from class_info" Set rst = ExecuteSQL(txtSQL, MsgText) If Not (rst.BOF And rst.EOF) Then rst.MoveNext End If While (rst.EOF = False) If Trim(rst.Fields(0)) = Trim(txtClassNo.Text) Then MsgBox "此记录已经存在!", vbOKOnly + vbExclamation, "警告" txtClassNo.Text = "" txtClassNo.SetFocus Else rst.MoveNext End If Wend rst.AddNew rst.Fields(0) = Trim(txtClassNo.Text) rst.Fields(1) = Trim(comboGrade.Text) rst.Fields(2) = Trim(txtDirector.Text) rst.Fields(3) = Trim(txtClassroom.Text) rst.Update rst.Close Me.Hide MsgBox "添加班级信息成功!", vbOKOnly + vbExclamation, "添加成功" End Sub
每一天,我都会记录一下自己做了多少,记录下每天的感受,每天要拿出时间来听英语,要处理CEO的各种事务,所以,做这个系统的时间少之又少,感觉每天都是挤时间来做,有的时候一天下来,发现自己一个窗体都没有写完,就利用晚上的时间再写一点,为了保证自己的休息时间,晚上回去的时候,我通常只拿着本,不拿电池,电脑没电了,就可以宣告这一天完美的结束了。
你知道吗?当我打包发布以后,去五楼打开了三台电脑,安装完,多用户同时登录,系统与数据库分离、异地访问……全部实现时的那种兴奋,是任何一种物质奖励都无法取代的。
很多事情,只要我们去做,去努力,就一定会有回报。我相信“守得云开见日明”~~~
坚持着去做,没有什么不可能。