2.1 管理信息系统流程设想图（新系统模型）
在对旧流程的分析后，发现病人两次到药房排队，第一次是划价，第二次是取药，这种业务流程给病人带来不便。在新系统中可取消病人到药房划价这一环节，而划价这一工作可以通过计算机网络的功能在收费处完成，这可以大大方便
病人，提高医院办事效率。新系统模型如下图所示：
图2-5管理信息系统流程设想图
（注：方框表示功能处理；带箭头的线条表示数据或物品的流向）
3 系统设计部分
3.1 功能结构图设计图3-1功能结构图设计若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
3.2 存储文件格式设计（数据库结构设计）
图3-2 E-R图设计
3.3 代码设计
根据药品粗分类原则，在药品编码结构中将商品只划分一个大类。按照用途或自然属性相同或相似的规则对商品归类，用一位英文字母表示。这样归类的好处就在于同一个商品不会因为分类的不同而赋予多个编码，确保一物
编码分为四层，第一层为类别码，长1位，第二层为本体名称码，长6位，第三层为其它名称码，长3位，第四层为验证码，长1位。
4 系统实施部分
4.1 程序框图
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn4.2 源程序
1．主窗体程序代码
Public Class frmMain
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnDictionary As System.Windows.Forms.MenuItem
Friend WithEvents mnMedicine As System.Windows.Forms.MenuItem
Friend WithEvents mnCash As System.Windows.Forms.MenuItem
Friend WithEvents mnManage As System.Windows.Forms.MenuItem
Friend WithEvents mnGuaHao As System.Windows.Forms.MenuItem
Friend WithEvents mnHuaJia As System.Windows.Forms.MenuItem
Friend WithEvents mnShouFei As System.Windows.Forms.MenuItem
Friend WithEvents mnFaYao As System.Windows.Forms.MenuItem
Friend WithEvents mnSearch As System.Windows.Forms.MenuItem
Friend WithEvents mnGHL As System.Windows.Forms.MenuItem
Friend WithEvents mnKCL As System.Windows.Forms.MenuItem
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页