论文网
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板
本论文是一篇关于数据库论文格式模板,关于关于超市文题目2016年相关电大毕业论文范文。免费优秀的关于数据库及超市管理信息系统及超市管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
",vbOKOnly+vbInformation,"注意"Text18.SetFocus
ExitSub
EndIf
'下面是对进货商表进行入库操作！
str_manufacturer等于"select*frommanufacturerwhere厂商编号等于'"&,Text14.Text&,"'"
rs_manufacturer.Openstr_manufacturer,n,adOpenStatic,adLockOptimistic
Ifrs_manufacturer.EOF等于TrueThen
rs_manufacturer.AddNew
rs_manufacturer.Fields("厂商编号")等于Text14.Text
rs_manufacturer.Fields("厂商名称")等于Text15.Text
rs_manufacturer.Fields("联系人姓名")等于Text16.Text
rs_manufacturer.Fields("")等于Text17.Text
rs_manufacturer.Fields("厂商地址")等于Text18.Text
rs_manufacturer.Update
MsgBox"添加厂商成功",vbOKOnly+vbExclamation,""
rs_manufacturer.Close
Else
MsgBox"该编号已存在,请确认！",vbOKOnly+vbInformation,""
Text14.Text等于""
Text14.SetFocus
rs_manufacturer.Close
ExitSub
EndIf
EndSub
PrivateSubForm_Load()
Text9.Enabled等于False
Text10.Enabled等于False
Text11.Enabled等于False
Text12.Enabled等于False
Text9.Text等于Year(Date)
Text10.Text等于Month(Date)
Text11.Text等于Day(Date)
Text12.Text等于strs
EndSub
PrivateSubText2_Change()
'如果商品编号存在,则直接出现本商品的相关数据
str_goods等于"select*fromgoodswhere商品编号等于'"&,Text2.Text&,"'"
rs_goods.Openstr_goods,n,adOpenStatic,adLockOptimistic
Text3.Text等于rs_goods.Fields("商品名称")
Text4.Text等于rs_goods.Fields("生产厂商")
Text5.Text等于rs_goods.Fields("型号")
Text7.Text等于rs_goods.Fields("进货价")
Text8.Text等于rs_goods.Fields("销货价")
rs_goods.Close
EndSub
PrivateSubText6_Change()
'总金额的直接出现操作
IfText7.Text<,>,""Then
Text13.Text等于Val(Text6.Text)*Val(Text7.Text)
EndIf
EndSub
PrivateSubText7_Change()
'总金额的直接出现操作
IfText6.Text<,>,""Then
Text13.Text等于Val(Text6.Text)*Val(Text7.Text)
EndIf
EndSub
2.销货登记窗体
图4.5销货登记窗体
本窗体主要功能是对商品进行销售,首先对员工输入的销货信息进行完整条件的判断,条件符合后进行销售.然后将销售信息存入sell表,并对goods表的数量做相应修改.具体实现过程为:先在窗体集中定义两个记录集:rs_sell,rs_goods,用来控制两个数据表:sell表和goods表.在销货窗体中,如果用户输入的商品编号已经存在,则该商品的其它属性将随着text2(即商品编号)的Change事件出现在其对应的位置上.而销售日期和业务员编号已经是程序默认给出的系统时间和登陆员工的编号.在判断没有空缺属性后该商品将顺利添加如库,而且该商品在goods表中的数量也将随之做相应的改变,使goods表和sell表的总和保持原来goods表中的数量值.
销售按钮代码实现如下:
Dimrs_goodsAsNewADODB.Recordset
Dimrs_sellAsNewADODB.Recordset
Dimstr_goodsAsString
Dimstr_sellAsString
DimnumgoodsAsInteger
PrivateSubCommand1_Click()
IfText1.Text等于""Then
MsgBox"请填写销货编号！",vbOKOnly+vbInformation,"注意"
Text1.SetFocus
ExitSub
ElseIfText2.Text等于""Then
MsgBox"请填写商品编号！",vbOKOnly+vbInformation,"注意"
Text2.SetFocus
ExitSub
EndIf
str_goods等于"select*fromgoodswhere商品编号等于'"&,Text2.Text&,"'"
rs_goods.Openstr_goods,n,adOpenStatic,adLockOptimistic
Ifrs_goods.EOF等于TrueThen
MsgBox"对不起,此商品型号已无货！请选择其他型！",vbOKOnly+vbInformation,"注意"
rs_goods.Close
ExitSub
EndIf
rs_goods.Close
IfText11.Text等于""Then
MsgBox"请填写销货数量！",vbOKOnly+vbInformation,"注意"
Text11.SetFocus
ExitSub
EndIf
Text12.Text等于Val(Text6.Text)*Val(Text11.Text)
'下面是对销售表进行入库操作！
str_sell等于"select*fromsellwhere销货编号等于'"&,Text1.Text&,"'"
rs_sell.Openstr_sell,n,adOpenStatic,adLockOptimistic
Ifrs_sell.EOF等于TrueThen
rs_sell.AddNew
rs_sell.Fields("销货编号")等于Text1.Text
rs_sell.Fields("商品编号")等于Text2.Text
rs_sell.Fields("商品名称")等于Text3.Text
rs_sell.Fields("生产厂商")等于Text4.Text
rs_sell.Fields("型号")等于Text5.Text
rs_sell.Fields("单价")等于Text6.Text
rs_sell.Fields("销售年")等于Text7.Text
rs_sell.Fields("销售月")等于Text8.Text
rs_sell.Fields("销售日")等于Text9.Text
rs_sell.Fields("业务员编号")等于Text10.Text
rs_sell.Fields("数量")等于Val(Text11.Text)
rs_sell.Fields("总金额")等于Val(Text12.Text)
rs_sell.Fields("销售时")等于Text13.Text
rs_sell.Fields("销售分")等于Text14.Text
rs_sell.Fields("销售秒")等于Text15.Text
rs_sell.Update
rs_sell.Close
Else
MsgBox"此销货编号已存在,请重添！",vbOKOnly+vbInformation,"注意"
Text1.Text等于""
Text1.SetFocus
rs_sell.Close
ExitSub
EndIf
'下面是对商品库存表的减货操作！
str_goods等于"select*fromgoodswhere商品编号等于'"&,Text2.Text&,"'"
rs_goods.Openstr_goods,n,adOpenStatic,adLockOptimistic
numgoods等于rs_goods.Fields("数量")
rs_goods.Fields("数量")等于numgoods-Val(Text11.Text)
rs_goods.Update
rs_goods.Close
MsgBox"销售成功！",vbOKOnly+vbExclamation,"注意"
关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板参考文献资料：