鉴于大家对VB类作品十分关注，我们编辑小组在此为大家搜集整理了“VB身份证管理系统的设计”一文，供大家参考学习
菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。 您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 2．实现工具栏 CoolBar控件与Office97种看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你局可以向用户提供更好的灵活性和义用性。Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。 选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象如下： (1) Align属性定义工具条在窗体中的位置。 (2) ToolTipText属性是字符串类型，定义控件的提示字符。 (3) Style属性定义按钮外观。 (4) ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。 (5) HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图像。 (6) DisabledImageList属性定义工具条按钮无效时显示的图像。 (7) 创建工具条包括ImageList和Toolbar控件 ImageList为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。 3．帮助 专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运行于32位Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。 为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性 4.2、系统模块的具体实现 4.2.1、Frmdl窗体: Frmdl窗体用于接受用户的用户名/密码输入，判断是否合法。如果是合法用户，释放该窗体并调出Frmver窗体；否则信息提示无此用户。Frmdl窗体的设计界面如图所示，窗体中的主要对象及其属性如表所示：
在该窗体上设计如下事件过程： Option Explicit Private Sub Commcancel_Click() End End Sub Private Sub Commok_Click() ''声明变量 Dim username As String Dim password As String Dim local_db As String Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset If Text1.Text = "" Then MsgBox "请输入用户名", , "警告" Text1.SetFocus Else If Text2.Text = "" Then MsgBox "请输入密码", , "警告" Text2.SetFocus End If End If If Text1.Text <> "" And Text2.Text <> "" Then Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\data\db.mdb" + ";Persist Security Info=False;" ''连接数据库 username = Trim(Text1.Text) password = Text2.Text ''检查用户名是否正确 local_db = "select 用户名 from 用户表" + _ " where 用户表.用户名=" + "''" + _ username + "''" rst.Open local_db, cnn If Not (rst.BOF And rst.EOF) Then rst.Close ''检查密码是否正确 local_db = "select 密码 from 用户表" + _ " where 用户表.用户名=" + "''" + _ username + "''and" + _ " 用户表.密码=" + "''" + password + "''" rst.Open local_db, cnn If Not (rst.BOF And rst.EOF) Then userid = Text1.Text Unload frmdl ''判断登陆用户是否为admin If username = "admin" Then mainfrm.xitong.Enabled = True ''激活主窗口系统菜单 Else mainfrm.xitong.Enabled = False End If frmver.Show ''显示版本窗口 Else MsgBox "您输入的密码不正确，请重新输入！", , "警告" Text2.Text = "" Text2.SetFocus End If Else MsgBox "系统中无此用户", , "警告" Text1.Text = "" Text1.SetFocus End If End If End Sub Private Sub Timer1_Timer() End Sub Private Sub Form_Load() End Sub 4.2.2、mainfrm窗体: mainfrm窗体是一个多文档窗体，窗体中包含的主要对象及其属性,在该窗体有一个菜单，该菜单的结构如下： xitong.Enabled = False Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False GetStatus "添加、迁入人口" End Sub Private Sub Command3_Click() frmczhuzhi.Show guanli.Enabled = False chaxun.Enabled = False tongji.Enabled = False xitong.Enabled = False Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False GetStatus "查询住址" 4.2.3、DataReport报表设计: 这里我们设计了两个报表分别打印身份证和人口基本信息，先建立数据环境DataEnvionment1，其步骤如下： （1） 择“工程”菜单的“更多ActiveX设计器”选项，在出现的下拉菜单中选择“DataEnvionment1”选项，出现如图所示的界面: （2） “Connection1”上单击鼠标右键，在出现的快捷菜单中选择“属性”选项， 出现“Data Link Properties”对话框: 
| |||||||||||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | |||||||||||||||
本文选自计算机毕业设计http://myeducs.cn
|
