企业销售采购管理系统课程设计Word文档格式.docx
《企业销售采购管理系统课程设计Word文档格式.docx》由会员分享，可在线阅读，更多相关《企业销售采购管理系统课程设计Word文档格式.docx（42页珍藏版）》请在冰豆网上搜索。
收货单
仓库管理员
图2.1采购管理业务流程图
2.2数据流程分析
根据数据流程图画出的业务流程图如图2.2和图2.3所示：
数据流程图能全面地描述信息系统逻辑模型
提货单
采购处理
采购订单
图2.2采购管理的顶层数据流程图
财务账簿
财务部
退货单数据
订
单
数
据
采购订单审核处理
采购部
采购订单订单数据
入出
库库
单单
销售部
收退货处理
库存处理
销售报表出、入库数据
库存台账
图2.3采购管理系统的第二层数据流程图
2.3数据字典
1）数据项的定义（以采购订单的单据编号为例）
数据项编号：
I02-01
数据项名称：
单据编号
别名：
简述：
区别采购订单唯一性的代码
类型与长度：
字符型，长度为11
取值范围：
“20110101001”~“21001231999”
2）数据结构的定义（以采购订单为例）
数据结构编号：
DS02-01
数据结构名称：
采购部门所填采购订单信息
数据结构组成：
DS02-02+DS02-03+DS02-04
3）数据流的定义（以采购订单为例）
数据流编号：
D02-02
数据流名称：
合格的采购订单
经审核批准的采购订单
数据流来源：
采购订单审核处理模块
数据流去向：
采购部门
数据项组成：
单据编号+录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+合计金额+供应商+到货日期+联系人+电话+业务员+摘要
数据流量：
约30张/日
高峰流量：
约50张/日
4）处理逻辑的定义（以采购订单审核为例）
处理逻辑编号：
P02-01
处理逻辑名称：
审核采购订单是否合格并给予批准或不批准
输入的数据流：
审核处理描述：
审核采购部门送来的采购订单填写格式是否符合要求，单据上的信息是否符合采购计划，是否真实等。
不合格的单据返回采购部门，合格的单据登记采购订单台账。
输出的数据流：
合格的采购订单，未批采购订单
处理频率：
约30次/日
5）数据存储的定义（以采购订单数据存储为例）
数据存储编号：
F02-01
数据存储名称：
采购订单台账
存放采购订单信息
数据存储组成：
单据编号+录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+合计金额+预付账户+预付金额+供应商+到货日期+联系人+电话+业务员+摘要
关键字：
相关联的处理：
6）外部实体的定义（以供应商为例）
外部实体编号：
S02-01
外部实体名称：
提供商品的供应商
输出的数据流：
D02-01
3.系统设计
3.1系统总体结构
新系统的功能设计是以业务流程图和数据流程图为依据的。
对该采购管理系统划分为系统设置、资料管理、采购订单、订单收货、采购开单、采购付款、采购退货、产品销售等功能模块。
根据以上分析，该采购管理系统功能划分图如图3.1所示：
采购管理系统
系统设置
采购管理
产品销售
采购退货
采购付款
订单收货
修改密码
权限管理
添加用户
图3.1采购管理系统功能结构图
3.2数据结构与数据库设计
①E—R模型：
概念模型的最常用的表示方法是实体-联系方法。
商品名称
型号
商品编号
订单号
规格
日期
供应商名称
交给
联系人
编号
电话
名称
交货
商品数量
仓库
数量
单价
图3.2采购管理系统E-R模型图
②数据表的设计：
这是根据数据流程图设计的数据表
主键
列名
数据类型
长度
允许空
*
供应商代码
char
3
文本
4
产品代码
6
产品名称
图3.1产品销售表
8
9
单位
15
varchar
1~5
合计金额
1~9
入库日期
datatime
11
业务员
摘要
表3.2商品库存表
3.3代码设计
代码设计部分主要是采购订单号的设计。
博宏公司的主要合作伙伴为其设计固定的编码。
采购订单号是由供应商名和产品类别构成的。
表3.3为采购订单编号表：
供应商代码*
001
A经销商
N-01
联想电脑
002
B经销商
N-02
戴尔电脑
003
C经销商
N-03
索尼电脑
004
D经销商
N-04
华硕电脑
005
E经销商
N-05
宏基电脑
006
F经销商
N-06
三星电脑
007
G经销商
N-07
惠普电脑
表3.3采购订单编号表
3.4输入输出设计
输出设计：
输出设备：
打印机、显示器
输出报告：
输出设计书
资料代码
XS-01
输出名称
销售报表
份数
1
报送
库存部门
项目号
项目名称
位数及编辑
备注
X（4）
2
X（6）
销售数量
X（3）
表3.4输出设计书
输入设计：
对输入信息进行校验
①在登陆界面：
用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒"
用户不存在，请从新输入！
"
如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒"
②在产品销售中：
商品编号不能为空，否则会弹出对话框提醒"
Sorry,未找到你所查询的数据，请查证后再试……"
单据号
录单日期
到货日期
预付账户
预付金额
表3.5产品销售单录入屏幕
3.5系统的安全设计
信息系统安全设计主要解决以下几个问题：
1止带宽资源滥用
2防止无关网络行为影响工作效率
3管控外发信息，降低泄密风险
4掌握组织动态、优化员工管理
5为网络管理与优化提供决策依据，防止病毒木马等网络风险
⑥低成本且有效推行信息管理制度等
4.系统实施
4.1系统实施
一、登录界面
当输入的账号为：
xiaolin密码为：
xiaolin时，焦点会自动落在确定上面，此时点击确定或按回车键即可以登入系统。
若错误，则会弹出对话框提醒“此用户不存在,请重新输入！
”并且它的输入密码为“*”，是在属性栏中的passwordchar设置“*”。
用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒"
此用户不存在，请从新输入！
此用户不在，请从新输入！
图4-1登陆窗口
它的具体代码为：
DimTIMAsInteger'
定义一个整型变量
DimmyvalAsString'
定义一个字符串变量
PrivateSubForm_Load（）'
连接access数据库
Adodc1.ConnectionString="
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource="
&
App.Path&
"
\采购管理系统.mdb;
PersistSecurityInfo=False"
Adodc1.RecordSource="
select*from用户"
Adodc1.Refresh
EndSub
PrivateSubCommand1_Click（）
StaticitimesAsInteger
Form2.StatusBar1.Panels（4）.Text=Text1.Text
'
验证用户名及密码
select*from用户where用户名='
+Text1.Text+"
'
IfAdodc1.Recordset.RecordCount>
0Then'
如果记录数大于零
验证密码
IfText2.Text=Adodc1.Recordset.Fields（"
密码"
）Then
LoadForm2
Form2.Show
UnloadMe
Else
IfText2.Text<
>
Adodc1.Recordset.Fields（"
MsgBox"
密码错误,请重新输入！
vbCritical,"
系统提示"
itimes=itimes+1
Text2.Text="
Text2.SetFocus
EndIf
用户不存在,请重新输入！
Text1.Text="
Text1.SetFocus
Ifitimes=3Then'
错误3次，退出系统
MyMsg=MsgBox（"
输入错误,请向管理员查询！
）
IfMyMsg=vbOKThenEnd
EndSub
PrivateSubCommand2_Click（）
End
PrivateSubtext2_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenCommand1_Click'
按回车键进入
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenText2.SetFocus'
按回车键，text2获得焦点
二、主界面
主界面是登陆后最基础的一个界面，内容包括采购订单，订单收获，采购开单，采购付款，采购退货，产品销售。
图4-2主界面
Form3.Show
Form2.Enabled=False
PrivateSub供应商资料_Click（）
Form21.Show
PrivateSub库存查询_Click（）
Form8.Show
PrivateSub权限管理_Click（）
Form91.Show
PrivateSub添加用户_Click（）
Form9.Show
PrivateSub退出系统_Click（）
PrivateSub修改密码_Click（）
Form92.Show
三．添加用户
图4-3添加用户
PrivateSubForm_Load（）
自动识别数据库路径
Adodc1.ConnectionString="
Adodc1.RecordSource="
select*from权限设置"
Adodc1.Refresh
Adodc2.ConnectionString="
Adodc2.RecordSource="
select*from用户"
Adodc2.Refresh
PrivateSubForm_Activate（）
Text1.SetFocus'
text1获得焦点
PrivateSubForm_Unload（CancelAsInteger）
Form2.Enabled=True
回车text2获得焦点
IfKeyCode=vbKeyReturnThenText3.SetFocus'
回车text3获得焦点
PrivateSubText3_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenCommand1.SetFocus'
回车Command1获得焦点
Dimyhm'
保存用户名及密码
IfText1.Text<
Then
IfText1.Text=Adodc1.Recordset.Fields（"
用户名"
已添加该用户，请重新添加"
,"
:
Text3.Text="
ElseIfText2.Text<
AndText3.Text<
AndText2.Text=Text3.TextThen
adocon.Open"
adoRs.Open"
adocon,adOpenKeyset,adLockOptimistic
adoRs.AddNew
adoRs.Fields（"
）=Text1.Text
）=Text2.Text
adoRs.Update
adocon.Close
添加用户成功！
ElseIfText3.Text="
请输入确认密码"
Text3.SetFocus
Text3.TextThen
两次输入的密码不相同"
请输入用户名！
PrivateSubCommand3_Click（）
四．密码设置
本功能允许使用者对密码进行修改，取保系统的安全与方便。
如果你是系统的用户，输入用户名可对自己的密码进行修改。
图4-4密码设置
IfText1.Text="
OrText2.Text="
OrText3.Text="
输入不能为空!
!
48,"
提示信息"
select*from权限设置where用户名='
IfAdodc1.Recordset.RecordCount>
0Then
App
升级会员 