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

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/11/11

以上为本篇毕业论文范文民兵信息管理系统(七)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找

相关论文