
1. 首先,定义一个函数,用于添加商品价格,函数参数为商品id和价格。
2. 使用SQL语句,查询数据库中是否存在该商品,如果存在,则更新价格;如果不存在,则插入新的价格。
3. 执行SQL语句,添加或更新商品价格。
4. 返回添加或更新的结果。
删除商品价格代码:
1. 首先,定义一个函数,用于删除商品价格,函数参数为商品id。
2. 使用SQL语句,查询数据库中是否存在该商品,如果存在,则删除价格;如果不存在,则不执行 *** 作。
3. 执行SQL语句,删除商品价格。
4. 返回删除的结果。
VB中用代码方式给文字添加下划线和删除线,代码如下://Underline属性添加下划线
Private Sub Check1_Click()
Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)
End Sub
//Strikethrough属性添加删除线
Private Sub Check2_Click()
Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)