//小写金额转换成大写金额
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毫秒。
我们还可以为应用程序添加闪烁报警的功能。就拿库存量来说吧,最常用的是当某货物的库存量达到
一个最低库存量时程序应能自动判别,并用警告色显示,通常是红色。此时,我们只要在运用了上述的
方法后再在需要闪烁的字段上,比如&#