当前位置导航:炫浪网>>网络学院>>编程开发>>MsSQL教程

关于打印SQL Server数据库的备注字段


  *函数名称:MEMOPRN
  *功能说明:打印数据库的备注字段
  *用法说明:MEMOPRN(,,)
  * memofld:备注字段名称 col:打印起始列 width:打印行宽
  *调用实例:USE DBFNAME
  * =memoprg(fieldname,1,40)
  * 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
相关内容
赞助商链接