软件工程课程设计销售管理系统Word下载.docx
- 文档编号:22214272
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:25
- 大小:473.47KB
软件工程课程设计销售管理系统Word下载.docx
《软件工程课程设计销售管理系统Word下载.docx》由会员分享,可在线阅读,更多相关《软件工程课程设计销售管理系统Word下载.docx(25页珍藏版)》请在冰豆网上搜索。
添加售后服务信息。
三.分析模型时序图
销售管理系统顶层图
1.客户管理
第三层DFD图客户管理子系统
2.销售管理
第三层DFD图销售管理子系统
3.售后服务管理
第三层DFD图售后服务管理子系统
4.客户登录动态时序图为
四.模块活动图,登录流程图
1.注册、登陆模块
模块功能描述
该模块主要实现对用户能否进入系统的确认以及对进入系统的用户权限的设定;
因为本系统涉及到三类使用者,不可能每一类用户都具有相同的操作权限,如前所说,必然会早成系统的混乱和崩溃,严重影响其安全性和有效性。
所以采取在通常的注册,登录模式下加上用户类型的选择,非常简洁地就完成了对用户类型的区别及权限的划分。
在模块的详细设计后,便能得出实现该部分的具体流程,如图
用户注册模块程序流程图
登录模块程序流程图
活动图为:
2.客户管理模块
显示客户的基本信息。
库户可以查看自己的等级和交易次数。
在模块的详细设计后,便能得出实现该部分的具体流程,如图3-8。
客户管理模块流程图
3.销售管理模块
1
>
在这个模块可以登记销售记录。
并且在提交记录时,更新数据库:
(1)更新客户信息。
如果是“老客户”系统会按照客户等级给出对应的优惠价。
(2)更新产品信息。
主要是更新该产品数量。
销售管理模块流程图
活动图为
五.数据库设计
1.客户信息表
2.商品进货表
3.商品销售表
六.运行界面与代码
1.登陆窗口
DimconnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubCmdOk_Click()
IfUserName.Text<
"
"
AndPassWord.Text<
Then
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.Open"
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource="
&
App.Path&
\人事.mdb;
PersistSecurityInfo=False"
rs.Open"
select*fromusermanagewhereusername='
UserName.Text&
'
conn,1,1
IfNotrs.EOFThen
Ifrs("
password"
)=PassWord.TextThen
Main.Show
UnloadMe
Else
MsgBox"
非法登录,密码错误!
vbOKOnly,"
警告"
EndIf
非法登录,找不到该用户!
用户名或密码不能为空!
提示"
EndSub
PrivateSubPassWord_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
CallCmdOk_Click
PrivateSubUserName_KeyPress(KeyAsciiAsInteger)
EndSub
`2.主界面
PrivateSubCmd_Click(IndexAsInteger)
SelectCaseIndex
Case0
GoodsIn.Show
Me.Enabled=False
Case1
Saler.Show
Case2
SaleData.Show
Case3
SaleTotal.Show
Case4
UserM.Show
EndSelect
`进货管理
Case0'
第一条
Adodc1.Recordset.MoveFirst
Case1'
上一条
IfNotAdodc1.Recordset.BOFThen
Adodc1.Recordset.MovePrevious
Case2'
下一条
IfNotAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveNext
Case3'
最尾条
Adodc1.Recordset.MoveLast
Case4'
添加
Adodc1.Recordset.AddNew
Fori=0To7
GoodText(i).Enabled=True
Next
Cmd(6).Enabled=True
Case5'
修改
Case6'
保存
Adodc1.Recordset.Update
GoodText(i).Enabled=False
更新记录成功!
Cmd(6).Enabled=False
删除
IfMsgBox("
确定删除当前记录,数据将不可恢复?
vbOKCancel,"
)=vbOKThen
Adodc1.Recordset.Delete
PrivateSubForm_Load()
Adodc1.ConnectionString="
Adodc1.RecordSource="
select*fromsave"
Fori=0To6
SetGoodText(i).DataSource=Adodc1
GoodText(i).DataField=Adodc1.Recordset.Fields(i).Name
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
PrivateSubForm_Unload(CancelAsInteger)
Main.Enabled=True
`销售管理
PublicidAsString
PublicactionAsString
action="
add"
ManageSale.Show
modify"
id=Adodc1.Recordset.Fields("
id"
)
Case7'
selectgoodcountfromsavewheregoodnum='
GoodText(0).Text&
conn,1,3
rs("
goodcount"
)=rs("
)+GoodText(5).Text
rs.Update
rs.Close
select*fromsaleorderbyid"
GoodText(i).DataField=Adodc1.Recordset.Fields(i+1).Name
添加修改销售记录
PublicsalecountAsLong
PrivateSubCombo1_Change()
IfGoodText(0)="
OrGoodText(3)="
OrGoodText(4)="
数据没有输入完整,请重新输入!
ExitSub
IfSaleData.action="
select*fromsale"
rs.AddNew
select*fromsalewhereid="
SaleData.id,conn,1,3
Goodnum"
)=GNum.Text
goodname"
)=GoodText
(1).Text
danwei"
)=GoodText
(2).Text
outdate"
)=GoodText(3).Text
danjia"
)=GoodText(4).Text
outcount"
)=GoodText(0).Text
salename"
)=SaleName.Text
select*fromsavewheregoodnum='
GNum.Text&
conn,1,3'
在库存表中将库存数量减去已售出的数量
)-GoodText(0).Text
)-(GoodText(0).Text-salecount)
数据更新成功!
SaleData.Adodc1.Refresh
DimsalemanAsString
selectgoodnumfromsaveorderbygoodnum"
DoWhileNotrs.EOF
GNum.AddItemrs(0)
rs.MoveNext
Loop
GNum.Text=GNum.List(0)
SaleData.id,conn,1,1
GNum.AddItemrs("
goodnum"
GoodText
(1).Text=rs("
GoodText
(2).Text=rs("
GoodText(3).Text=rs("
GoodText(4).Text=rs("
GoodText(0).Text=rs("
saleman=rs("
GNum.Enabled=False
SaleNum.Max=GoodText(0).Text+rs("
salecount=GoodText(0).Text
selectsalenamefromsalerorderbyid"
SaleName.AddItemrs(0)
SaleName.Text=SaleName.List(0)
SaleName.Text=saleman
Cmd(0).Caption="
保存修改"
SaleData.Enabled=True
PrivateSubGNum_Click()
SaleNum.Max=rs("
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 软件工程 课程设计 销售 管理 系统