TongYu2009的专栏

1.RGB函数计算公式: 颜色值 ＝ (65536 * Blue) + (256 * Green) + (Red)  2.控件可拖动：send(handle(this),274,61458,0)3.如何用程序控制下拉子数据窗口的下拉和收起用modify或者直接用dw_1.object.col1.dddw.showlist = true4.检索参数有些不需要传入则传%.5.如何屏蔽鼠标滚轮触发  在控件的other事件写if message.number = 522 then return 1  6.得到数据

Date()-Convert a string to a date經常用到將一個字符轉換成為日期格式，但是這個字符的格式必須是：YYYY/MM/DD格式的，因為每台電腦上的日期格式有可能不同，如果不是這種格式，就會出現1900/01/01。 正確寫法：ls_today=’2010/03/15’Date(ls_today) *可自行查看pb之幫助文件。拿到本月

SQLCA.DBMS       =ProfileString("sn2012.ini", "DataBase", "SQLCA.DBMS", "")SQLCA.Database   = ProfileString("sn2012.ini", "DataBase", "SQLCA.Database", "")SQLCA.ServerName = ProfileString("sn2012.

//================================================================================// 函  数: f_string_split_by_len()//--------------------------------------------------------------------------------

循环读出，按文件规则命名，写到指定的目录下就可以了重点用到的是 ：selectblobFileOpen 循环 FileWrite//每写入应小于3MFileClose

一、存储过程介绍 　　存储过程是由流控制和SQL语句书写的过程，这个过程经编译和优化后存储在数据库服务器中，使用时只要调用即可。在ORACLE中，若干个有联系的过程可以组合在一起构成程序包。 　　使用存储过程有以下的优点： 　　* 存储过程的能力大大增强了SQL语言的功能和灵活性。存储过程可以用流控制语句编写，有很强的灵活性，可以完成复杂的判断和较复杂的运算。 　　* 可保证数据的安全性和完整

1. 在DataWindow Painter中打开DataWindow;2. 在需设定自动折行的列上双击鼠标, 弹开此列的属性窗口；3. 选择Position标签, 选中Autosize Height 多选框；4. l选择Edit标签, 不选中Auto H

<br /><br />INTEGER Li_ColumnCount <br />INTEGER Li_Cnt <br />Li_ColumnCount = Integer(dw_2.Object.DataWindow.Column.Count) <br />FOR Li_Cnt = 1 To Li_ColumnCount <br />dw_2.ModIfy("#" + STRING(Li_Cnt) + '.protect="0~tif( isRowNew(), 0, 1)"') <br />    dw_

<br /><br />//PB中标准调用sql语句<br />ls_sql = "select road_name from bb_data_wide_bus_temp_t whereregister_number = '" + ls_register_number + "'"<br />declare cur_get dynamic cursor for sqlsa ;<br />prepare sqlsa from :ls_sql ;<br />open dynamic cur_g

<br />/常用API函数例解1．如何使PB窗口总在最上层(Always On Top) 通过SetWindowPos函数把窗口的显示层次修改为HWND—TOPMOST，就可使指定窗口永远不会被其它窗口覆盖，该函数声明为： Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″ 参数1为要顶层显示的窗口句柄，参数2指定显示的层次

<br /><br />/DW的DBError事件<br />string          error_text<br />CHOOSE CASE sqlDBCode<br />          case 1                   error_text = '违反唯一索引!'<br />             case 1400          error_text = '字段不能为空!'<br />             case 1407          error_text

<br />Colour Red Green Blue 值<br />黑色 Black 0 0 0 0<br />白色 White 255 255 255 16777215<br />灰色 Gray 192 192 192 12632256<br />深灰色 Dark Grey 128 128 128 8421504<br />红色 Red 255 0 0 255<br />深红色 Dark Red 128 0 0 128<br />绿色 Green 0 255 0 65280<br />深绿色 Dark

<br />string ls_pathname, ls_filename<br />integer li_value<br />GetFileOpenName("Select  File",  ls_pathname,  ls_filename,  "XLS",  "Microsoft  Excel  Files  (*.xls),*.xls")  <br /><br />OLEOBJECT  myoleobject<br />myoleobject=CREATE  OLEOBJECT  <br />my

1. 在DataWindow Painter中打开DataWindow;2. 在需设定自动折行的列上双击鼠标, 弹开此列的属性窗口；3. 选择Position标签, 选中Autosize Height 多选框；4. l选择Edit标签, 不选中Auto H