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

　　本文拟采用Visual Basic 6.0作为开发工具，Microsoft Excel作为数据库。通过VB连接Excel实现对数据库中数据的分析、统计等功能，有效控制及利用资金，拟设计一款工程造价管理软件，通过控制工程理念管理工程造价。

　　为了时时跟踪工程项目实施进度，有效控制及利用资金，拟设计一款工程造价管理软件，通过控制工程理念管理工程造价。

　　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 用户登录( )

　　End Sub

　　//声明用户登录系统错误参数，初始化为0

　　Dim errorNum As Integer

　　//用户输入用户名、密码，点击登录按钮，验证用户输入的信息是否正确。如果正确则当前登录系统窗体隐藏，操作窗体展示。如果不正确，并且输入三次不正确就会关闭当前窗体。

　　Private Sub ulogonButton_Click( )

　　Dim i As Integer

　　Dim isRight As Boolean

　　isRight = False

　　//获得用户输入的用户名

　　uname = Trim()

　　//获得用户输入的密码

　　upwd = Trim()

　　//获取用户信息表中所有的可用的行，for循环每行

　　x = Sheets(“用户信息”).

　　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

　　n = “您输入的用户名或密码不正确，请重新输入”

　　errorNum = errorNum + 1

　　End If

　　End If

　　End Sub

　　//激活下一个窗体，触发输入计算窗体显示

　　Private Sub activeNextForm( )

　　End Sub

　　//隐藏登录窗体方法

　　Private Sub hiddenLogonForm( )

　　End Sub

　　3实现功能

　　(1)通过录入工程定额编码确定施工项目，如果录入非法定额编码系统会做出提示。

　　(2)再次输入工程量、单价，在系统中可以输入多个定额编号以及对应的工程量及单价。

　　(3)系统将各单项工程金额汇总，并依据国家规定费率计算出最终总价。

　　(4)系统加入分析功能，即套用地区定额标准对报价进行校对，并计算核减价格，实现工程造价分析。

　　作者：周通　曾水平 来源：科教导刊·电子版 2014年35期