仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 631|回复: 8
打印 上一主题 下一主题

[学习教程] MSSQL网页设计打印数据库的备注字段

[复制链接]
透明 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:33:19 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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来实现闪回的方案。
简单生活 该用户已被删除
沙发
发表于 2015-1-19 16:26:51 | 只看该作者
多走走一此相关论坛,多看一些实例开发,多交流0经验,没什么的,我也是刚学没多久!加油
透明 该用户已被删除
板凳
 楼主| 发表于 2015-1-24 15:27:04 | 只看该作者
但换公司用MSSQL2K感觉自己好像根本就不了解MSSQL。什么DTS触发器以前根本没用过。
兰色精灵 该用户已被删除
地板
发表于 2015-2-1 19:35:15 | 只看该作者
发几份SQL课件,以飨阅者
灵魂腐蚀 该用户已被删除
5#
发表于 2015-2-7 15:00:17 | 只看该作者
大侠们有推荐的书籍和学习方法写下吧。
分手快乐 该用户已被删除
6#
发表于 2015-2-22 10:48:21 | 只看该作者
一个是把SQL语句写到客户端,可以使用DataSet进行加工;
若相依 该用户已被删除
7#
发表于 2015-3-7 00:09:42 | 只看该作者
代替了原来VB式的错误判断。比Oracle高级不少。
蒙在股里 该用户已被删除
8#
发表于 2015-3-13 23:08:24 | 只看该作者
对递归类的树遍历很有帮助。个人感觉这个真是太棒了!阅读清晰,非常有时代感。
精灵巫婆 该用户已被删除
9#
发表于 2015-3-20 21:19:52 | 只看该作者
这一点很好的加强了profiler的功能。但是提到profiler提醒大家注意一点。windows2003要安装sp1补丁才能启动profiler。否则点击没有反应。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-22 23:53

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表