欢迎光临:
　　
　　非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源) 智能多路控制(串口编程开关) 带源码!

VB源码 订阅所有【VB源码】的日志
07-07
17

中小型药店管理信息系统 Ver 1.0

作者:枕善居主 / 查看次数: 10718 / 评论: 6

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/

      一款适合于中小型药店信息管理的源代码，具有如下功能：入库单录入、销售单录入、销售退货管理、销售退货查询、退货返厂维护、药品库存查询、药品库存盘点，药品价格管理、药品入库查询、药品供应商管理、客户信息管理、初期建帐、权限及密码设置、数据备份和恢复功能等。功能比较完整。采用Access数据库，需要的可以修改为SQL SERVER数据库。
   在这里感谢本站会员：yisoutong(淘宝购买ID).

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/
【VB和.NET专业源码+解决方案+数据字典DVD光盘(全国包快递)】  点击查看源代码清单




回复回复sn84177 [2009-07-31 16:09:19 |  | del]
很好，很强大
回复回复ahuatian2008 [2008-01-27 12:39:24 |  | del]
谢谢！
研究一下！
回复回复liuyinghua [2007-08-03 09:05:06 |  | del]
顶一下！
回复回复terrywolf [2007-07-30 12:47:31 |  | del]
好东西收藏
回复回复yahuu [2007-07-18 15:38:02 |  | del]
进去一点就报错了
main_jbxx_gys（供应商信息管理）中，函数 Public Sub viewdata()      '定义显示数据的函数
没有判断数据库中是否有记录，我随便输入个不存在供应商的编号查询，查不到记录的，所以会报错
改这样
Public Sub viewdata()      '定义显示数据的函数
    If Data1.Recordset.RecordCount <> 0 Then
        For i = 0 To 16
            If Data1.Recordset.Fields(i) <> "" Then gys(i).Text = Data1.Recordset.Fields(i) Else gys(i).Text = ""
        Next i
    End If
End Sub
估计其他很多地方都没有做这种处理的。
回复回复yahuu [2007-07-18 15:27:38 |  | del]
先收下再说
发表评论
您没有权限发表评论！