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]
[百宝箱] [返回首页] [上级目录] [根目录] [返回顶部] [刷新] [返回]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间:1.996毫秒