仓酷云

标题: MSSQL网页设计打印数据库的备注字段 [打印本页]

作者: 透明 时间: 2015-1-16 22:33
标题: MSSQL网页设计打印数据库的备注字段
既能够作为一个单独的应用程序应用在客户端服务器网络环境中，也能够作为一个库而嵌入到其他的软件中。打印|数据|数据库*函数称号：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来实现闪回的方案。

作者: 简单生活 时间: 2015-1-19 16:26
多走走一此相关论坛，多看一些实例开发，多交流0经验，没什么的，我也是刚学没多久!加油

作者: 透明 时间: 2015-1-24 15:27
但换公司用MSSQL2K感觉自己好像根本就不了解MSSQL。什么DTS触发器以前根本没用过。

作者: 兰色精灵 时间: 2015-2-1 19:35
发几份SQL课件，以飨阅者

作者: 灵魂腐蚀 时间: 2015-2-7 15:00
大侠们有推荐的书籍和学习方法写下吧。

作者: 分手快乐 时间: 2015-2-22 10:48
一个是把SQL语句写到客户端,可以使用DataSet进行加工;

作者: 若相依 时间: 2015-3-7 00:09
代替了原来VB式的错误判断。比Oracle高级不少。

作者: 蒙在股里 时间: 2015-3-13 23:08
对递归类的树遍历很有帮助。个人感觉这个真是太棒了！阅读清晰，非常有时代感。

作者: 精灵巫婆 时间: 2015-3-20 21:19
这一点很好的加强了profiler的功能。但是提到profiler提醒大家注意一点。windows2003要安装sp1补丁才能启动profiler。否则点击没有反应。

欢迎光临仓酷云 (http://ckuyun.com/)