息；否则，可以通过键盘中的上下键进行选择，然后按（ENTER）键，即可在"就诊科室"文本框中显示该科室的信息。代码如下: IfKeyCode=vbKeyReturnAndIndex=2Then Adodc1.RecordSource="select*from科室信息表where拼音码like+'"+Txt1(2).Text+"'+'%'" Adodc1.Refresh IfAdodc1.Recordset.RecordCount>0Then GridKS.Visible=True GridKS.SetFocus Else GridKS.Visible=False Txt1(3).SetFocus EndIf EndIf 2.将表格中的数据显示在MS1表格中 药品信息或诊疗项目信息被检索出来后，将显示在DATAGRID表格中。下面以药品表格（GRIDYP）为例介绍他的设计方法。 在GRIDYP表格的KEYDOWN事件下，当用户按下（ENTER）键时，将GRIDYP表格中的药品信息赋给MS1的各个单元格。代码如下: IfKeyCode=vbKeyReturnThen WithAdodc2.Recordset '赋值给MS1表格 MS1.TextMatrix(MS1.Row,3)=Trim(.Fields("品名")) MS1.TextMatrix(MS1.Row,5)=Format(.Fields("零售价"),"0.00") EndWith MS1.Col=3 Text1.Text=MS1.Text Text1.SetFocus GridYP.Visible=False EndIf IfKeyCode=vbKeyEscapeThen'按ESC键GridYP不可见 GridYP.Visible=False Text1.SetFocus'text1获得焦点 EndIf 3.自动计算收费项目金额和总金额 计算收费项目金额和总金额应该在Text1_Change事件下完成的。代码如下: MS1.Text=Text1.Text'赋值给MS1表格 IfMS1.Col=4Then MS1.TextMatrix(MS1.Row,6)=Val(MS1.TextMatrix(MS1.Row,4))*Val(MS1.TextMatrix(MS1.Row,5)) CmdNextCF.Enabled=True CmdAddItem.Enabled=True CmdDelItem.Enabled=True CmdJS.Enabled=True CmdCancel.Enabled=True EndIf IfMS1.Col=5ThenMS1.TextMatrix(MS1.Row,6)=Val(MS1.TextMatrix(MS1.Row,4))*Val(MS1.TextMatrix(MS1.Row,5)) DimAAsSingle Fori=1ToMS1.Row IfMS1.TextMatrix(i,1)<>""Then A=Val(MS1.TextMatrix(i,6))+A'求合计金额 EndIf Nexti LblZje.Caption=Format(A,"0.00") 当"数量"单元格发生变化时，计算收费项目金额和总金额。总金额是指表格中所有数据的合计金额，计算它时应该将计算语句写在FOR......NEXT循环语句里。 总结 经过这次毕业设计，我感到自己无论在专业知识方面，还是在动手能力方面都有了很大的收获。此次所使用的VB对我来不是一门新的语言，但是操作起来还是有些困难，现在我对它已经有了一定的了解。特别是对ADO控件。SQLServer以前学过，对数据库的操作有初步掌握，此次毕业设计也使用SQLServer数据库，这无疑增长了我这方面的经验，使我数据库有了更深一步的了解与认识，现在运用起来比以前熟练了很多。 另外，通过此次毕业设计，本人对开发一个软件的各个阶段有了一定的了解，在实际动手的过程中，深刻体会到书写代码时良好的习惯对错误的检查和代码的维护都有很大的帮助，不像以前写代码时，只想实现要实现的功能，不管代码的书写质量，内存空间的有效利用等问题。 但是由于时间仓促，加上水平有限，一开始没有做好很好的需求分析，草草的设计了数据库，现在系统完成了回过头去看一下，在数据库设计过程中，还是存在许多不合理的地方。比如:在科室信息表中，我设计了，科室名称与科室简称还有拼音码，在操作过程中，似乎觉得没有必要，有些重复现象，还有没有做到拼音码是唯一的，运行过程中，没有对已有的拼音码进行提示，在设计过程中，我也遇到了许多问题如:在做系统时,在打印报表时,一开始总出现数据错位的现象,经过反复检查代码后,仍然不能解决.最后考虑到打印数据错位,经过老师和同学的帮助，最后问题解决了，从中让我学会的如何去调试程序和解决问题。 致谢 三年的大学生涯即将结束，借此机会向三年来关心过我，帮助过我得老师，同学们表示深深的谢意！ 特别要感谢我的导师沈卓芹老师，感谢她在系统设计和任务安排上长时间的指导，从开始设计数据库到最后的完成整体设计，以及论文的撰写完毕，都给予了极大的帮助。在我的毕业设计遇到困难的时候，是沈老师把我从误区中拉了出来，而且她还告诉我了许多解决问题得方法和技巧，这将为我今后走上工作岗位奠定基础。 参考文献 [1]黄梯云.管理信息系统[M].北京:高等教育出版社,2000 [2]薛华成.管理信息系统[M].3.北京:清华大学出版社1999.5 [4]张金城.管理信息系统[M].北京:北京大学出版社2001.8 [5]罗超理,李万红.管理信息系统原理与应用[M].北京:清华大学出版社2002.9 [6]朱顺泉,姜灵敏.管理信息系统理论与实务[M].北京:人民邮电出版社2004.4 [7]史嘉权.数据库系统基础教程[M].北京:清华大学出版社1999 [8]AnnMajchrzak,CynthiaM.Beath,RicardoA.Lim,WynneW.Chin.Managementclientdialogueduringinformationsystemsdesigntofacilitateclientlearning[J].MISQuarterly,2005,29(4):653-667. [9]LisaM.Ellram,BernardJ.LaLonde,MaryMargaretWeber.Retaillogistics[J].InternationalJournalofPhysicalDistribution&LogisticsManagement,1999,29(7):477-494. [10]JeffreyD.Ullman,JenniferWidom.AFirstCourseinDatabaseSystems.Prentice-HallInternational,Inc[R].1998 附录 文件名文件类型说明 frm_main 窗体文件主程序窗体 main_about 窗体文件 关于窗体 main_bb_jzkstjbb 窗体文件 就诊科室统计报表窗体 main_bb_jztjbb 窗体文件结帐统计报表窗体 main_bb_rjbb 窗体文件收款员日结报表窗体 main_bb_zxkstjbb窗体文件 执行科室统计报表窗体 main_charge 窗体文件 门诊收费窗体 main_enter窗体文件 操作员登录窗体 main_help 窗体文件 系统帮助窗体 main_js 窗体文件门诊收费结算窗体 main_Ksgl_Add 窗体文件科室数据添加窗体 main_Ksgl_Update 窗体文件科室数据修改窗体 main_Note 窗体文件设置收据号窗体 main_Tfgl 窗体文件退费管理窗体 main_Tjcx_sfcx 窗体文件收费查询窗体 main_Tjcx_ypcx 窗体文件药品查询窗体 main_Tjcx_zlxmcx 窗体文件诊疗项目查询窗体 Main_Ypwh 窗体文件药品维护窗体 Main_Ypwh_Add 窗体文件药品数据添加窗体 Main_Ypwh_Kcxg 窗体文件药品库存数量管理窗体 Main_Ypwh_Ypdate 窗体文件药品数据修改窗体 Main_Ysgl 窗体文件医生管理窗体 Main_Ysgl_Add 窗体文件医生数据添加窗体 Main_Ysgl_Update 窗体文件医生数据修改窗体 Main_Zlxmgl 窗体文件诊疗项目管理窗体 Main_Zlxmgl_Add 窗体文件诊疗项目数据添加窗体 Main_Zlxmgl_Update 窗体文件诊疗项目数据修改窗体 Modulel 标准模块文件公共模块 医院门诊管理系统.exe 执行文件 医院门诊管理系统.vbp 工程文件 软件使用说明书 您好！欢迎使用中小型医院门诊管理系统，本系统是针对中小型医院而开发的，它是您提高医院管理水平的好帮手，它能协助您简便、高效地完成医院的管理工作。 无论对初学者还是熟悉计算机的人士，本使用手册均适用。它包含使用中小型医院门诊管理系统的详细资料，详细讲述了包括基本概念和使用方法。有了本使用手册便可以轻松学会使用医院门诊管理系统，并且真正的掌握如何使用本软件为企业信息化建设服务。 一、中小型民营医院门诊管理系统简介 本文所述的医院门诊管理系统属于典型的单层数据库应用系统。它的设计宗旨是

上一篇：VB医院血库管理系统(论文和程序)
下一篇：法律专业开题报告范文