课程设计超市销售系统管理.docx

课程设计超市销售系统管理.docx

《课程设计超市销售系统管理.docx》由会员分享，可在线阅读，更多相关《课程设计超市销售系统管理.docx（17页珍藏版）》请在冰豆网上搜索。

课程设计超市销售系统管理

课程设计--超市销售系统管理

附件1课程设计报告封面（A4）

2013-2014学年第1学期

.NET课程设计报告

课题名称：

超市销售系统管理

班级文专计算111-1学号201090609139姓名单正岩|

课题完成时间：

2013年12月23日

对应提交的电子文档打包文件名称（准确填写）：

__________________________________________________________

==============以下部分为教师填写区，请勿填写==============

成绩评定：

软件运行______软件基本功能_______软件提高功能______软件部分成绩________

文档结构______文档理论___________文档撰写__________文档部分成绩________

总成绩_____________

备注

一、课程设计目的：

课程设计为学生提供一个及动手又动脑，独立实践的机会，将课本上的VB理论知识和实践有机的结合起来。

锻炼学生的分析解决实际问题的能力。

提高用VB编程实现具体问题的能力。

二、课程设计的题目：

VB超市销售管理系统课程设计

简介：

这个超市销售管理系统主要实现了商品信息和销售信息以及员工信息的添加、删除、修改和查询。

用户在登录系统之后可以在提示下做想进行的操作。

登陆后可以在删除修改等操作，方便了超市销售管理。

三、设计说明：

超市销售

管理系统

商品信息查询

销售信息查询

员工信息查询

【超市销售管理系统】

{商品信息查询}{（商品号）（商品名称）（厂商）（商品类型）（单价）}

{销售记录查询}{（销售记录号）（销售金额）（销售人）（商品名称）}

{员工信息查询}{（员工号）（姓名）（性别）（籍贯）}

整个销售系统目前实现了商品、销售、员工信息的增删查改功能。

进入系统后，可以选择想要查询的信息点入，进入另一个界面后进行相关操作。

对商品信息查询的时候输入商品号即会出现商品相关择

“是”或“否”确定是否删除。

当用户点击“修改”时，弹出对话框“确定呀修改记录？

”同样选择“是”或“否”决定是否修改记录。

查询时，输入商品号，或者销售记录号。

可以查到想要的信息。

点击退出则回到登录界面。

整个系统涵盖三个可查询的大信息。

再入进行操作。

设计界面清雅脱俗，给人清新的感觉。

源代码

超市销售系统登录源代码：

PublicSubCommand1_Click（）

IfText1.Text=""Then

MsgBox"请输入正确的用户名",11,"错误信息"

ElseIfText2.Text=""Then

MsgBox"请输入正确的密码",11,"错误信息"

EndIf

IfText1.Text="xlf"AndText2.Text="xiong"Then

LoadForm2

Form2.Show1

UnloadForm1

Else

MsgBox"用户名或密码错误",11,"错误信息"

EndIf

EndSub

退出系统源代码：

PrivateSubCommand2_Click（）

End

EndSub

进入商品信息查询、销售信息查询、员工信息查询代码：

PrivateSubCommand1_Click（）

LoadForm3

Form3.Show1

UnloadForm1

EndSub

PrivateSubCommand2_Click（）

LoadForm4

Form4.Show1

UnloadForm2

EndSub

PrivateSubCommand3_Click（）

LoadForm5

Form5.Show1

UnloadForm3

EndSub

对商品信息的添加的代码

Publicmsg

PrivateSubCommand1_Click（）

vb_msg=MsgBox（"请输入要添加的数据",vbOKCancel）

Ifvb_msg=vbCancelThen

ExitSub

EndIf

Data1.Recordset.AddNew

Data1.Recordset.Fields（"商品号"）=Val（Text1.Text）

Data1.Recordset.Fields（"商品名称"）=Text2.Text

Data1.Recordset.Fields（"厂商"）=Text3.Text

Data1.Recordset.Fields（"商品类型"）=Val（Text4.Text）

Data1.Recordset.Fields（"单价"）=Val（Text5.Text）

EndSub

对商品信息删除的代码

PrivateSubCommand2_Click（）

DimXAsInteger

X=MsgBox（"你确定要删除记录吗?

",vbYesNo）

IfX=vbYesThen

Data1.Recordset.Delete

Data1.Recordset.MoveNext

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

EndIf

EndIf

EndSub

对商品信息修改的代码：

PrivateSubCommand3_Click（）

DimareturnAsInteger

areturn=MsgBox（"你确定要修改记录吗?

",vbYesNo）

Ifareturn=vbYesThen

Data1.Recordset.Edit

Data1.Recordset.Fields（"商品号"）=Val（Text1.Text）

Data1.Recordset.Fields（"商品名称"）=Text2.Text

Data1.Recordset.Fields（"商品类型"）=Text3.Text

Data1.Recordset.Fields（"单价"）=Val（Text4.Text）

Data1.Recordset.Update

EndIf

EndSub

对商品信息查询的代码：

PrivateSubCommand4_Click（）

msg=InputBox（"请输入商品号","查找记录"）

Data1.Recordset.FindFirst"商品号='"&msg&"'"

IfData1.Recordset.NoMatchThen

MsgBox"没有你所找商品!

"

Else

MsgBox"合您查找条件的商品为"&Data1.Recordset.Fields

（1）

EndIf

EndSub

“退出”的代码

PrivateSubCommand5_Click（）

Form2.Show

Form3.Hide

EndSub

要查看“上一个”的代码

PrivateSubCommand6_Click（）

Data1.Recordset.MovePrevious

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

MsgBox（"已经是第一条记录了!

"）

EndIf

EndSub

要查看“下一个“的代码

PrivateSubCommand7_Click（）

Data1.Recordset.MoveNext

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

MsgBox（"已经是最后一条记录了!

"）

EndIf

EndSub

对销售信息进行操作的源代码

Publicmsg‘公共消息框’

“添加”

PrivateSubCommand1_Click（）

vb_msg=MsgBox（"请输入要添加的数据",vbOKCancel）

Ifvb_msg=vbCancelThen

ExitSub

EndIf

Data1.Recordset.AddNew

Data1.Recordset.Fields（"销售记录号"）=Val（Text1.Text）

Data1.Recordset.Fields（"商品名称"）=Text2.Text

Data1.Recordset.Fields（"销售金额"）=Text3.Text

Data1.Recordset.Fields（"销售人"）=Val（Text4.Text）

EndSub

“删除”

PrivateSubCommand2_Click（）

DimXAsInteger

X=MsgBox（"你确定要删除记录吗?

",vbYesNo）

IfX=vbYesThen

Data1.Recordset.Delete

Data1.Recordset.MoveNext

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

EndIf

EndIf

EndSub

“修改”

PrivateSubCommand3_Click（）

X=MsgBox（"你确定要修改记录吗?

",vbYesNo）

IfX=vbYesThen

Data1.Recordset.Edit

Data1.Recordset.Fields（"销售记录号"）=Val（Text1.Text）

Data1.Recordset.Fields（"商品名称"）=Val（Text2.Text）

Data1.Recordset.Fields（"销售金额"）=Val（Text3.Text）

Data1.Recordset.Fields（"销售人"）=Val（Text4.Text）

Data1.Recordset.Update

EndIf

EndSub

“查询”

PrivateSubCommand4_Click（）

msg=InputBox（"请输入销售记录号","查找记录"）

Data1.Recordset.FindFirst"销售记录号='"&msg&"'"

IfData1.Recordset.NoMatchThen

MsgBox"没有你所找商品!

"

Else

“退出”

PrivateSubCommand5_Click（）

Form2.Show

Form4.Hide

EndSub

“上一个”

PrivateSubCommand6_Click（）

Data1.Recordset.MovePrevious

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

MsgBox（"已经是第一条记录了!

"）

EndIf

EndSub

“下一个”

PrivateSubCommand7_Click（）

Data1.Recordset.MoveNext

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

MsgBox（"已经是最后一条记录了!

"）

EndIf

EndSub

对员工信息进行操作的代码

“添加”

Private