rs.Fields(\证件号码\证件号码\rs.Fields(\血型\血型\rs.Fields(\因子\因子\rs.Fields(\过敏史\过敏史\rs.Fields(\病房类型\病房类型\rs.Fields(\病房号\病房号\rs.Fields(\主治医师\主治医师\rs.Fields(\住院时间\住院时间\rs.Fields(\出院时间\
rs.Fields(\登记员\登记员\rs.Fields(\备注\备注\rs.Fields(\住院费用\rs.Update rs.Close rs1.Delete rs1.Update rs1.Close
11． 出院病人查询
rs.Open \出院病人 where 患者姓名 like'%\cn, adOpenStatic, adLockReadOnly 根据出院病人的编号查询
测试阶段
1. 用户管理部分
新增加用户,删除用户,更换用户,更改密码!在删除用户的时候超级管理员用户不能删除,而且普通操作员登录后不能删除用户,在删除管理员的时候要用户提了确认信息才能删除,以免用户的误操作!在调试用户管理部分时候以上问题都要注意。 2. 病人登记/查找部分
在病人登记的时候要能够自动显示当前的操作员，并写入到数据库当中。登记日期也是由系统自动生成。查询病人的同时有精确查询和模糊查询，这样更加增加了系统的灵活性，在调试时候也要用大量的数据来试。如数据库中定义了姓名不能超过10个字符，调试时候超过10个就报错
所以必须定义text的maxlength为一个固定的长度，以防止用户输入错误的信息而引起的错误。后来的地方对这方面也加以注意. 3. 登记出院/查询出院病人部分
这部分调试的难点在与能够自动生成病人在住院期间的费用，要用到DateDiff来实现时间的相减。同时登记出院成功后要正确的把病人的信息加载到出院病人表里面。以便下面的查询！而查询出院病人则通过病人惟一的编号查询。增强了准备性！ 4. 备份/恢复部分
这部分是调试阶段花的时间最多的，也是从书上看到可以通过执行SQL命令来备份和恢复数据库，调试的同时先备份然后改变数据再恢复看能不能成功。花了好多精力才调试成功。这样有力的增强了系统的数据可靠性。可以及时备份数据。
总结与致谢
在本次的课程设计中主要是VB和相关知识和数据库的知识相结合，而VB和数据库又是通过ADO(工程→部件→Microsoft ADO date control 6.0(sp6))来进行连接，我的课程设计中用的是连接串（connection=\Security Info=False;Initial Catalog=zy;Data Source=(local)\）与数据库相连，用rs.Fields()来更新、修改、增加、记录集。用rs.delect来删除记录集。尤其重要记录集打开了一定要在下次用到的时候前关闭记录集，不然
开始做的时候也有好多困难，比如：在比较的同时数据库中存在空格必须加上trim语句，数据库的增加必须要有rs.addnew和rs.update。模糊查询要用like来比较。在定义数据库的类型的时候也要很好的虑，以便后面的操作更加容易，增加到数据库中的数据的类型必须和数据库中预先定义的类型相同。日期型的用来一个DTPICKER控件（工程→部件→Microsoft Windows common controls-2 6.0(sp4)），在出院的同时计算病人的住院天数开始也考虑了好处后来在老师的帮助下才知道时间型的变量可以直接进行相减。
但是有的时候有些错误是SQL SERVER 2000本身的问题，重新建立数据库后问题就解决了。
做完课程设计后对数据库的知识有了更进一步的理解，在此也感谢老师的教导和同学的帮助，才能使我顺利完成课程设计
参考文献
1.《Visual basic 6.0 数据库开发学习教程》 北京大学出版社 2.《Visual basic 程序设计与系统应用》 电子工业出版社 3.《Visual basic 数据库系统与开发》 清华大学出版社 4.《Visual Basic数据库高级实例导航》 科技出版社
5.《Visual Basic 高级编程及其项目应用开发》中国水利水电出版社