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

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

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

计算机毕业设计商品信息维护功能介绍:

(2)frmAddSp(商品信息维护)
此模块可以对商品信息进行维护,添加、修改和删除操作。添加、修改时,输入商品名称、计量单位、单价、商品规格、备注,选择新类别,此时判断商品名称和新类别是否为空。
(1)frmCgdj(采购登记)
此模块用于将采购的商品进行登记,登记时需选择采购商和商品,列表中显示采购的商品名称、商品类别、商品规格、计量单位、单价、数量和金额。列表下边显示总数量、总金额、记录人和备注。

以下是引用片段:

Private Sub ddd_DblClick()
'1.当选择一笔业务时,显示其详细的信息(业务信息和商品信息)
'注:信息显示模式为调用 Sql Server数据库中的视图
'2.循环显示商品信息
'1
If ddd.TextMatrix(ddd.Row, 0) = "" Then Exit Sub
frmCgdjMx.Text2.Tag = Trim(ddd.TextMatrix(ddd.Row, 0))
frmCgdjMx.Text2.Text = Trim(ddd.TextMatrix(ddd.Row, 0))
frmCgdjMx.DTPicker1.Value = Trim(ddd.TextMatrix(ddd.Row, 1))
frmCgdjMx.Text3.Text = Trim(ddd.TextMatrix(ddd.Row, 2))
frmCgdjMx.Text1.Text = Trim(ddd.TextMatrix(ddd.Row, 6))
frmCgdjMx.Text7.Text = Trim(ddd.TextMatrix(ddd.Row, 3))
frmCgdjMx.Text6.Text = Trim(ddd.TextMatrix(ddd.Row, 4))
frmCgdjMx.Text4.Text = Trim(ddd.TextMatrix(ddd.Row, 5))
Dim rs As New ADODB.Recordset
'2
Set rs = ExecSql("select * from V_采购登记 where cgid='" & Trim(ddd.TextMatrix(ddd.Row, 0)) & "'")
With rs
     If .RecordCount > 0 Then
        Dim i As Long
        Dim ii  As Long
        i = 1
        Do Until .EOF
           For ii = 0 To frmCgdjMx.ddd.Cols - 1
               frmCgdjMx.ddd.TextMatrix(i, ii) = " " & Trim(.Fields(ii).Value)
           Next
           .MoveNext
           i = i + 1
        Loop
     End If
End With
frmCgdjMx.UserControl13.Enabled = False
frmCgdjMx.UserControl12.Enabled = False
frmCgdjMx.UserControl14.Enabled = False
frmCgdjMx.UserControl15.Enabled = True
frmCgdjMx.Show 1
End Sub

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

第9页为计算机毕业论文采购登记明细功能介绍......

【联系方式】

【本站信誉】

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