|
4.3.2合同基本信息录入模块设计 内容来自论文无忧网 www.paper51.com 1. 合同基本信息录入模块的主要功能是能够对合同的基本信息进入录入，包括合同的编号、合同的类别、合同名称、合同部门、所属部门、合同开始日期、合同结束日期、合同额等。 http://www.paper51.com 从严格意义上来说本模块是合同统计模块中的一个小模块，这实现合同统计模块中的合同信息录入的功能。 内容来自论文无忧网 www.paper51.com 2.窗体界面的设计: 内容来自论文无忧网 www.paper51.com 新建一个窗体，然后在上面加上各种必须的控件，运行图如下所示： 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com 3.核心代码及解释如下： 内容来自www.paper51.com
在输入正确的合同信息后，按“确定”按钮触发的事件代码如下所示：Private Sub comOK_Click() paper51.com Dim strtxtSQL As String 内容来自www.paper51.com
copyright paper51.com If txtID.Text = "" Or txtName.Text = "" Then copyright paper51.com
MsgBox "合同编号不能为空" 内容来自论文无忧网 www.paper51.com txtID.SetFocus http://www.paper51.com ExitSub 内容来自论文无忧网 www.paper51.com
End If 内容来自www.paper51.com
copyright paper51.com
'计算已收款 paper51.com
If Val(txtPactMoney.Text) < Val(txtEndMoney.Text) Then paper51.com MsgBox "已收金额不能大于合同金额" http://www.paper51.com txtEndMoney.SetFocus 内容来自www.paper51.com
ExitSub 内容来自论文无忧网 www.paper51.com End If paper51.com txtNotMoney.Text = Val(txtPactMoney.Text) - Val(txtEndMoney.Text) http://www.paper51.com
paper51.com '计算未付成本 内容来自论文无忧网 www.paper51.com If Val(txtCost.Text) < Val(txtEndCost.Text) Then 内容来自www.paper51.com MsgBox "已付成本不能小于成本" 内容来自论文无忧网 www.paper51.com txtEndCost.SetFocus http://www.paper51.com ExitSub copyright paper51.com End If 内容来自www.paper51.com txtNotCost.Text = Val(txtCost.Text) - Val(txtEndCost.Text) paper51.com
paper51.com '计算未付税金 http://www.paper51.com If Val(txtTax.Text) < Val(txtEndTax.Text) Then 内容来自论文无忧网 www.paper51.com MsgBox "已付税金不能小于应付税金" http://www.paper51.com txtEndTax.SetFocus http://www.paper51.com
ExitSub copyright paper51.com End If 内容来自www.paper51.com txtNotTax.Text = Val(txtTax.Text) - Val(txtEndTax.Text) copyright paper51.com
内容来自论文无忧网 www.paper51.com
'计算项目毛利 paper51.com If Val(txtPactMoney.Text) < Val(txtCost.Text) + Val(txtTax.Text) Then http://www.paper51.com MsgBox"成本+应付税金不能大于合同额" 内容来自论文无忧网 www.paper51.com txtTax.SetFocus 内容来自www.paper51.com ExitSub paper51.com
End If paper51.com txtGrossProfit.Text = Val(txtPactMoney.Text) - Val(txtCost.Text) -Val(txtTax.Text) http://www.paper51.com
paper51.com |