本文拟采用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 用户登录( )
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( )
userLogonForm.Hide
End Sub
3实现功能
(1)通过录入工程定额编码确定施工项目，如果录入非法定额编码系统会做出提示。
(2)再次输入工程量、单价，在系统中可以输入多个定额编号以及对应的工程量及单价。
(3)系统将各单项工程金额汇总，并依据国家规定费率计算出最终总价。
(4)系统加入分析功能，即套用地区定额标准对报价进行校对，并计算核减价格，实现工程造价分析。
作者：周通 曾水平 来源：科教导刊·电子版 2014年35期
