毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB+access商品信息管理系统设计+源码 第10页

更新时间:2014-4-21:  来源:毕业论文
   Case 12
            mnuSettleAdd_Click
        Case 13
            frmSettleFind.Show
        Case 15
            mnuSysModi_Click
    End Select
End Sub

5.3 商品管理
【商品管理】主要包括设置商品信息、设置商品类型、设置供应商等三个子功能模块。
5.3.1设置商品信息
设置商品信息包括商品信息的添加、修改、删除、查询。
(1)添加商品
 
输入商品编号、商品名称、销售价格、成本价格、商品类型、商品数量、商品状况等信息,任何信息不能为空,否则不能添加。如下图所示:
 本文来自辣.文,论-文·网原文请找腾讯752018766
本界面代码设计如下:

Sub RefreshCboRT()
    '过程功能为:刷新商品类型组合框的内容
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim msgstr As String
    可视化组态的啤酒生产工艺流程监控系统
    '清除商品类型组合框的内容,以避免重复添加
    cboProductType.Clear
   
    '获取商品类型数据表所有记录
    sql = "select * from producttype"
    Set rs = GoSql(sql, msgstr)
   
    '将rs中的所有记录都添加到组合框中
    Do While Not rs.EOF
        cboProductType.AddItem rs.Fields(1)
        rs.MoveNext
    Loop
    '设置在组合框文本区中显示的列表项
    If cboProductType.ListCount > 0 Then
        cboProductType.ListIndex = 0
    End If
    Set rs = Nothing
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim msgstr As String
    Dim i As Integer
    本文来自辣.文,论-文·网原文请找腾讯752018766
    '判断关键文本框内容是否为空
    If Trim(txtProductID.Text) = "" Then
        MsgBox "商品编号不能为空!", vbOKOnly + vbExclamation, "警告"
        txtProductID.SetFocus
        Exit Sub
    End If
    If Trim(cboProductType.Text) = "" Then
        MsgBox "商品名称不能为空!", vbOKOnly + vbExclamation, "警告"
        cboProductType.SetFocus
        Exit Sub 递归下降语法分析器源代码 
    End If
    If Trim(txtsellprice.Text) = "" Then
        MsgBox "销售价格不能为空!", vbOKOnly + vbExclamation, "警告"
        txtProductID.SetFocus
        Exit Sub
    End If
    If Trim(txtcostprice.Text) = "" Then

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 

VB+access商品信息管理系统设计+源码 第10页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。