管理信息系统原理及开发 教学课件 作者 马秀麟 王燕 14.pptVIP

以VB开发柳树湾医院门诊系统 一、准备工作——构造开发环境 1、创建后台数据库 启动计算机上安装的SQL Server 2000/2005系统，在SQL Server的“企业管理器”或者“Management Studio Express”下，创建一个数据库“ycxxgl”，并为它创建一个新的登陆标识yyinfodl，设置密码为12345，然后设置这个登陆标识对数据库ycxxgl有dbo权限。 根据设计成果，在这个数据库下创建11张数据表，正确地设置数据表中各个字段的名称、类型、宽度等信息，并设置每个数据表的主键。 一、准备工作——构造开发环境 2、建立ODBC数据源 启动“控制面板”→“管理工具”→“ODBC数据源”，为数据库“ycxxgl”创建ODBC的系统数据源“lswgl”，数据源的驱动程序是“SQL Server”；用户名是“yyinfodl”，密码是“12345”。 一、准备工作——构造开发环境 3、安装开发工具VB系统 由于本系统的开发选择了Visual Basic 6.0，因此需要在开发系统的计算机上安展Visual Basic 6.0中文版。 二、创建工程与公共模块 1、新建工程 启动VB系统，利用“新建”对话框新建一个“数据工程”，然后利用“属性窗口”把工程“名称”修改为“LswSys”。 选择系统工具栏按钮“保存”，把工程保存到一个空白文件夹中。 二、创建工程与公共模块 2、创建公共模块 由于这是一个典型的MIS，很多操作都建立在数据库操作的基础上，依赖于数据库连接，因此，可以把数据库连接对象定义为一个全局变量，把数据库连接功能定义为一个公共模块。另外，在MIS中登陆人的账号和操作权限应该贯穿整个系统运行的始终，所以登陆人的账号和操作权限应存储在全局变量中。 为此，需要在工程中创建一个标准模块，实现定义全局变量和定义公共模块的职能。选择系统菜单“工程”→“添加模块”，在“新建”选项卡中选择“模块”并“打开”它。于是在工程LswSys中新增了一个Moduel1模块。 双击这个模块，在主工作区打开它，输入代码： 二、创建工程与公共模块 Public uname As String???????? Public uqx As String??? ?????????????? Public conn As ADODB.Connection????? ? Public Sub dbconn()??????????????????? ?? Set conn = New ADODB.Connection??? ?? conn.ConnectionString = DSN=lswgl;uid=yyinfodl;pwd=12345; ?? conn.Open???????????????????????? End Sub??? 三、登陆模块的实现 1、登陆模块的设计思路 系统登陆模块服务于普通病人和医院内部职工。根据医院的管理规程，普通病人的病例号以字母B开头编号，而医院职工的编号以字母Y开头。因此，凡是以字母B开头的用户名，应在病人表中验证其合法性信息，而对字母Y开头的用户名，需要到员工表中验证其合法性信息。 对于医院员工，由于种类较多，各类用户的操作权力也不相同，因此在员工表中专门设置了一个字段“权限”，用以标记用户的身份。系统将根据权限字段的值确定该用户能够进行哪些操作。 分析用户登录系统的特点，得到用户登录系统的程序流程图。 三、登陆模块的实现 三、登陆模块的实现 2、登陆模块的开发 在工程“LswSys”中添加普通窗体，把窗体命名为“frmLogin”，修改窗体的Caption为“用户登陆窗口”。 在这个窗体中增加文字标签“用户名：”、“密码：”，再增加两个文本框和一个命令按钮，把文本框和命令按钮分别命名为“username”、“pswd”和“Command1”，最后适当修改文本框和命令按钮的Caption属性。 三、登陆模块的实现 四、系统主界面与菜单 根据对系统功能的分析，设置如图5-37所示的系统主界面，而且根据系统设计阶段对用户类别的划分，已经明确了各类用户在系统中的操作权限。例如：所有登陆用户都有权退出系统、修改自己的个人信息、修改自己的密码。医生有权创建处方，进行必要的处方管理；收费人员则有权根据处方收费，并定期对收费情况进行汇总和统计。 四、系统主界面与菜单 1、系统主界面与菜单的设计 ?规划中的系统主界面应该如图所示。 四、系统主界面与菜单 为保证开发的规范性，此时须进行窗体和菜单项设计。 四、系统主界面与菜单 2、开发方法 在工程“LswSys”中添加MDI窗体，把窗体命名为“MainFrm”，然后打开这个窗体。在这个窗体的编辑状态下，选择系统菜单“工具”→“菜单编辑器”，打开“菜单编辑器”