Database 版 (精华区)

发信人: wodeji (西西), 信区: Database
标  题: [转载] VB开发SQL Server数据库的打印功能(6)
发信站: 紫 丁 香 (Thu Oct  1 10:26:40 1998), 站内信件

【 以下文字转载自 Programming 讨论区 】
【 原文由 qr 所发表 】
　　Private Sub SSCmdZmlPrn—Click() 

　　TxTZmlDH.Text = LTrim(RTrim(TxTZmlDH.Text)) 

　　If TxTZmlDH.Text ″ ″ Then 

　　 ’Zml 为数据库宿主，dh为字段名 

　　CrpZmlPrn.GroupSelectionFormula = ″{Zml.dh}='″ ＆ TxTZmlDH.Text ＆ ″'″ 

　　’打印登录 

　　CrpZmlPrn.Connect = Prnlog 

　　CrpZmlPrn.Action = 1 

　　Else 

　　Response1 = MsgBox(″档号错误!″, vbOKOnly ＋ vbInformation ＋ vbDefaultButton2, ″系统错误信息!″) 

　　End If 

　　End Sub 

　　(以上设计在AcerALtos9000 服务器、Acer Pentium 100微机，WindowsNT4.0中文版操作系统、SQLserver6.0、VisualBasic4.0、Windows95上通过。) 


--
※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: club.hit.edu.cn]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: cadcam.hit.edu.c]