当前位置:跳过导航链接计算机毕业设计首页 : VB毕业设计 : 详细内容

VB商店客户管理系统(程序下载)(9)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-03 点击数:17512

计算机毕业设计采购登记明细功能介绍介绍:

(2)frmCgdjMx(采购登记明细)
此模块可以查看已经登记过的采购明细,包括采购代码、采购商、采购日期,商品名称、商品类别、商品规格、计量单位、单价、数量、金额;总数量、总金额、录入人和备注。并可以将此单据作废。

以下是引用片段:

Private Sub addData()
'存储菜单主信息
'存储商品信息
'1
Call Exec_SqL("delete from cgdj where cgid='" & Me.Text2.Text & "'")
Call Exec_SqL("delete from cgmx where cgid='" & Me.Text2.Text & "'")
Call Exec_SqL("insert into cgdj (cgid,khmc,cgrq,zsl,zje,jlr,bz) " _
     & " values('" & Me.Text2.Text & "','" & Trim(Me.Text3.Text) & "'," _
     & "'" & Me.DTPicker1.Value & "'," & Val(Me.Text7.Text) & ", " _
     & " " & Val(Me.Text6.Text) & ",'" & strRyName & "','" & Me.Text1.Text & "')")
Dim i  As Long
'2
For i = 1 To ddd.Rows - 1
    If ddd.TextMatrix(i, 0) <> "" Then
       Call Exec_SqL("insert into cgmx (cgid,spid,sl,je) values('" & Me.Text2.Text & "'," _
        & " '" & Trim(ddd.TextMatrix(i, 0)) & "'," & Val(ddd.TextMatrix(i, ddd.Cols - 2)) & "," & Val(ddd.TextMatrix(i, ddd.Cols - 1)) & ")")
       Dim strresult As String
       strresult = UpdateKcmm(Trim(ddd.TextMatrix(i, 0)), "+", Val(ddd.TextMatrix(i, ddd.Cols - 2)), Val(ddd.TextMatrix(i, ddd.Cols - 1)), "")
       If strresult <> "OK" Then
          MsgBox strresult
          Exit Sub
       End If
    End If
Next
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第10页为计算机毕业论文采购信息查询部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线