打印数据库的备注字段_sqlserver

*函数名称：MEMOPRN
*功能说明：打印数据库的备注字段
*用法说明：MEMOPRN(,,)
* memofld:备注字段名称 col:打印起始列 width:打印行宽
*调用实例：USE DBFNAME
* =memoprg(fieldname,1,40)

http://www.gaodaima.com/35175.html打印数据库的备注字段_sqlserver

* RETURN
*———————————————————

FUNCTION memoprn
PARAMETERS memofld,col,width
PRIVATE check,memofld,col,width

*– 储存原来的 MEMOWIDTH, PRINTER 的状态
cur_width = set(“MEMOWIDTH” )
cur_print = iif(set(“PRINTER”)=”ON”,.t.,.f.)
newwidth = min(_rmargin- _lmargin ,width)
SET memowidth to newwidth
DEFINE box from col-1 to (col+newwidth+1 ) height memlines((memofld))+2
DO while !printstatus()
WAIT ” 打印机不是连机状态，请检查并按任一键继续或按ESC 键退出” ；
Window nowait
IF lastkey()=27
SET memowidth to cur_width && 恢复设置
IF cur_print
SET printer off
ENDIF
RETURN
ENDIF
ENDDO
SET printer on
STORE .t. to box
*– 打印 DEfINE BOX 设定的边框, 系统内存变量 BOX 需设为.T.
?? (memofld) at col
STORE .f. to box
*– @col,1 say (memofld)
SET memowidth to cur_width
IF cur_print
SET printer off
ENDIF
RETURN

欢迎大家阅读《打印数据库的备注字段_sqlserver》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

喜欢 (0)赏

[搞代码]

分享 (0)