二、 系统的总体框架 1、 建立连接 育龄妇女信息系统(不管是县级还是乡级)都是由前台(应用系统)和后台(数据库)两层结构组成的。前台与后台之间的联接是通过RDO(远程数据对象)与Access进行联接的。因为当时使用VB5进行编程,ADO(Active Data Object)的概念还未引进,导致对SQL和Access数据库的操作不统一。现在VB6已经将对数据库的操作都统一道ADO之上,城区的系统就是用ADO编写的。 当系统启动时,首先建立前台系统与数据库的联接。对于县级系统来说,首先要输入县服务器的名称,而所有县的数据库名称都是一样的,是“CARDDB”。然后通过RDO建立与数据库之间的连接。 2、 功能调用 系统登录成功后,进入程序功能调用主界面,考虑到功能调用的使用方便,没有使用菜单方式。而是将程序要使用的功能先写到数据库的tbFunction功能表中,进入主界面后,先调用第一层功能列表,也就是从tbFunction表中读出chrBelongTo为00的功能列表,将其功能标题显示在主界面上。用户选择要使用的功能,点击相应的功能标签条,调用该功能,该功能对应的窗体就会打开。 四、系统的设计 计划生育信息管理系统,分模块设计程序,以卡片迁移为例。卡片迁移类型分为跨县、跨乡、未明三种。跨县是指育妇迁出本县,将注销乡和县数据库中该育妇的数据。跨乡是指迁出到本县的其他乡,将注销本乡的数据,登记县迁移数据库,等待迁入乡将该育女妇的数据取走。未明是指迁出时还不知道该育妇将迁往何处,将注销本乡的数据,登记县迁移数据库,等待进一步的信息获得,明确迁入乡或县后,在按前两种方式处理。卡片迁移流程: Private Sub FemaleMigrate() Dim strSQL As Sring Dim strCountryID As Sring Dim CountryName As Sring Dim strName As Sring Dim ds As Recordset |