计算机毕业设计商品信息维护功能介绍：
（2）商品信息维护
此模块可以对商品信息进行维护，添加、修改和删除操作。添加、修改时，输入商品代码,商品名称,计量单位,单价，商品规格，备注，选择类别等。
其中操作人员还可以把菜品的图片保存到菜品信息中，在点餐时可以动态的让客人看菜品的样子，做到还没有做好就能让客人回味的感觉。
|
以下是引用片段：
其代码如下所示：
Private Sub btn添加_Click()
'校验信息的正确性
''更新商品信息记录
If Trim(Me.Text1.Text) = "" Or Trim(Me.DataCombo1.BoundText) = "" Then
MsgBox "商品名称或新类别不能为空!"
Exit Sub
End If
Dim tmprs As New ADODB.Recordset
With tmprs
.CursorLocation = adUseClient
If .State = 1 Then .Close
.Open "select * from spxx where spid='" & Me.Text2.Text & "'", conn, adOpenDynamic, adLockOptimistic
.Fields("spmc").Value = Trim(Me.Text1.Text)
.Fields("jldw").Value = Me.Combo1.Text
.Fields("dj").Value = Val(Me.Text6.Text)
.Fields("spgg").Value = Trim(Me.Text4.Text)
.Fields("bz").Value = Trim(Me.Text5.Text)
.Fields("lbid").Value = Me.DataCombo1.BoundText
If Me.Picture2.Picture <> 0 Then
Call SavePicture(Picture1.Image, "picture.tmp")
Open "picture.tmp" For Binary As #1
ReDim aa(1 To LOF(1)) As Byte
Get #1, 1, aa()
Close #1
Kill "picture.tmp"
.Fields("pic").Value = aa()
End If
.Update
End With
frmSpxx.updatelist
Unload Me
End Sub
Private Sub Form_Activate()
'得到数据库中商品信息表中的最大的商品编号
'绑定类别数据到DataCombo1中
If Me.Text2.Tag = "" Then
Me.Text2.Text = Format(GetMaxNum("select max(spid) from spxx"), "000000")
End If
Call Combo数据邦定(Me.DataCombo1, "select lbid,lbmc from splb")
Me.Combo1.ListIndex = 0
End Sub
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第10页为计算机毕业论文业务信息管理功能介绍......