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]