关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板

本论文是一篇关于数据库论文格式模板,关于关于超市文题目2016年相关电大毕业论文范文。免费优秀的关于数据库及超市管理信息系统及超市管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。

4.3交易管理单元设计

1.进货登记窗体

图4.4进货登记窗体

本窗体用来实现商品进货功能,将进货信息添加到buy表,再将该信息选择性的加入goods表.如果是新的进货厂商,可以在此入库登记.其具体实现过程如下所述:先在窗体及变量中定义三个记录集:rs_buy,rs_goods,rs_manufacture用来控制三个数据表:buy表,goods表,manufacturer表.在用户点击添加商品中的添加入库操作之前,程序先会检查是否有用户是否有个别属性为空,并做出提示.然后将商品添加到buy表中,再添加到goods表.在添加到goods表时,程序会先判断该商品编号是否已经存在,如果存在则直接将该添加信息的数量加到goods表中相应的记录上.为此,进货编号,商品编号是buy表,goods表中不可重复的属性.为方便用户操作,程序特在商品编号的文本框:text2的Change事件中做了一个判断,即如果该商品编号存在的话直接显示该商品的其他属性.另外,对于总金额文本框也是由数量和进货价两个文本框的Change事件计算入内的.如果是新的进货商,可以将它的信息添加到进货商表.其过程和上面所说的添加到buy表基本相同,这里就不做介绍了.

添加商品与厂商的实现代码如下:

Dimrs_goodsAsNewADODB.Recordset

Dimrs_buyAsNewADODB.Recordset

Dimrs_manufacturerAsNewADODB.Recordset

Dimstr_goodsAsString

Dimstr_buyAsString

Dimstr_manufacturerAsString

DimNumgooodsAsInteger

PrivateSubCommand1_Click()

'对入库时做的一些屏蔽操作！

IfText1.Text等于""Then

MsgBox"请填

关于数据库论文范文集

Text1.SetFocus

ExitSub

ElseIfText2.Text等于""Then

MsgBox"请填写商品编号！",vbOKOnly+vbInformation,"注意"

Text2.SetFocus

ExitSub

ElseIfText3.Text等于""Then

MsgBox"请填写商品名称！",vbOKOnly+vbInformation,"注意"

Text3.SetFocus

ExitSub

ElseIfText4.Text等于""Then

MsgBox"请填写生产厂商！",vbOKOnly+vbInformation,"注意"

Text4.SetFocus

ExitSub

ElseIfText5.Text等于""Then

MsgBox"请填写商品型号！",vbOKOnly+vbInformation,"注意"

Text5.SetFocus

ExitSub

ElseIfText6.Text等于""Then

MsgBox"请填写商品数量！",vbOKOnly+vbInformation,"注意"

Text6.SetFocus

ExitSub

ElseIfText7.Text等于""Then

MsgBox"请填写商品进货价格！",vbOKOnly+vbInformation,"注意"

Text7.SetFocus

ExitSub

ElseIfText8.Text等于""Then

MsgBox"请填写商品销货价格！",vbOKOnly+vbInformation,"注意"

Text8.SetFocus

ExitSub

ElseIfText13.Text等于""Then

MsgBox"请填写进货总金额！",vbOKOnly+vbInformation,"注意"

Text13.SetFocus

ExitSub

EndIf

'下面是对进货表进行添加记录操作！

str_buy等于"select*frombuywhere进货编号等于'"&,Text1.Text&,"'"

rs_buy.Openstr_buy,n,adOpenStatic,adLockOptimistic'打开进货表

Ifrs_buy.EOF等于TrueThen

rs_buy.AddNew

rs_buy.Fields("进货编号")等于Text1.Text

rs_buy.Fields("商品名称")等于Text3.Text

rs_buy.Fields("生产厂商")等于Text4.Text

rs_buy.Fields("型号")等于Text5.Text

rs_buy.Fields("数量")等于Val(Text6.Text)

rs_buy.Fields("进货价")等于Val(Text7.Text)

rs_buy.Fields("进货年")等于Text9.Text

rs_buy.Fields("进货月")等于Text10.Text

rs_buy.Fields("进货日")等于Text11.Text

rs_buy.Fields("业务员编号")等于Text12.Text

rs_buy.Fields("总金额")等于Val(Text13.Text)

rs_buy.Update

rs_buy.Close'关闭进货表

Else

MsgBox"此进货编号已存在,请重添！",vbOKOnly+vbInformation,"注意"

Text1.Text等于""

Text1.SetFocus

rs_buy.Close

ExitSub'关闭进货表

EndIf

'下面是对商品库存表进行入库操作！

DimsqlAsString

sql等于"select*fromgoodswhere商品编号等于'"&,Text2.Text&,"'"

rs_goods.Opensql,n,adOpenStatic,adLockOptimistic

Ifrs_goods.EOF等于TrueThen

rs_goods.Close

str_goods等于"select*fromgoods"

rs_goods.Openstr_goods,n,adOpenStatic,adLockOptimistic'打开库存表

rs_goods.AddNew

rs_goods.Fields("商品编号")等于Text2.Text

rs_goods.Fields("商品名称")等于Text3.Text

rs_goods.Fields("生产厂商")等于Text4.Text

rs_goods.Fields("型号")等于Text5.Text

rs_goods.Fields("数量")等于Val(Text6.Text)

rs_goods.Fields("进货价")等于Val(Text7.Text)

rs_goods.Fields("销货价")等于Val(Text8.Text)

rs_goods.Update

MsgBox"商品入库成功",vbOKOnly+vbExclamation,""

rs_goods.Close'关闭库存表

Else

numgoods等于rs_goods.Fields("数量")

rs_goods.Fields("数量")等于Val(Text6.Text)+numgoods

rs_goods.Update

MsgBox"商品入库成功",vbOKOnly+vbExclamation,""

rs_goods.Close'关闭库存表

EndIf

EndSub

PrivateSubCommand3_Click()

'对入库时做的一些屏蔽操作！

IfText14.Text等于""Then

MsgBox"请填写厂商编号！",vbOKOnly+vbInformation,"注意"

Text14.SetFocus

ExitSub

ElseIfText15.Text等于""Then

MsgBox"请填写厂商名称！",vbOKOnly+vbInformation,"注意"

Text15.SetFocus

ExitSub

ElseIfText16.Text等于""Then

MsgBox"请填写厂商联系人姓名！",vbOKOnly+vbInformation,"注意"

Text16.SetFocus

ExitSub

ElseIfText17.Text等于""Then

MsgBox"请填写！",vbOKOnly+vbInformation,"注意"

Text17.SetFocus

ExitSub

ElseIfText18.Text等于""Then

MsgBox"请填写厂商地址！

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

关于数据库论文范文集,与关于超市文题目2016年相关论文格式模板参考文献资料：

如何写地理论文

怎么写专业论文

如何写科技论文

妇科论文怎么写

怎样才能写好议论文

初中生怎样写议论文

数学论文撰写

学期论文怎么写

高考写景满分作文

高中语文写作论文