|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
既能够作为一个单独的应用程序应用在客户端服务器网络环境中,也能够作为一个库而嵌入到其他的软件中。打印|数据|数据库*函数称号:MEMOPRN
*功效申明:打印数据库的备注字段
*用法申明:MEMOPRN(,,)
*memofld:备注字段称号col:打印肇端列width:打印行宽
*挪用实例:USEDBFNAME
*=memoprg(fieldname,1,40)
*RETURN
*---------------------------------------------------------
FUNCTIONmemoprn
PARAMETERSmemofld,col,width
PRIVATEcheck,memofld,col,width
*--贮存本来的MEMOWIDTH,PRINTER的形态
cur_width=set("MEMOWIDTH")
cur_print=iif(set("PRINTER")="ON",.t.,.f.)
newwidth=min(_rmargin-_lmargin,width)
SETmemowidthtonewwidth
DEFINEboxfromcol-1to(col+newwidth+1)heightmemlines((memofld))+2
DOwhile!printstatus()
WAIT"打印机不是连机形态,请反省并按任一键持续或按ESC键加入";
Windownowait
IFlastkey()=27
SETmemowidthtocur_width&&恢复设置
IFcur_print
SETprinteroff
ENDIF
RETURN
ENDIF
ENDDO
SETprinteron
STORE.t.tobox
*--打印DEfINEBOX设定的边框,体系内存变量BOX需设为.T.
??(memofld)atcol
STORE.f.tobox
*--@col,1say(memofld)
SETmemowidthtocur_width
IFcur_print
SETprinteroff
ENDIF
RETURN这里我们讨论用binlog来实现闪回的方案。 |
|