PB开发笔记(7)

//小写金额转换成大写金额
string CN_NUM[10] = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}//大写0-9
string CN_CARRY[19] = {"分","角","","元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万","拾","佰","仟"}
string ls_pos,ls_number,ls_rc
integer li_for,li_len
Boolean lb_zero = FALSE        //是否允许下一位出现零
ls_number = string(number,"0.00")
li_len = Len(ls_number)
FOR li_for = 1 TO li_len
ls_pos = MID(ls_number,li_for,1)
IF ls_pos = "-" THEN
      ls_rc += "负"
      continue
END IF
IF ls_pos ='.' THEN continue
IF ls_pos <> "0" THEN
      ls_rc += CN_NUM[integer(ls_pos) + 1] + CN_CARRY[li_len - li_for + 1]
ELSEIF MOD(li_len - li_for - 3,4) = 0 THEN
      IF Right(ls_rc,2) = CN_NUM[1] THEN ls_rc = Left(ls_rc,Len(ls_rc) - 2)
      ls_rc += CN_CARRY[li_len - li_for + 1] + CN_NUM[integer(ls_pos) + 1]
ELSEIF lb_zero THEN
      ls_rc += CN_NUM[integer(ls_pos) + 1]
END IF
lb_zero = ls_pos <> "0"
NEXT
IF Right(ls_rc,2) = CN_NUM[1] THEN ls_rc = Left(ls_rc,Len(ls_rc) - 2)
RETURN ls_rc

//Pb中定制打印页长
在使用连续纸打印数据窗口的情况下，需要定制打印的页长，以保证打印机走纸正确，不用人工干预，
实现连续打印。在PB中须调用外部函数来自定义纸张长度，比较繁琐。本文介绍一种直接对打印机的
控制方法，简单实现对页长的设定。
一、 预备知识
计算机与打印机的通讯使用ASCII码进行，其中标准ASCII码包括可打印字符及非打印字符（控制码），
打印机使用控制码来定制打印机。大多数打印机指令使用控制码escape作为其指令序列的第一个序列码。
下面介绍本文用到的几个指令码序列：
设置换行量（行距）1/8 英寸
ASCII码 ESC 0
十进制码 27 48
设置以行为单位的页长
ASCII码 ESC C n
十进制码 27 67 n
其中n 为每页行数范围（1-127）
二、 PB中控制码的传送及定制页长的实现
在PB中通过函数Printsend(printjobnumber,string,{zerochar})来实现向打印机发送控制码。
各参数定义如下：
printjobnumber: 由printjob()函数返回的打印作业号；
string:           控制字符串，使用ASCII码；
zerochar:         用来替代string中的数字0；
由于字符串中，0终止字符串，如果string中包含0，则需利用其他字符来表示0，参数zerochar即为此
用途而设，当PB发送控制字符串给打印机时，把替代的字符zerochar转化为0。
下面是具体的完成定制页长打印数据窗口的程序（定制页长为2.75英寸）：
long ll_job
dw_print.reset()
ll_job = printopen()
if ll_job = -1 then
          messagebox(gs_title,"打印机未准备好")
          return
end if
//定制行距1/8英寸
PrintSend(ll_job, CHAR(27)+CHAR(48))
//设定页长22行
PrintSend(ll_job, CHAR(27)+CHAR(67)+CHAR(22))
printdatawindow(ll_job,dw_print)
printclose(ll_job)
22行刚好是窄行连续纸一页的三分之一长,好多票据都是这种纸.win2000下没问题,我的程序跑得很好.

//pb中的一些经验和技巧
1.RGB函数计算公式: 颜色值 ＝ (65536 * Blue) + (256 * Green) + (Red)
2.控件可拖动：send(handle(this),274,61458,0)
3.如何用程序控制下拉子数据窗口的下拉和收起
用modify或者直接用dw_1.object.col1.dddw.showlist = true
4.检索参数有些不需要传入则传%.
5.如何屏蔽鼠标滚轮触发在控件的other事件写
if message.number = 522 then return 1
6.得到数据窗口的语法：
string ls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")
7.得到数据窗口中各列及标题：
long     ll_count,i
string ls_value,ls_colname
ll_colnum = Long(dw_1.object.datawindow.column.count)
for i = 1 to ll_colnum
     //得到标题头的名字
     ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
     ls_value = dw_1.describe(ls_colname + ".text")
next
8.在程序中动态设置初始值:
ex:dw_control.object.columnName.initial = 'xxxx'
9.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行:
起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：
" city < > city [-1] or GetRow () = 1"
10.如何改变列的字体颜色，提醒用户此列已做修改:
在列的Color属性中，输入如下表达式
IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。
在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。这个表达式主要用
column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。
11.在数据窗口的clicked或doubleclicked事件中写上注释//可解决一些意外的bug!

//数据窗口中实现字段的组合
现在假设客户的省份，城市，地址，邮编分别存放在不同的字段中，它们是Province，City，Address，
PC。我们要得到“邮编+省份+城市+地址”的格式，如：“（214001）江苏省无锡市人民路1号。"，具体实现
如下：
　　1、在需要显示的位置添加一个计算域（Compute Field）
　　2、在它的表达式栏中写上“ '（' + PC + ' ）' + Province + City + Address ”
　　3、单击确定完成。
　　很容易是不是。需要提醒大家的是，计算域只能用来显示，不能对它进行修改，因为它没有TAB属性，
不能得到焦点。

//数据窗口的自动刷新技术
在我们编写诸如像库存，销售等应用系统时，总希望程序能动态的自动刷新库存量或销售量，比如说
每隔1秒刷新一次。要实现这样的功能只要我们利用数据窗口的时间间隔属性（Timer Interval），
当该值为0时数据窗口不进行刷新，如果要使数据窗口以每一秒钟的频率刷新的话，只要将该值设为
1000，即1000毫秒。
我们还可以为应用程序添加闪烁报警的功能。就拿库存量来说吧，最常用的是当某货物的库存量达到
一个最低库存量时程序应能自动判别，并用警告色显示，通常是红色。此时，我们只要在运用了上述的
方法后再在需要闪烁的字段上，比如，库存量，在它的颜色属性中写上相应的语句。下面这段代码实现
“当某一物品的库存量小于20的时候，程序以红色闪烁显示警告”
　　if ( Store_Num < 20, &
　　if mod( Second(Now()), 2) <> 0, & // 每秒一次，偶数显示红色，奇数显示白色，即底色
　　RGB(255, 255, 255), RGB(255, 0, 0) )

//如何在DataWindow中用数据类型为Datetime的列为条件进行查找
1．当要查找的日期条件是一常数时使用如下表达式：
ls_Find = "datetime_col = DateTime ('1/1/1999')"
2．当要查找的日期条件是一个变量时使用如下的表达式：
ls_Find = "datetime_col = DateTime ('" + ls_Date + "')"  
3．当要查找的日期条件是一个DateTime数据类型时使用如下表达式：  
ls_Find = "datetime_col = DateTime ('" + String (ldt_DateTime) + "')"

//如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行
起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：
" city < > city [-1] or GetRow () = 1"  

//如何在分组形式的DataWindow中分别显示各组的行号
当我们为Datawindow的每一行显示行号时，可以简单的放一个表达式为GetRow()计算列。
但是对于分组的Datawindow，要分别显示各组的行号，则应使用表达式为
GetRow() - First(GetRow() for Group 1) + 1的计算列。

//如何改变列的字体颜色，提醒用户此列已做修改
在列的Color属性中，输入如下表达式
IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。
在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。这个表达式主要用
column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。

//在数据窗口中移走行,但不是去做过滤或删除操作  
RowsDiscard()函数可做到这一点,它在数据窗口中执行移除工作,但被移走的行它不可被删除或做任何
修改性的保存。

//如何在多行显示的DataWindow 中的Footer Band中显示当前数据的首行和最后行的行号
我们先看两个计算列的表达式：  
IF (GetRow() = First(GetRow() FOR Page), 1, 0) // 1 为当前页的第一行  
IF (GetRow() <> 1 AND GetRow() = Last(GetRow() FOR Page), 1, 0) // 1 为当前页的最后一行
由上面可知，在F