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

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

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

计算机毕业设计采购信息查询介绍:

(1)frmSellFind(采购信息查询)
此页面可以通过选择、输入查询条件进行查询,列表中显示采购日期、供应商名称、总数量、总金额、记录人、备注,统计信息中显示业务笔数、总数量和总金额。

以下是引用片段:

Private Sub btn添加_Click()
'1.设置表格样式和标题
'2.以不同的查询模式更新显示列表
'3.计算业务量,总金额和交费金额
'1
Dim arrName()
    arrName = Array("采购代码", "采购日期", "供应商名称", "总数量", "总金额", "记录人", "备注")
Dim arrColwidth()
    arrColwidth = Array(0, 3000, 3000, 2500, 2000, 2000, 3000)
ddd.Cols = 7
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
    ddd.ColWidth(i) = arrColwidth(i)
    ddd.TextMatrix(0, i) = arrName(i)
    ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 27
'2
Call UpdateDDD(ddd, ExecSql("select cgid,cgrq,khmc,zsl,zje,jlr,bz from cgdj " _
     & " where cgrq>='" & Me.DTPicker1.Value & "' and cgrq<='" & Me.DTPicker2.Value & "' " _
     & " and khmc like '" & Me.Text1.Text & "%' and jlr like '" & Me.Text2.Text & "%' order by cgrq desc "))
'3
Me.Text3.Text = 0
Me.Text4.Text = 0
Me.Text5.Text = 0
For i = 1 To ddd.Rows - 1
    If ddd.TextMatrix(i, 0) <> "" Then
       Me.Text3.Text = Val(Me.Text3.Text) + 1
    End If
    If ddd.TextMatrix(i, 4) <> "" Then
       Me.Text4.Text = Val(Me.Text4.Text) + Val(ddd.TextMatrix(i, 3))
    End If
    If ddd.TextMatrix(i, 5) <> "" Then
       Me.Text5.Text = Val(Me.Text5.Text) + Val(ddd.TextMatrix(i, 4))
    End If
Next
End Sub

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

第11页为计算机毕业论文部分......

【联系方式】

【本站信誉】

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