如病区长期医嘱有15人,已按每组盐水进行分组,用ADOQUERY1查询后已出结果,我想A4纸上分三栏打印出每个人的用药,每个人可能只有一小条。如:
一病区(QRDBTEXT) 张三(QRDBTEXT) 202(QRDBTEXT)
品名规格(QRLABLE) 单位 (QRLABLE) 数量(QRLABLE)
5%GS 250ml 瓶 1
青霉素80万 支 10
。。 。 。
一病区(QRDBTEXT) 李四(QRDBTEXT) 203(QRDBTEXT)
品名规格(QRLABLE) 单位 (QRLABLE) 数量(QRLABLE)
5%GS 250ml(QRDBTEXT)瓶(QRDBTEXT) 1(QRDBTEXT)
菌必治 支 4
。。 。 。
一病区(QRDBTEXT) 张三(QRDBTEXT) 202(QRDBTEXT)
品名规格(QRLABLE) 单位 (QRLABLE) 数量(QRLABLE)
5%GS 250ml 瓶 1
青霉素80万 支 10
。。 。 。
一病区(QRDBTEXT) 李四(QRDBTEXT) 203(QRDBTEXT)
品名规格(QRLABLE) 单位 (QRLABLE) 数量(QRLABLE)
5%GS 250ml(QRDBTEXT)瓶(QRDBTEXT) 1(QRDBTEXT)
菌必治 支 4
。。 。 。
解决方案 »
- 急救!!delphi 怎么把数据调入虚拟内存去画图??
- 如何用Socket传接收文件
- delphi中导出EXCEL时,如何控制某些单元格使用日历控件,代码要怎么写?
- 我想实现象XP的窗口那样的左导航栏,不知道有什么方法?
- 如何知道一个文本文件一共多少行?
- 哪有Delphi 6 Update Pack 2免注册、免费下载?
- 做个调查:你所在的公司或你自己有没有用过WorkFlow技术开发信息系统?谢谢!!!(答者有分)
- 如何设置qrexpr中sum求和后的格式为两位小数
- 诚邀Delphi兼职开发人员1人
- 怎样设计报表的纵横方向,QuickRep1.Page.Orientation:=?
- 现在实现了两个listbox的相互拖拽 怎么实现禁止他们的自身拖拽? 50分 在线 可行方案 立马给分
- (高分)求代码怎样抹掉窗口句柄
品名规格 单位 数量 品名规格 单位 数量 品名规格 单位 数量
5%GS 250ml 瓶 1 5%GS 250ml 瓶 1 5%GS 250ml 瓶 1
青霉素80万 支 10 阿奇霉素 支 5 阿奇霉素 支 6
。。 。 。
__________________________ 一病区 李四 203
品名规格 单位 数量
5%GS 250ml 瓶 1
菌必治 支 4
。。 。 。
_________________________