UMV平台开发函数

时　间:2009-12-21 15:54:31
作　者:影子灬   ID：8218  城市：深圳
摘　要:UMV平台开发函数
正　文:

UMV平台开发函数

一、 自增序号
    AccHelp_AutoID 自增序号函数
    功能： AccHelp_AutoID 函数可用于自动编号，例如： B00001 B00002 B00003 ……
    语法： AccHelp_AutoID(prefixion As String, IDlength As Integer, tblName As String, fldName As String)
prefixion 编码前缀 , 如果不需要前缀，可用 "" 代替，如 AccHelp_AutoID("",5," 表名称 "," 字段名称 ")
IDlength 编码位数 tblName 表名称 fldName 自增序号的字段名称
    示例：
    '假定我们有表 tbl 部门代码表，其中有字段 DepaID( 部门代码 )
    Debug.Print Call AccHelp_AutoID("D",2,"tbl 部门代码表 ","DepaID")
'则产生的结果就是： ' D01 ' D02 ' D03
二、 定位记录
    Acchelp_FindNumRecord 函数 ( 定位数字型 )
    功能： Acchelp_FindNumRecord 函数可用于定位某条记录。
    语法： Acchelp_FindNumRecord (n) ，比如 n=3 时，即可以定位 3 这条记录。
    示例：
    '在修改窗体的关闭事件中写下列代码：
    '假定当前修改的 ID 变量是 RecID, 则
    Forms!usysfrmMain!frmChild.Form.ID.SetFocus' 这个 ID 要根据你子窗体中的实际字段名称而定
    Acchelp_FindNumRecord (RecID)
    Acchelp_FindStrRecord 函数 ( 定位文本型 )
    功能： Acchelp_FindStrRecord 函数可用于定位某条记录。
    语法： Acchelp_FindStrRecord (M) ，比如 M=H0003 时，即可以定位 H0003 这条记录 ,M 为文本型。
    示例：
    '在修改窗体的关闭事件中写下列代码：
    '假定当前修改的 ID 变量是 StrID, 则
    Forms!usysfrmMain!frmChild.Form.ID.SetFocus' 这个 ID 要根据你子窗体中的实际字段名称而定
Acchelp_FindStrRecord (StrID)
三、 获得字段的名称
    Acchelp_GetColumnName 函数
    功能： Acchelp_GetColumnName 函数可用于获得表或查询中的字段名称，用分号隔开，用于组合框或列表框的行来源，组合框或列表框的行来源类型必须选择值列表。
    语法： Acchelp_GetColumnName(" 表或者查询名称 ")
    示例 ：
Dim strSQL as string
strSQL = Acchelp_GetColumnName("tbl 销售明细 ")
Debug.Print strSQL
四、 判断生日到期天数
    功能： Acchelp_Birdays 函数获得离生日到期天数。
    语法： Acchelp_Birdays( 出生日期 , 目标日期 )
    示例：
    '假定某人的出生日期为 1989-2-1 , 目标日期为 2006-3-3
Dim x as Integer
Dim sDate as Date
Dim eDate as Date
sDate = # 2/1/1989 #
eDate =#3/3/2006#
x =Acchelp_Birdays(sDate,eDate)
Debug.Print x
五、 获得年龄
    Acchelp_ages 函数
    功能： Acchelp_ages 函数获得年龄。
    语法： Acchelp_ages( 出生日期 , 当前日期 )
    示例：
    '假定某人的出生日期为 1989-2-1
Dim x as Integer
Dim sDate as Date
sDate = # 2/1/1989 #
x =Acchelp_Birdays(sDate,Date)
Debug.Print x
六、 判断表是否存在
    fExistTable 函数
    功能： fExistTable 函数可用于判断当前数据库中是否存在某个表。
    语法： fExistTable(" 表名称 ") ，如果返回值为 True, 则表示该表存在，如果返回值为 False, 则表示该表不存在。
    示例：
If fExistTable("tbl 销售明细 ")=True Then
     Msgbox " 该表存在 "
    Else
     Msgbox " 该表不存在 "
End If
七、 判断表中是否存在记录
    功能： CheckRecords 函数可用于判断某表中是否存在记录。
    语法： CheckRecords(" 表名称 ") ，如果返回值为 True, 则表示该表有至少一条记录，如果返回值为 False, 则表示该表没有记录。
    示例：
    '我们假定有表 tbl 销售明细
If CheckRecords("tbl 销售明细 ")=True Then
     Msgbox " 该表存在记录 "
   Else
     Msgbox " 该表不存在记录 "
End If
八、 删除记录
    AccHelp_DeleteFldNumRow 函数（删除数字型）
    功能： AccHelp_DeleteFldNumRow 函数根据某字段条件删除某表中某个字段符合条件 ( 必须是长整型数字 ) 的记录 , 一般用于根据序号来删除表中的一条记录，亦可删除满足条件的多条记录。
    语法： AccHelp_DeleteFldNumRow(" 表名称 "," 条件字段名称 ", 数字型变量 )
    示例：
    '下面的代码将删除表 tblSale 中字段 ID 中的值等于 100 的记录
    Call AccHelp_DeleteFldNumRow("tblSale", "ID", 100)
    AccHelp_DeleteFldStrRow 函数（删除文本型）
    功能： AccHelp_DeleteFldStrRow 函数根据某字段条件删除某表中某个字段符合条件 ( 必须是文本型 ) 的记录 , 一般用于根据文本来删除表中的一条记录，亦可删除满足条件的多条记录。
    语法： AccHelp_DeleteFldStrRow(" 表名称 "," 条件字段名称 ", 文本型变量 ) 。
    示例：
    '下面的代码将删除表 tblSale 中字段 conID 中的值等于 S00005 的记录
Call AccHelp_DeleteFldStrRow("tblSale", "conId", "S00005")
九、 判断表中字段存在某值
    功能： Acchelp_StrDataIsExist 函数可用于判断某表中某个文本型字段是否存在某个值。
    语法： Acchelp_StrDataIsExist(" 表名称 "," 字段名称 "," 文本值 ") ，如果返回值为 True, 则表示该表该字段中存在这个文本值，如果返回值为 False, 则表示不存在。
    示例：
    '我们假定有表 sys_tblMenu
   If Acchelp_StrDataIsExist("sys_tblMenu", "menuName", " 菜单二 ") = True Then
        MsgBox "sys_tblMenu 表中 menuID 字段中存在菜单二 "
     Else
        MsgBox "sys_tblMenu 表中 menuID 字段中不存在菜单二 "
    End If
Acchelp_NumDataIsExist 函数
    功能： Acchelp_NumDataIsExist 函数可用于判断某表中某个数字型字段是否存在某个值。
    语法： Acchelp_NumDataIsExist(" 表名称 "," 字段名称 ", 数值 ) ，如果返回值为 True, 则表示该表该字段中存在这个文本值，如果返回值为 False, 则表示不存在。
    示例：
    '我们假定有表 sys_tblMenu
   If Acchelp_NumDataIsExist("sys_tblMenu", "menuID", 1) = True Then
        MsgBox "sys_tblMenu 表中 menuID 字段中存在 1"
     Else
        MsgBox "sys_tblMenu 表中 menuID 字段中不存在 1"
   End If