g_fun.bas

一个vb编的计算机机房管理系统

Attribute VB_Name = "g_fun"
Option Explicit

Public Function setNotNull(ByVal str As Variant, Optional ByVal dValue = "")
    If IsNull(str) Then
        setNotNull = dValue
    Else
        setNotNull = str
    End If
End Function
Public Function setValue(ByVal str As Variant, Optional ByVal dValue = "")
    str = setNotNull(str)
    If Trim(CStr(str)) = "" Then
        str = dValue
    End If
    setValue = str
End Function
Public Sub resetForm(ByVal frm As VB.Form)
'把页面里面的编辑框清空
    Dim obj As VB.Control
    For Each obj In frm.Controls
        If TypeName(obj) = "TextBox" Then
            If obj.Enabled Then
                obj.Text = ""
            End If
        End If
        If TypeName(obj) = "ComboBox" Then
            If obj.Enabled Then
                If obj.ListCount > 0 Then
                    obj.ListIndex = 0
                End If
            End If
        End If
    Next
End Sub