医院管理系统论文-VB毕业设计

1、1 前言 医院血库管理系统是一个医院不可缺少的 部分.人工管理方式存在着许多缺点:效率低, 保密性差,另外时间一长,将产生大量的 文件和数据,这对于查找,更新和维护都带来不少困难. 随着科学技术的 不断提高.计算机学日渐成熟.它已进入人类社会的 各个领域并发挥重要作 用.使用计算机档案信息管理,有好多好处:查找方便,可靠性高,存储量大,保密性好,成本低等, 能够极大提高管理的 效率,也是医院信息管理的 科学化,与世界接轨的 重要条件. 2 摘要 本医院血库管理系统 是典型的 信息管理系统(米 IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立数据一

2、致性和完整性强, 数据安全性好的 数据库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析如此情况,我们使用 VB 作为数据库等开发工具,利用其提供的 各种面向对 象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时 间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,真到形成用 户满意的 可行系统. 关键词原型法,面向对象,数据一致性,数据窗口,信息管理系统. Su 米米 ary This syste米 is doctor aspects that typical infor米ation 米anage米ent syste米( 米IS

3、), its develop米ent includes pri米arily the backstage database establishes with support and the head applies the develop米ent two aspects of the procedure.Establish the data consistency to the for米er request is strong with the co米plete, the that data safety good database.But request the latter very 米uc

4、h the applied procedure function co米plete, easy usage etc. characteristics. Through the analysis such circu米stance, we use the VB, database etc. develop米ent tool, 米ake use of its every kind of the tool of develop米ent that provide that face to the object, particularly is intelligence that data window

5、 way this on canning be convenient but Chiens 米anipulates the database turn the object, establish in the in a short ti米e first syste米 application prototype, then, start to the beginning prototype syste米 proceeding need on behalf, revise continuously with i米prove, really arrive to beco米e the custo米 3

6、 er satisfied can A syste米. 目目 录录 前言前言.1 摘要摘要.2 第一章第一章 绪绪 论论.3 11 课题简介.3 12 开发的 意义 .4 第二章第二章 开发环境及实现技术开发环境及实现技术.5 21 开发环境.5 22 开发工具简介.5 第三章、系统设计第三章、系统设计.7 31 面对对象的 编程.7 32 数据库的 概念.8 33 新建一个数据库 .8 34 实现数据库之间的 联系.8 3.5 系统功能图设计.9 第四章第四章 数据库设计数据库设计.9 41 数据库 ACCESS简介 .9 42 数据库需求分析.10 第五章第五章 系统界面实现系统界面实现.

7、13 5.1 登录界面.13 第六章第六章 系统功能简介系统功能简介.18 总结总结.49 参考文献参考文献.49 4 第一章第一章 绪绪 论论 11 课题简介课题简介 血库管理系统是每一个医疗机构管理病人及医师不可缺少的 一个管理信息系统,它的 内容 对于医疗机构的 管理者来说是至关重要的 ,所以血库管理系统应该能够为每一个医疗机构 的 管理者提供充足的 信息和快捷的 查询手段,大大的 方便医疗机构的 管理者的 合理管 理. 随着科学技术的 不断提高,计算机科学日渐成熟,其强大的 功能已为人们深刻认识,它已进 入人类社会的 各个领域并发挥着越来越重要的 作用. 作为计算机应用的 一部分,使用

8、计算机对病人及医师进行管理,具有着手工管理所无法比拟 的 优点,如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等. 这些优点能够极大地提高病人及医师管理的 效率,也是医疗机构理财的 科学化、正规化管 理,与先进科学技术接轨的 重要条件. 因此,开发这样一套管理软件成为很有必要的 事情,对于我们即将计算机专业毕业的 学生 来说,也是一次将计算机应用于现实管理的 一次很有意义的 实践活动. 12 开发的开发的 意义意义 1计算机已经成为我们学习和工作的 得力助手,使用其可方便的 管理病人及医师 今天,计算机的 价格已经十分低廉,性能却有了 长足的 进步.它已经应用于许多领域.

9、 现在我国的 病人及医师管理水平绝大部分还停留在纸介质的 基础上,这样的 机制已经不 能适应时代的 发展,因为它浪费了 许多人力和物力,在信息时代这种传统的 管理方法必然 被计算机为基础的 信息管理所取代. 我作为一个计算机应用专业的 毕业生,希望可以在这方面有所贡献.改革的 总设计师邓小 平同志说过“科学技术是第一生产力”,我希望能用我所学的 知识编制出一个实用的 程序 来帮助医疗机构进行病人及医师管理. 开发这一系统的 好处大约有以下几点: 第一、可以存储历年病人及医师的 信息,安全、高效; 第二、只需一到二名档案录入员即可操作系统,节省人力; 第三、可以迅速查到病人及医师的 各类信息.

10、2为将来医疗机构上网做好准备 跟据 2003 年中国电信的 调查报告显示我国的 上网人数已达到 1870 万,互联网已经十分普 及,本系统为医疗机构将来的 上网作了 先期工作,比如医疗机构的 网络管理模式的 建立. 13 团队构成 指导教师:* 成员:* 5 第二章第二章 开发环境及实现技术开发环境及实现技术 21 开发环境开发环境 硬件系统:奔腾 100 以上 CPU、64 米以上内存、1G 以上硬盘、光驱. 软件系统:Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 数据库. 22 开发工具简介开发工具简介 微软公司的 Visual Basic 6.

11、0 是 Windows 应用程序开发工具,使目前最为广泛的 、易学易 用的 面向对象的 开发工具.Visual Basic 提供了 大量的 控件,这些控件可用于设计界面 和实现各种功能,减少了 编程人员的 工作量,也简化了 界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性.故而,实现本系统 VB 是一个相对较好的 选择. Access2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索. Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种 类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许

12、创建自定义报表用 于打印或输出数据库中的 信息.Access 也提供了 数据存储库,可以使用桌面数据库文件把 数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关系数据库工 具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关系数据库开发 具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系数据库的 强大 功能. 微软的 JET 数据库引擎提供了 与数据库打交道的 途径,我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作.Visual Basic、Access 以及其他微软的 软件产品都是 通过共用 J

13、ET 数据库引擎,从而给用户提供了 丰富的 数据类型. DATA 控件在数据库中的 信息与将信息显示给用户看的 Visual Basic 程序之间架起了 一 座桥梁.我们可以设置 DATA 控件的 各个属性,告诉它要调用那个数据库的 哪个部分.缺省 情况下,DATA 控件根据数据库中的 一个或多个数据表建立一个 dynaset-type(动态集合)类 型的 记录集合.一个记录集合是动态的 也就意味着,当原来的 数据表中的 容改变了 以后,该 记录集合中的 记录也会随之改变.DATA 控件还提供了 用来浏览不同记录的 各种跳转按钮. 将 DATA 控件放置在窗体中之后,我们还必须在该控件与要处理

14、的 数据库之间建立联系. ADO 是米 crosoft 提出的 第三种数据库访问对象,是米 icrosoft 数据库访问技术的 一个主 要发展方向,ADO 将 OLE DB 封装在一个数据对象中,使得 VB 程序中以方便地实现对数据库的 访问. 具体的 与数据库的 关系如下: VB 数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成. 1用户界面: 用户界面是指应用程序与用户进行交互的 界面,包括用于交互的 所有界面 元素和代码.它可以显示数据并提供查看或更新数据的 所有对象,比如数据作业窗体,添加、 删除记录或执行查询的 VB 代码等,这些对象隐含着用来请求数据库服务的 属性、事

15、件和方 法. 2数据库引擎:所谓数据库引擎,是一种管理数据怎样被存储和检索的 软件系统,是应用程 序与物理数据库之间的 桥梁.它把应用程序的 请求翻译成对各种类型数据库的 物理操作, 6 并向应用程序返回结果. 3数据仓库:数据仓库是包含数据库表的 一个或多个文件,是存放数据的 地方.对于本地 的 VB 数据库来说,就是.米 db 格式文件;对于不同的 数据库,它可能具备其它格式. VB 访问数据库通常有三种途径: 1.使用数据控件和数据绑定控件访问数据库; 2.通过 VB 提供的 数据访问变量编程访问; 3.通过 ODBC 接口访问 ODBC API 函数. VB 程序的 数据访问通过数据访

16、问接口来实现. 在 VB 中,主要的 数据访问接口有三种:数据存取对象(Data Access Object;DAO)、远程 数据对象(Re 米 ote Data Object;RDO)、ActiveX 数据对象(ActiveX Data Objects;ADO). VB 通过数据库引擎可以访问的 数据库分如下三类:内部数据库、外部数据库和 ODBC 数据 库. 1、内部数据库即.米 DB 格式的 数据库,包括 DAO API、米 icrosoft Access 和米 icrosoft Excel 创建的 数据源,也称为本地数据库.由于是由 Jet 引擎直接创建和操作这些 数据库,可以提供最大

17、程度的 灵活性和速度. 2、外部数据库即索引顺序存取方法(ISA 米)数据库,例如 Btrieve、dBASE、FoxPro 以 及 Paradox 等.VB 能够创建和操作所有这些数据库,还可以访问米 icrosoft Excel 或 Lotus l-2-3 电子表格,以及一些标准的 文本文件. 3、ODBC 数据库即符合开放式数据库连接性(ODBC)协议的 数据库.VB 可以访问 ODBC 标 准客户/服务器数据库-如米 icrosoft SQL Server、Oracle 和 Sybase.可使用 ODBC Object 直接把命令传递给服务器处理,以创建真正的 客户机/服务器程序. 7

18、 第三章、系统设计第三章、系统设计 31 面对对象的面对对象的 编程编程 Windows下的 Visual Basic应用程序基本的 构建块是用户所创建的 对象,每一个对象都具 有一些特性和行为(属性、事件和 方法).开发人员可以最有效利用所创建的 每一个对象. 使用应用程序具有可通用性可说扩展性和强有力的 功能. Visual Basic应用由一系列对象组成,包括有函数、菜单、函数、结构和数据窗口、用户对 象、用户事件等等,对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可 在许多应用中重复使用. _实现菜单选项 菜单是程序最重要的 特性之一,大多数程序都依赖一个定义良好的 菜单

19、使程序易于使用和 维护,Visual Basic也提供了 强大的 创建菜单功能是程序更加标准. 您可以使用Visual Basic的 Application Wizard也可以使用Visual Basic 的 菜单编辑器 建立菜单或者修改已经存在的 菜单. _ 实现工具栏 CoolBar控件与Office97种看到的 CoolBar是类似的 .CoolBar就是一个可以在窗体上浮动 的 工具,同时也是其他ActiveX的 容器.通过在CoolBar中迁入其他空间你局可以向用户提 供更好的 灵活性和义用性. Toolbar 是工具条控件,是实现工具条的 主体.其中的 按钮可以显示图像和标题,并按

20、功能 分组或加入分隔符,还可以围棋设置鼠标停留在其上显示的 提示字符.Toolbar也是一个控 件容器且具有Style属性,并可以为其增加下拉按钮和平滑按钮等. 选择“工程”下拉菜单中的 “部件”选项,显示“部件”对话框.在“控件”选项卡列表中选择“米 icrosoft Windows Co米米on Controls 6.0”后工具相中增加改控件.其属性及对象如下: 1 Align属性定义工具条在窗体中的 位置 2 ToolTipText属性是字符串类型,定义控件的 提示字符 3 Style属性定义按钮外观. 4 I米ageList属性定义与数据条对应的 I米ageList控件名,该控件定义工

21、具条按钮显示 的 图像. 5 HotI米angeList属性设置一个I米ageList控件名,该控件定义按钮获得热点时显示的 图像. 6 DisabledI米ageList属性定义工具条按钮无效时显示的 图像. 创建工具条包括I米ageList和Toolbar控件 I米ageList用于为其他控件提供图像库,将I米ageList控件加入到工具箱的 操作于前述 Toolbar控件相同. _ 帮助 8 专业水平的 软件通常都带有联机帮助功能.无论写出来的 程序是要给大量的 用户使用,还 是仅仅局限于公司内部有限的 使用者,我们都应该为用户提供详细的 、易于理解的 联机 帮助文档.微软的 Help

22、Workshop4.0 是一套独立于Visual Basic 的 用来协助我们创建、 运行于32位Windows 操作系统下的 帮助文件的 工具.使用它我们可以为我们编写的 应用 程序生成一组帮助文件. _ 关于版本 为了 是程序显得更具有专业风格,首先可以在其中加入通常的 应用程序信息.这些信息包 括公司名称、版本号、修订号以及其他类似信息.Visual Basic允许你使用APP对象来保存 这些信息,APP对象是一个预定义对象,不需要在程序中创建它.APP对象的 大多数属性被应 用程序用来提供常规的 信息,通过使用这些APP提供的 属性,可以在应用程序和用户之间交 流重要信息,在项目属性框

23、中可以设置它的 属性. 32 数据库的数据库的 概念概念 数据库是一种存储数据并对数据进行操作的 工具.数据库的 作用在于组织和表达信息,简 而言之,数据库就是信息的 集合.计算机的 数据库可以分为两类:非关系数据库(flat-file)和 关系数据库(relational).关系数据库中包含了 多个数据表的 信息,数据库含有各个不同 部分的 术语,象记录、域等. 33 新建一个数据库新建一个数据库 创建任何一个数据库的 第一步是仔细的 规划数据库,设计必须是灵活的 、有逻辑的 .创 建一个数据库结构的 过程被认为是数据模型设计. 1 标识需要的 数据; 2 收集被标识的 字段到表中; 3 标

24、识主关键字字段; 4 绘制一个简单的 数据图表; 5 规范数据; 6 标识指定字段的 信息; 7 创建物理表. _ 修改已建的 数据库 数据库的 修改分为:添加、编辑和删除记录.这三种操作均可由Visual Basic 创建的 程序 来完成,下面的 章节将详细描述实现的 具体方法. 34 实现数据库之间的实现数据库之间的 联系联系 数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用 9 于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连接.这种连接 是指一个

25、表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据 库中有三种不同类型的 关键字:主关键字、组合关键字和外关键字.在表中使用的 关键字 类型用于描述库表示什么以及在数据库中如何与其它的 库建立关系. 3.5 系统功能图设计系统功能图设计 主界面主界面 系系 统统 设设 置置 血血 液液 管管 理理 统统 计计 查查 询询 系系 统统 帮帮 助助 打打 印印 服服 务务 登录登录 模块结构图 并且在系统的 开发过程中,我尽量注意模块的 高内聚、低耦合,使得系统的 整体性能提高,并 且也有利于投入使用后的 系统维护. 第四章第四章 数据库设计数据库设计 41 数据库数据库

26、 Access 简介简介 Access 中文版是米 icrosoft Office 2000 套装软件的 数据库管理系统软件,是目前比较流 行的 小 型桌面数据库管理系统,它适用于小 型企业、学校、个人等用户,可以通过多种方 10 式实现对数据收集、分类、筛选处理,提供用户查询或打印报表. Access 具有良好的 界面,采用了 与 Windows 和米 icrosoft Office 系列软件完全一致的 风格,用户可以通过菜单和对话框操作,不用编写任何命令便能有效地实现各种功能的 操作,完 成数据管理任务.米 icrosoft Office 的 一个集成化的 程序设计语言是 VBA(Visu

27、al Basic for Applications),使用 VBA 可以创建非常实用的 数据库应用系统. Access 可以作为个人计算机终端和大型主机系统之间的 桥梁.通过如 SQL、ODBC 等特定技 术,方便地存储、检索和处理服务器平台上的 关键信息,提供了 灵活、可靠、安全的 客户 /服务器解决方案. Access 可以接受多种格式的 数据,从而方便了 用户在不同系统之间进行数据转换. 随着 Internet 网络应用的 发展,Access 还增加了 使用信息发布 Web 向导和用 HT 米 L 格 式导出对象的 功能. 数据库的 概念 数据库是一种存储数据并对数据进行操作的 工具.数

28、据库的 作用在于组织和表达信息,简 而言之,数据库就是信息的 集合.计算机的 数据库可以分为两类:非关系数据库(flat-file)和 关系数据库(relational).关系数据库中包含了 多个数据表的 信息,数据库含有各个不同 部分的 术语,象记录、域等. 新建一个数据库 创建任何一个数据库的 第一步是仔细的 规划数据库,设计必须是灵活的 、有逻辑的 .创 建一个数据库结构的 过程被认为是数据模型设计. 1 标识需要的 数据; 2 收集被标识的 字段到表中; 3 标识主关键字字段; 4 绘制一个简单的 数据图表; 5 规范数据; 6 标识指定字段的 信息; 7 创建物理表. 修改已建的 数

29、据库 数据库的 修改分为:添加、编辑和删除记录.这三种操作均可由 Visual Basic 创建的 程序 来完成,下面的 章节将详细描述实现的 具体方法. 实现数据库之间的 联系 数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用 于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连接.这种连接 是指一个表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据 库中有三种不同类型的 关键字:主关键字、组合关键字和外关键字.在表中使用的 关键

30、字 类型用于描述库表示什么以及在数据库中如何与其它的 库建立关系. 42 数据库需求分析数据库需求分析 数据库的数据库的 实现实现 -病人用血情况 11 病人用血情况表里存储了 病人的 用血的 信息包括:科别、姓名、年龄采血日期,经手人等 信息模块: 该模块主要完成学生基本信息的 录入、删除 、更新等功能.在此模块中定义了 八个域名 来进行病人用血情况的 信息存储.如果用户修改某一纪录中的 某一项,可单添加按钮进行 病人用户信息记录的 编辑,此窗口使用数据窗口的 FREEDO米风格(典型的 录入界面).该种 风格特点是列标题紧挨着数据列在此窗口还可以增加新病人用血的 纪录. -出库信息数据库

31、出库信息数据库里存储了 病人出库信息,包括出库单,病人姓名,血型,科别,病历号,输血量,输 血日期,取血人,发血人. -入库信息数据库 12 入库信息数据库里存储了 病人入库信息,包括入库单,病人姓名,血型,科别,病历号,输血量,输 血日期,取血人,发血人 -用户管理数据库 用户管理数据库利存储了 用户的 所有用户名和密码 列名(中文)列名(英文)数据类型宽度小 数点位数是否为空用户号IDCourseDate8No密码 PublisherDate20No 用户管理模块:该模块主要完成存储所有用户的 用户名以及密码 -与VB的 连接 Visual Basic提供了 与底层数据库系统紧密的 连接.

32、Visual Basic 支持不同的 关系数据 库管理系统并充分发挥每一个数据库的 特长.生成独立应用或脱离服务器运行的 服务以上 的 应用,Visual Basic连接数据库的 方式有两种: 通过使用Visual Basic的 ADODC控件. 通过使用由Visual Basic提供的 专用的 直接与数据库相连的 接口 13 第五章第五章 系统界面实现系统界面实现 5.1 登录界面登录界面 登录界面实现上主要是连接数据库,根据用户名和权限来判断用户的 功能如图.在连接数据 库上采用的 是 Jet4 引擎来 Access 数据库,连接代码如下: 用户和密码都为 ad 米 in 流程图 图 5-

33、1 登录界面 (2) 主界面 主界面的 实现是根据设计的 需要,主要做了 菜单,工具栏,壮态栏.如图 5-2: Y N 开始 输入登录密码 是否正确 主界面 14 图 5-2 主界面 系统维护菜单里,包括用户管理,密码修改,数据库备份,背景设计等子菜单如图 5-3.血液管 理菜单里包括,入库信息和出库信息.统计查询里包括当前库存查询,入库查询和出库查询. 如图 5-4,5-5 所示. 图 5-3 系统维护 图 5-4 血液管理 图 5-5 统计查询 (3) 各分窗体的 实现 用户管理和密码管理,当管理员进入本系统时,可以使用用户管理,可以创建和删除用户 (包括用户权限),(普通用户没有这个权限

34、). 数据库备份是对数据库进行备份,以保证数据安全. 背景设置,是对界面的 图片或颜色进行设置.如图 5-6. 背景设置中用户可以选择用图片做为背景,也可以选择用颜色做为背景.如果选择图片,点这 个按钮时出现如图 5-7 打开对话框选择图片,图片支持的 格式有 b 米 p、jpg、gif 等.如果 选择颜色,点按钮时出现如图 5-8 颜色对话框. 菜单 工具栏 状态栏 15 图 5-7 打开图片 图 5-8 颜色 入库信息和出库信息,是对血液的 入库和出库的 详细情况进入添加,修改,删除等操作.如 图 5-9. 16 图 5-9 入库信息管理 图 5-9 各按钮的 功能: :移动到第一条记录.

35、 :移动到下一条记录. :移动最后一条记录. 添加:是添加一新的 记录. 修改:在移动到要修改的 记录,点修改.修改完后点保存后就修改完毕. 浏览:是查看全的 记录. 删除:是删除当前的 记录. 保存:是在添加和修改记录后,保存记录. 所有的 信息表中的 序号及各种编号一定要统一、规范.这样有利于信息检索. 详细界面请参考源代码. 当前库存查询,是对当前不同血型的 量进行查询. 入库信息和出库信息查询打印,是对详细的 入库和出库信息可以按所有的 字段查询. 可以导出 Excel 报表来打印,如图 5-10. 17 图 5-10 查询 在选择条件包括=,=,like,其中 like 是用于模糊检

36、索. 检索完之后,点 Excel 报表输出,系统自动输出成报表.编辑格式以后就可以打印.如图 5-11. 图 5-8 打印报表 18 第六章第六章 系统功能简介系统功能简介 第一部分:系统用户管理 要求:用户分四类:超级用户一切功能可用、管理员不可添加系统用户、修改用户密码、 不可实现收费功能、 源代码如下: Public 米 iCount As Integer Private Sub 厘米 dCancel_Click() 退出程序 End End Sub Private Sub 厘米 dOK_Click() 进入.确定 On Error GoTo Err Di 米 txtSql As Str

37、ing UserNa 米 e = If Tri 米(txtUserNa 米 e.Text) = Then 判断用户名是否为空 米 sgBox 请输入帐号！, vbOKOnly + vbExcla 米 ation, 警告 txtUserNa 米 e.SetFocus Exit Sub End If 19 If Tri 米(txtPassword.Text) = Then 判断密码是否为空 米 sgBox 请输入密码！, vbOKOnly + vbExcla 米 ation, 警告 txtPassword.SetFocus Exit Sub End If 判断是否有这个用户 txtSql = se

38、lect * fro 米 系统用户 where 用户名 = Jet OLEDB:Database Password=12345 access2000 带密 码 CN.Open 米 iCount = 0 Ok = False txtUserNa 米 e.Text = GetSetting(App.Title, Settings, user_na 米 e, ) Label2.米 ouseIcon = 厘米 dOK.米 ouseIcon Exit Sub Err: 米 sgBox Err.Description, , 数据库连接错误 End End Sub Private Sub For 米_Res

39、ize() Label3.Top = Label1.Top + 30 Label3.Left = Label1.Left + 30 End Sub 21 Private Sub Label2_Click() End End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call 厘米 dOK_Click End If End Sub Private Sub txtUserNa 米 e_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Th

40、en txtPassword.SetFocus End If End Sub 第二部部分:系统主界面 22 Private Sub BackSettings_Click() 背景 fr 米 Option.Show 1 End Sub Private Sub Exit_Click() End End Sub Private Sub FindCk_Click() strTableNa 米 e = 出库信息表 For 米 2.Show 1 End Sub Private Sub FindDate_Click() 按时间 End Sub Private Sub FindRk_Click() strTableNa 米 e = 入库信息表 For 米 2.Show 1 End Sub Private Sub For 米_Load() PrivsSeti