机房收费系统之模块的使用

学生信息管理系统和机房收费系统都用到了模块，对于模块，有的东西还是一知半解，但是也有一部分理解了，跟大家分享一下。

在组合查询中，我们需要将文本框中输入的内容转化成数据库可以识别的内容。然后有一些内容是重复的，所以在模块中使用一些代码我们就可以适当地减少一些冗余并且实现转化的功能。代码如下：

Public Function field(a As String) As String

Select Case a

Case "学号"
field = "studentno"
Case "姓名"
field = "studentname"
Case "卡号"
field = "cardno"
Case "金额"
field = "cash"
Case "系别"
field = "department"
Case "年级"
field = "grade"
Case "班级"
field = "class"
Case "性别"
field = "sex"
Case "状态"
field = "status"

End Select

End Function

在组合查询中我们还有清空的一个功能，在模块中通过几行代码也可以将其实现。模块中写：

Public Function da(frm)

Dim ctrl As Control

For Each ctrl In frm.Controls
If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox
ctrl.Text = ""
End If

If TypeOf ctrl Is ComboBox Then
ctrl.Text = ""
End If

Next

End Function

窗体中写：

Call da（Me）

当然还有一个主窗体的转换的过程，我们也可以通过模块来实现。具体的sub main的意思及使用方法参见我的博客：sub main 的使用

代码如下：

Sub main()

Dim fLogin As New frmLogin
fLogin.Show vbModal

If fLogin.LoginSucceeded Then
End
End If

Unload fLogin
Dim fMainForm As frmMain
Set fMainForm = New frmMain
fMainForm.Show

End Sub

总结:百科中对模块给出了如下的解释：在程序设计中，为完成某一功能所需的一段程序或子程序；或指能由编译程序、装配程序等处理的独立程序单位；或指大型软件系统的一部分。我认为这就像小学时候学的合并同类项一样，讲同种类型的东西拿出来以减少代码的冗余。

一点愚见，望大家不吝赐教。