是否为空?一开始我是用的isnull 来逐个判断的,但是重复的地方的确很多。我们秉着一个重复就要努力抽象的原则,同时争取相似的功能用不同的实现方式。今天算是做个小结,抛砖引玉,希望大家多多的提宝贵意见。
抽象,是为了实现更好的代码复用,也便于日后的维护。希望在做合作版的时候,能对这些问题有一个更加深刻的理解。
判断用户名是否存在
这可以单独写一个方法或是小类。
判断是否为空
以下是参照高晓青师傅的博客写的。
''' <summary> ''' 判断窗体上所有控件是否为空 ''' </summary> ''' <remarks>Boolean</remarks> Public Class IsRight Public Function isNull(log As Windows.Forms.Control.ControlCollection) As Boolean Dim ConObject As New Control Dim flag As Boolean flag = True '默认所有控件内部都有值 For Each ConObject In log '利用TypeOf 查看空间类型 If TypeOf (ConObject) Is TextBox Then If ConObject.Text.Trim = "" Then 'Tag代表当前为空的控件 MsgBox(ConObject.Tag.ToString + "不能为空,请输入完整",vbOKOnly,"提示") ConObject.Focus() flag = False Return flag Exit Function End If End If Next Return flag End Function ''' <summary> ''' 判断是否为数字 ''' </summary> ''' <param name="log"></param> ''' <returns></returns> ''' <remarks>Boolean</remarks> Public Function IsNumberic(log As Windows.Forms.Control.ControlCollection) As Boolean Dim ConObject As New Control Dim flag As Boolean flag = True '默认所有控件内部都有值 For Each ConObject In log '利用TypeOf 查看空间类型 If TypeOf (ConObject) Is TextBox Then If IsNumeric(ConObject.Text) = False Then 'Tag代表当前为空的控件 MsgBox(ConObject.Tag.ToString + +" " + "请输入数字","提示") ConObject.Focus() flag = False Return flag Exit Function End If End If Next Return flag End Function
这样一个类,能循环判断所有的控件是否为空,或是否为数字。当然,仔细看了上面一个代码你就会了解到,我们还需要在设计空间的时候,将每个空间写上它们自己的名字,方便给出精准的提示。
这个类直接放在U层即可。
那我们看看它的客户端调用时这样的。
Dim MyObject As New IsRight Dim MyObjectNum As New IsRight If MyObject.isNull(Controls) = False Then Exit Sub End If If MyObjectNum.IsNumberic(Controls) = False Then Exit Sub End If
获取数据库时间
U层
Public Class GetTime Shared Function GetDate() As Date Dim getDate1 As New BLL.TimeBLL Return getDate1.GetDate End Function Shared Function GetTime() As Date Dim getTime1 As New BLL.TimeBLL Return getTime1.GetTime End Function End Class
B层只是个传递,并无实质性内容。我们看看D层的代码。你能一眼找到关键的两句么
''' <summary> ''' 获取日期 ''' </summary> ''' <returns></returns> ''' <remarks></remarks> Public Function GetDate() As Date Implements ITime.GetDate Dim sql As String '定义字符串变量sql 用于存放要执行的语句 sql = "Select CONVERT(varchar(100),GETDATE(),23) " '获取日期的代码 Dim cmdType As CommandType = CommandType.Text 'commandType 指定如何解释命令字符串 Dim sqlHelper As New Global.sqlHelper.sqlHelper '实例化sqlHelper这个类的对象 Dim dt As New DataTable Dim sqlDate As String dt = sqlHelper.ExecSelectNo(sql,CommandType.Text) sqlDate = dt.Rows(0)(0).ToString Return sqlDate End Function ''' <summary> ''' 获取时间 ''' </summary> ''' <returns></returns> ''' <remarks></remarks> Public Function GetTime() As Date Implements ITime.GetTime Dim sql As String '定义字符串变量sql 用于存放要执行的语句 sql = "Select CONVERT(varchar(100),24) " Dim cmdType As CommandType = CommandType.Text 'commandType 指定如何解释命令字符串 Dim Parameter As sqlParameter() 'sqlParameter表示 sqlCommand 的参数,也可以是它到 DataSet 列的映射 Parameter = {} Dim sqlHelper As New Global.sqlHelper.sqlHelper '实例化sqlHelper这个类的对象 Dim dt As New DataTable Dim sqlTime As Date dt = sqlHelper.ExecSelectNo(sql,CommandType.Text) sqlTime = dt.Rows(0)(0).ToString Return sqlTime End Function End Class
机房收费系统,是我们自己亲自赋予生命的一个系统。感谢它让我开始对敲代码有了更多的思考。我们有了很大的空间去思考如何让我们的代码更灵活和更健壮。我们从码农开始,会走的越来越远。还是那句话,希望本文能抛砖引玉,你的机房,你是怎么抽象和优化的呢?欢迎各位留下宝贵意见。