基于VB工程造价管理软件开发.docVIP

基于VB工程造价管理软件开发 　　摘 要 本文拟采用Visual Basic 6.0作为开发工具，Microsoft Excel作为数据库。通过VB连接Excel实现对数据库中数据的分析、统计等功能，有效控制及利用资金，拟设计一款工程造价管理软件，通过控制工程理念管理工程造价。 　　关键词 VB 工程造价 管理软件 　　中图分类号：TU723.3 文献标识码：A 　　为了时时跟踪工程项目实施进度，有效控制及利用资金，拟设计一款工程造价管理软件，通过控制工程理念管理工程造价。 　　1开发工具的选择 　　本课题拟采用Visual Basic 6.0作为开发工具，Microsoft Excel作为数据库。通过VB连接Excel实现对数据库中数据的分析、统计等功能。使用VB连接Excel制作本课题的原因有以下几点：（1）大多数用户可以熟练使用Excel软件。这使得用户可以在系统生成的Excel报表基础上进行各种修改操作。（2）可以灵活方便的设计复杂报表样式。有时候用户的报表样式会非常复杂，使用Excel可以快速制作复杂报表。（3）Excel自带超强计算能力和多种数据格式。通过使用Excel自带的计算功能可以不用单独编写代码就能生成计算结果。（4）通过设置Excel中单元格属性就可以得到不同的数据显示格式。（5）VB中可以很好地操控Excel。通过相关控件，可以直接在系统中显示Excel文件内容，可以通过代码实现向Excel文件输入数据、设置格式和打印文件。可以通过代码另存模板的数据实现导出功能。 　　2数据安全管理 　　为保护数据安全，设立密码登陆界面，当输入用户及密码时软件校验用户名及密码。系统会根据输入情况做出对应的反应，当密码输入错误3次后直接退出该系统。具体代码如下： 　　Sub 用户登录（ ） 　　userLogonForm.Show 　　End Sub 　　//声明用户登录系统错误参数，初始化为0 　　Dim errorNum As Integer 　　//用户输入用户名、密码，点击登录按钮，验证用户输入的信息是否正确。如果正确则当前登录系统窗体隐藏，操作窗体展示。如果不正确，并且输入三次不正确就会关闭当前窗体。 　　Private Sub ulogonButton_Click（ ） 　　Dim i As Integer 　　Dim isRight As Boolean 　　isRight = False 　　//获得用户输入的用户名 　　uname = Trim（uname.Text） 　　//获得用户输入的密码 　　upwd = Trim（upwd.Text） 　　//获取用户信息表中所有的可用的行，for循环每行 　　x = Sheets（“用户信息”）.UsedRange.Rows.Count 　　For i = 2 To x 　　//获取用户信息表中的用户名 　　t_uname = Sheets（“用户信息”）.Cells（i， 1） 　　//获取用户信息表中的密码 　　t_upwd = Sheets（“用户信息”）.Cells（i， 2） 　　//将用户输入的用户名、密码与用户信息表中的用户名、密码进行对比 　　If t_uname = uname And t_upwd = upwd Then 　　isRight = True 　　Exit For 　　End If 　　Next 　　//isRight等于true表示用户输入的用户名、密码正确。则隐藏当前登录的窗体，触发下一个窗体显示 　　If isRight = True Then 　　Call hiddenLogonForm 　　Call activeNextForm 　　//isRight不等于true表示用户输入的用户名、密码不正确。 　　Else 　　//当输入错误超过3次，此处三次是，errorNum为0、1、2等三次.则退出当前系统 　　If errorNum = 2 Then 　　End 　　//当输入错误则会提示给用户系统的错误提示信息 　　Else 　　errorInfoLabel.Caption = “您输入的用户名或密码不正确，请重新输入” 　　errorNum = errorNum + 1 　　End If 　　End If 　　End Sub 　　//激活下一个窗体，触发输入计算窗体显示 　　Private Sub activeNextForm（ ） 　　UserForm1.Show 　　End Sub 　　//隐藏登录窗体方法 　　Private Sub hiddenLogonForm（ ） 　　userLogon