当今，RDO2.0是VisualBasic访问关系型ODBC数据源的最佳界面接口，就如DAO/Jet是Jet和ISAM（顺序索引查找方法）类型数据源首选的访问接口一样。这两种方法都完整地集成于VisualBasic中，并且形成了VisualBasic核心的数据访问策略。RDO2.0的数据访问速度远快于RDO1.0 的访问速度，并且RDO和DAO都已发展为相当成熟的技术。因此假如用户需要访问ODBC 数据源，可以使用RDO；如果需要访问ISAM或Jet类型数据源，那么就使用DAO/Jet。 ActiveDataObjects(ADO)作为另一种可供选择的技术出现，正在逐渐代替其他数据访问接口。由于RDO同ADO的体系结构非常相似，因此当需要将RDO数据接口转换为ADO时，仍可以使用RDO设计的代码。有人曾提出这样的问题：是否现在就使用ADO?虽然VB5使用ADO的数据访问接口是可能的，但对于目前ADO的使用状况，将RDO2.0 或DAO3.5同ADO做比较显得意义并不很大。所以回答是：如果感觉方便，还是尽早转移到ADO，这意味着应用软件对各种数据访问接口将继续予以支持。ADO是独立于开发工具和开发语言的简单而且容易使用的数据接口，同ADO相比，其他数据访问接口都会黯然失色。所有的数据源都可以通过ADO来访问，在今天已逐渐成为现实。随着ADO对象模型的引入，Visual Basic 6.0除了保留以往的一些绑定控件外，又提供了一些新的成员来连接不同数据类型的数据。这些新成员主要有DataGrid、DataCombo、DataList、DataReport、MSHFlexGrid、MSChart控件和MonthView等控件。这些新增绑定控件必须使用ADO数据控件进行绑定。Visual Basic 6.0在绑定控件上不仅对DataSource和DataField属性在连接功能上作了改进，又增加了DataMember与DataFormat属性使数据访问的队列更加完整。DataMember属性允许处理多个数据集，DataFormat属性用于指定数据内容的显示格式。
通过比较可以发现ADO技术优越性较强，而且在设计系统时可以通过ADO控件绑定来实现对后台数据库的访问，不必编写代码，这样方便、快捷。所以，在这里我选择了该方案。
5.1 用户登录模块的设计与实现
本模块界面如下图5-1所示：
其操作如下：在“密码”后的Text文本框中输入密码“wxy”(该密码是在系统初始化时设置的，在进入系统后可以通过用户管理模块中的“密码修改”窗体来自行设置密码)，然后单击【确定】按钮，如果输入的密码不正确，系统会出现如图5-2所示对话框提示你重新输入密码的，但最多输入3次，若3次密码均错误，则退出系统。
功能：检验用户的合法性
图 5-1
代码及实现方式：
在【确定】按钮的Click事件中输入如下代码：
Static k As Integer
Set txtPassword.DataSource = Adodc1 ‘与密码库连接
If txtPassword.Text = Trim$(Adodc1.Recordset("密码")) Then
Unload Me ‘进入系统中的主窗体并关闭登录窗体
frmmain.Show
以上这段代码是完成在用户输入的密码与密码库中的密码相匹配时，就可以进入系统主界面使用该系统了。任何一个应用系统都需要进行用户的合法性验证，这是必需的，涉及到安全方面的问题。
Else
k = k + 1
an = MsgBox("无效的密码，请重试！还有" & (3 - k) & "次机会", vbExclamation + vbOKOnly, "警告提示") ‘如输入的密码错误则提示信息
txtPassword.SetFocus
SendKeys "{Home}+{End}"
If an = 2 Then
End
End If
If k = 3 Then ‘如果输入的密码3次还不正确则自动退出系统
MsgBox "对不起，你无权使用本系统！"
这段代码要实现的是在连续输入3次密码均不正确的情况下，系统将会自动关闭，以阻止非法用户的入侵。
图 5-2
当输入的密码正确，便进入了主窗体。主窗体的设计采用多文档界面(MDI)技术。一个工程中主窗体是惟一的，多文档界面子窗体MDIChild属性为True，在后面介绍的民兵个人信息录入窗体(frmMbxxlr) 和民兵信息查询窗体(frmCx)都是MDI子窗体，打开此类窗体使用的show函数。再设置主窗体(frmmain)的WindowsState属性为Maximized,主窗体以最大化方式显示。系统的主窗体frmmain如图5-3所示：
图 5-3
5.2 民兵个人信息录入模块的设计与实现
本模块包括四个子模块：民兵个人信息录入、民兵信息删除、修改及打印。如图5-4所示。
(1)民兵个人信息录入
输入民兵个人的基本信息资料如：个人编码、行政编码、单位编码、姓名、性别、出生年月、电话、文化程度、是否培训、转业军人、政治面貌、职务。在录入时，要检查各项信息是否全部输入，如果没有全部输入，则弹出messagebox，显示没有输入的项。由于民兵的个人编码是惟一，所以在录入时要注意检查是否有重复的个人编码，并给出相应的信息提示。以便操作人员进行核查。
(2)民兵信息删除
操作如下：当要删除某条记录时，首先选中它，然后单击【删除】按钮，为了防止误操作，这时会弹出一个对话框，如图5-5所示，如核查后真的要删除该记录，单击该对话框中的【确定】按钮，否则单击【取消】按钮终止删除行为。
图 5-5
(3)民兵信息修改
操作如下：对要修该的信息通过双击该条记录，将这条记录的信息回显到相应的文本框中，修改好后，再单击【修改】按钮，将修改的信息保存下来入库。在该窗体中你还能看到修改后的这条记录。
(4)打印
该功能是对民兵信息进行打印。只需单击【打印】即可。
代码及实现方式：
民兵个人基本信息录入的实现，在该窗体(frmMbxxlr)【录入】按钮的Click事件中输入如下代码：
If DataCombo1.Text = "" Then '检查各控件内容是否为空
MsgBox "请输入行政编码", vbInformation + vbOKOnly, "提示"
DataCombo1.SetFocus
Exit Sub
民兵信息管理系统(七)相关范文