透明 发表于 2015-1-16 22:33:19

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:51

多走走一此相关论坛,多看一些实例开发,多交流0经验,没什么的,我也是刚学没多久!加油

透明 发表于 2015-1-24 15:27:04

但换公司用MSSQL2K感觉自己好像根本就不了解MSSQL。什么DTS触发器以前根本没用过。

兰色精灵 发表于 2015-2-1 19:35:15

发几份SQL课件,以飨阅者

灵魂腐蚀 发表于 2015-2-7 15:00:17

大侠们有推荐的书籍和学习方法写下吧。

分手快乐 发表于 2015-2-22 10:48:21

一个是把SQL语句写到客户端,可以使用DataSet进行加工;

若相依 发表于 2015-3-7 00:09:42

代替了原来VB式的错误判断。比Oracle高级不少。

蒙在股里 发表于 2015-3-13 23:08:24

对递归类的树遍历很有帮助。个人感觉这个真是太棒了!阅读清晰,非常有时代感。

精灵巫婆 发表于 2015-3-20 21:19:52

这一点很好的加强了profiler的功能。但是提到profiler提醒大家注意一点。windows2003要安装sp1补丁才能启动profiler。否则点击没有反应。
页: [1]
查看完整版本: MSSQL网页设计打印数据库的备注字段