知识大全在PB中如何实现数据模糊查询（三）

Posted 2022-07-16 函数

篇首语：智者不为愚者谋，勇者不为怯者死。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在PB中如何实现数据模糊查询（三）相关的知识，希望对你有一定的参考价值。

在PB中如何实现数据模糊查询（三） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

函数 public function string wf_getywname (string hzname)函数

功能返回表名列名如 department d_id

public function string wf_getywtype (string hzname)函数

功能返回列类型

注释

（） f_getoken()函数代码如下

public function string wf_dateconvert (string svalue)函数

功能见程序中注释

string syear smonth sday date idate idate = date(svalue) syear = string(year(idate)) smonth = string(month(idate)) sday = string(day(idate)) svalue = syear + + smonth + + sday return svalue end function public function string wf_datetime (string inputvalue) inputvalue = trim(inputvalue) integer position string bef aft /* bef 为日期 aft为时间*/ position = pos(inputvalue ) if position = then inputvalue += : : position = pos(inputvalue ) if position = then return error else bef = left(inputvalue position ) aft = right(inputvalue len(inputvalue) position) if (not isdate(bef)) or (not istime(aft)) then return error end if end if //bef = wf_dateconvert(bef) //return bef + + aft string syear smonth sday date idate idate = date(bef) syear = string(year(idate)) smonth = right( +string(month(idate)) ) sday = right( +string(day(idate)) ) return syear+smonth+sday end function public subroutine wf_setcolumn (datawindow dw_ datawindow dw_ ) pfc_n_cst_string lnv_string String scol stable_col String shz syw stype stable Integer i row If Not IsValid(dw_ ) Then Return If Not IsValid(dw_ ) Then Return dw_ ReSet() For i = To long(dw_ Object DataWindow Column Count) scol = dw_ Describe( # + String(i) + Name ) //列名(可变) stable_col = dw_ Describe(scol + dbName ) //所在表列名(OK) stable = lnv_string of_gettoken(stable_col ) //所在表 syw = stable_col //列名(不变 OK) shz = trim(dw_ Describe(scol + _t Text )) //中文名 stype = dw_ Describe(scol + ColType ) //列类型 if dw_ Describe(scol + Type ) = column & and shz <> ! and shz <> ? then shz = lnv_string of_globalreplace(shz ) //去掉单引号 shz = lnv_string of_globalreplace(shz ) //去掉双引号 shz = lnv_string of_globalreplace(shz ~r~n _ ) //去掉换行符 shz = lnv_string of_globalreplace(shz _ ) //去掉空格 shz = lnv_string of_globalreplace(shz : ) //去掉冒号 shz = lnv_string of_globalreplace(shz ) //去掉冒号 row = dw_ InsertRow( ) dw_ object data[row ] = shz dw_ object data[row ] = syw dw_ object data[row ] = stype dw_ object data[row ] = stable end if Next public function long wf_min (long a long b long c)函数

功能给定三个数a b c 如果a b c均为则返回 ;否则返回a b c中不为的数中的最小值例 : a = b = c = 则返回例 : a = b = c = 则返回例 : a = b = c = 则返回 long b long c)函数

cha138/Article/program/SQL/201311/16302

知识大全 在PB中如何实现数据模糊查询（三）

知识大全在PB中如何实现数据模糊查询（三）