Sysbor的专栏

if dw_1.ModifiedCount() + dw_1.deletedcount() > 0 then messagebox("提示","请先保存短信定义表！") return -1end if 

//1.生肖(年份参数：int ls_year  返回参数：string):mid(fill(鼠牛虎兔龙蛇马羊猴鸡狗猪,48),(mod(ls_year -1900,12)+13)*2 -1,2) //2.天干地支(年份参数：int ls_year  返回参数：string):mid(fill(甲乙丙丁戊己庚辛壬癸,40),(mod(ls_year -1924,10)+11)*2 -1

 string ls_string,ls_string_before,ls_string_afterinteger li_tab,li_blank,li_blank_dbcsls_string = trim(sle_1.text)//PB在处理TAB字符不分全角和半角,只用POS就可以,不用POSWli_tab = Pos(ls_string, "~t")DO WHILE li_tab >

TAB字符在用len函数等....计算它的长度时都算做是一个字节的长度. 

/**//***判断。**参数：**        as_string     ----客户输入字符串**返回：**        -1==>该字符串不合法**    1  ==>字符串合法**作者：**        毕中亮**    2007.05.25*/long ll_len,ll_lenw,ll_place,ll_placewlong i,jll_len = len(as_strin

用法Find()函数在进行查找时区分大小写因此当应用程序在某列中查找某个值时大小写匹配的行才是找到的行当应用程序使用循环方式查找满足条件的所有行时要注意不要形成死循环下面是段循环查找满足指定条件行的一个示例long ll_find = 1, ll_endll_end = dw_main.RowCount()ll_find = dw_main.Find(searchstr, ll_find, ll_

//移动窗口到屏幕中心integer li_sw,li_shinteger li_x=1,li_y=1environment lenv//当前窗口无效则返回if isnull(w_main) or not isvalid(w_main) then return //获取屏幕的宽度和高度if getenvironment(lenv)=-1 then return   li_sw = pixelsto

string ls_valuedeclare cursor1 cursor for     SELECT distinct tb_syscfg.c_value     FROM tb_syscfg  (nolock)    WHERE tb_syscfg.c_class = 促销单类型;open cursor1;fetch cursor1 into :ls_value;do while sql

为了方便阅读，大致整理了一下，希望以后能添加更多的进来。未经一一验证，不保证完全好用 ;) 不过大部分应该没有问题，因为很多都是最基本的技巧。1 使DataWindow列只能追加不能修改 如何使DataWindow中的数据只能追加新记录而不能修改，利用 Column 的 Protect 属性可以很方便的做到这一点，方法如下：将每一列的 Protect 属性设置为：If( IsRowNew(), 0

string ld_init,ld_adddw_1.accepttext( )ld_init = string(this.object.compute_3[1] )ld_add = string(this.object.compute_2[1])之前用getitemnumber发现不行，小数点后取不到。

this.object.c_pluno.edit.displayonly = true 控制列的protect属性,其中c_pluno为列名,设置一列为只读 修改TAB的值dw_1.object.列名.TabSequence= 0（建议用这种） 

  /**//*modify bzl 2007-07-12根据身份证号码生成生日和性别*/ String   ls_date,ls_id,ls_sex,ls_month,ls_day,ls_year Date   ld_birthday ls_id = data  If Len(ls_id) = 15 Then       ls_date = Mid(ls_id,7,6)    ls_se

       大多数情况下,您的应用程序将在网络环境下运行。有可能会有多个人同时使用一个程序。在这种情况下使用数据窗口应注意并发控制问题。  数据窗口的并发性控制可以用"rows"菜单的"Update  Properties"项进行设定。  1.  Allow  Updates：如果选中,则整个数据窗口允许修改,否则不允许;  2.  Table  to  Update：在多表查询时,用该项选

string ls_value,ls_templs_value = 短期促销~t短期促销/declare cursor1 cursor for     SELECT distinct tb_gds.c_subname     FROM tb_gds  (nolock);open cursor1;fetch cursor1 into :ls_temp;do while sqlca.sqlco

DaysAfter(date(date1),date(date2)) + SecondsAfter ( time(date1), time(date2))/86400