课程设计超市销售系统管理文档格式.docx
《课程设计超市销售系统管理文档格式.docx》由会员分享,可在线阅读,更多相关《课程设计超市销售系统管理文档格式.docx(17页珍藏版)》请在冰豆网上搜索。
![课程设计超市销售系统管理文档格式.docx](https://file1.bdocx.com/fileroot1/2022-10/9/1b9513bb-8c1f-4f60-ae3e-b89eb603cf8a/1b9513bb-8c1f-4f60-ae3e-b89eb603cf8a1.gif)
文档结构______文档理论___________文档撰写__________文档部分成绩________
总成绩_____________
备注
一、课程设计目的:
课程设计为学生提供一个及动手又动脑,独立实践的机会,将课本上的VB理论知识和实践有机的结合起来。
锻炼学生的分析解决实际问题的能力。
提高用VB编程实现具体问题的能力。
二、课程设计的题目:
VB超市销售管理系统课程设计
简介:
这个超市销售管理系统主要实现了商品信息和销售信息以及员工信息的添加、删除、修改和查询。
用户在登录系统之后可以在提示下做想进行的操作。
登陆后可以在删除修改等操作,方便了超市销售管理。
三、设计说明:
超市销售
管理系统
商品信息查询
销售信息查询
员工信息查询
【超市销售管理系统】
{商品信息查询}{(商品号)(商品名称)(厂商)(商品类型)(单价)}
{销售记录查询}{(销售记录号)(销售金额)(销售人)(商品名称)}
{员工信息查询}{(员工号)(姓名)(性别)(籍贯)}
整个销售系统目前实现了商品、销售、员工信息的增删查改功能。
进入系统后,可以选择想要查询的信息点入,进入另一个界面后进行相关操作。
对商品信息查询的时候输入商品号即会出现商品相关择
“是”或“否”确定是否删除。
当用户点击“修改”时,弹出对话框“确定呀修改记录?
”同样选择“是”或“否”决定是否修改记录。
查询时,输入商品号,或者销售记录号。
可以查到想要的信息。
点击退出则回到登录界面。
整个系统涵盖三个可查询的大信息。
再入进行操作。
设计界面清雅脱俗,给人清新的感觉。
源代码
超市销售系统登录源代码:
PublicSubCommand1_Click()
IfText1.Text="
"
Then
MsgBox"
请输入正确的用户名"
11,"
错误信息"
ElseIfText2.Text="
请输入正确的密码"
EndIf
xlf"
AndText2.Text="
xiong"
LoadForm2
Form2.Show1
UnloadForm1
Else
用户名或密码错误"
EndSub
退出系统源代码:
PrivateSubCommand2_Click()
End
进入商品信息查询、销售信息查询、员工信息查询代码:
PrivateSubCommand1_Click()
LoadForm3
Form3.Show1
LoadForm4
Form4.Show1
UnloadForm2
PrivateSubCommand3_Click()
LoadForm5
Form5.Show1
UnloadForm3
对商品信息的添加的代码
Publicmsg
vb_msg=MsgBox("
请输入要添加的数据"
vbOKCancel)
Ifvb_msg=vbCancelThen
ExitSub
Data1.Recordset.AddNew
Data1.Recordset.Fields("
商品号"
)=Val(Text1.Text)
商品名称"
)=Text2.Text
厂商"
)=Text3.Text
商品类型"
)=Val(Text4.Text)
单价"
)=Val(Text5.Text)
对商品信息删除的代码
DimXAsInteger
X=MsgBox("
你确定要删除记录吗?
vbYesNo)
IfX=vbYesThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
对商品信息修改的代码:
DimareturnAsInteger
areturn=MsgBox("
你确定要修改记录吗?
Ifareturn=vbYesThen
Data1.Recordset.Edit
Data1.Recordset.Update
对商品信息查询的代码:
PrivateSubCommand4_Click()
msg=InputBox("
请输入商品号"
"
查找记录"
)
Data1.Recordset.FindFirst"
商品号='
&
msg&
"
'
IfData1.Recordset.NoMatchThen
没有你所找商品!
合您查找条件的商品为"
Data1.Recordset.Fields
(1)
“退出”的代码
PrivateSubCommand5_Click()
Form2.Show
Form3.Hide
要查看“上一个”的代码
PrivateSubCommand6_Click()
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
MsgBox("
已经是第一条记录了!
要查看“下一个“的代码
PrivateSubCommand7_Click()
已经是最后一条记录了!
对销售信息进行操作的源代码
Publicmsg‘公共消息框’
“添加”
销售记录号"
销售金额"
销售人"
“删除”
“修改”
X=MsgBox("
)=Val(Text2.Text)
)=Val(Text3.Text)
“查询”
请输入销售记录号"
销售记录号='
“退出”
Form4.Hide
“上一个”
“下一个”
对员工信息进行操作的代码
Private