 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
前几天收到一份MAIL，说上文《取数据窗口发生变化的一个函数》写的函数中代码没放全，仔细看了一下，是用了另外一些函数，在此表示道歉啦。现在补全那些函数：of_strip() , of_getitem() , of_getstring() , uf_isnull()，不同的函数用不同颜色区分开了。 各位看官有爱好自己看着改改吧…… :) /*------------------------------------------------------------------------------ Function: public u_dw.of_Strip Returns: String Parameters: value String a_szarg Description: -------------------------------------------------*/ Integer nLength, nPos nLength = Len( a_szArg) For nPos = 1 To nLength Choose Case Mid( a_szArg, nPos, 1) Case "~t", "~r", "~n", \\\'"\\\',":" a_szArg = Replace( a_szArg, nPos, 2, " ") End ChooseNext Return Trim( a_szArg) /*------------------------------------------------------------------------------ Function: public u_dw.of_Getitem Returns: Any Parameters: value DataStore ads_target value Integer ai_row value Integer ai_col value String as_type Description: --------------------------------------------------------------*/ Choose Case Left(as_type,5) Case Left("char(n)",5) return ads_target.GetItemString(ai_row,ai_col) Case Left("date",5) return ads_target.GetItemDate(ai_row,ai_col) Case Left("datetime",5) return ads_target.GetItemDateTime(ai_row,ai_col) Case Left("decimal",5) return ads_target.GetItemDecimal(ai_row,ai_col) Case "int","long",Left("number",5),"real","ulong" return ads_target.GetItemNumber(ai_row,ai_col)End Choose /*------------------------------------------------------------------------------ Function: public u_dw.of_Getitem Returns: Any Parameters: value Integer ai_row value Integer ai_col value String as_type Description: ---------------------------------------------------------------------*/ Choose Case Left(as_type,5) Case Left("char(n)",5) return this.GetItemString(ai_row,ai_col) Case Left("date",5) return this.GetItemDate(ai_row,ai_col) Case Left("datetime",5) return this.GetItemDateTime(ai_row,ai_col) Case Left("decimal",5) return this.GetItemDecimal(ai_row,ai_col) Case "int","long",Left("number",5),"real","ulong" return this.GetItemNumber(ai_row,ai_col)End Choose /*------------------------------------------------------------------------------ Function: public u_dw.of_Getstring Returns: String Parameters: value Any aa_data value String as_type Description: ------------------------------------------------------*/ if isNull(aa_data) then return "[Null]" Choose Case Left(as_type,5) Case Left("char(n)",5) return "\\\'"+string(aa_data)+"\\\'" Case Left("date",5),Left("datetime",5),Left("decimal",5),"int","long",Left("number",5),"real","ulong" return string(aa_data)End Choose /*------------------------------------------------------------------------------ Function: public n_functions.uf_Isnull Returns: Boolean Parameters: value String as_str Description: ---------------------------------------------*/ if isnull(as_str) or trim(as_str) = "" then return trueelse return falseend if另外说一句，假如大家有什么建议或者叫个好，扔个鸡蛋之类的话，请直接在评论上给出吧，因为我的MAIL中常常会自动把邮件转到垃圾信箱中，上面提到的邮件就是这种情形，不好意思啊……还算好，我在删除垃圾邮件之前，看了一眼，呵呵！ 总而言之，欢迎大家评论，也让我知道有同志们关注，这样，我会放出更多的东东，小生在此谢过先！ 返回类别: 教程 上一教程: SQL SERVER 和 ACCESS 操作数据库结构SQL语句 下一教程: 取得拼音字头的存储过程 您可以阅读与"取数据窗口发生变化的一个函数(补充篇)"相关的教程: · 游标操作时进行UPDATE应注重的一个问题 · 一个中文转化UNICODE底的函数 · 从SQL中的一个表中导出HTML文件表格 · 数据库转化的问题 · 使用SQL Server 7.0建立一个安全的数据库的最好方式是 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
