sql物流信息系统文档Word文档格式.docx
- 文档编号:17149652
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:46
- 大小:2.05MB
sql物流信息系统文档Word文档格式.docx
《sql物流信息系统文档Word文档格式.docx》由会员分享,可在线阅读,更多相关《sql物流信息系统文档Word文档格式.docx(46页珍藏版)》请在冰豆网上搜索。
2.5仓储子系统………………………………………18
2.6配送子系统………………………………………20
2.7财务管理子系统…………………………………22
2.8分析子系统………………………………………23
2.9帮助………………………………………………23
3数据库……………………………………………………..25
3.1数据库表的基本结构……………………………..25
3.2数据E-R图……………………………………….35
3.3数据库触发器……………………………………37
4系统流程图……………………………………………........43
5致谢…………………………………………………............44
前言
现代物流运作的核心是信息技术,通过信息技术将原来割裂的供应链中的各个物流环节整合在一起,以突出地表现现代物流的整合化特征。
现代物流为满足人们对物资流通过程的及时性要求,借助于物流信息网络技术,最大限度地将原来在实现物资空间转移中所进行的运输、仓储、包装、装卸、加工以及配送等多个环节整合在一起,以一个整体面对社会的物流需求。
1课题的研究目的和意义:
。
本课题的研究目的是为了为一个物流公司方便企业管理,提高企业经济效益。
因为一个物流公司的发展离不开两个基本的条件:
第一是信息技术、网络技术的普及和发展,特别是互联网技术解决了信息共享、信息传输的标准问题和成本问题,使得信息更广泛地成为控制、决策的依据和基础。
因此只要解决信息的采集、传输、加工、共享,就能提高决策水平,从而带来效益。
这是所有信息化的共性问题,基础问题。
第二是企业在利益机制的驱动下,不断追求降低成本,将系统论和优化技术用于物流的流程设计和改造,融入的管理制度之中。
此时的信息系统作用有二,其一是固化新的流程或新的管理制度,使其得以规范地贯彻执行;
其二是在规定的流程中提供优化的操作方案,例如运输路径的优化方案等。
2国内物流信息现状
伴随着我国经济的持续快速发展,我国物流行业呈现出高速增长的势头,而物流信息化的投入力度也相应提高,建设步伐持续加快。
相关调查显示,我国大中型企业物流及第三方物流企业信息化意识普遍提高,信息化进程正在加快,大约有74%的企业已经建立了信息管理系统,77%的企业已有自己的网站。
但是,我国物流各个环节如运输、仓储、配送的成本以及劳动力和设备成本都远远低于发达国家,而整个物流过程的综合成本却大大高于发达国家。
其主要原因,就是物流各环节信息化程度低,信息沟通不畅,造成库存大,运力浪费。
因此,物流企业管理信息化,是行业发展必然趋势。
3课题研究的内容
本课题主要是通过研究目前国内物流公司的运行情况,通过vb语言和sqlServer数据库来编写一个物流信息系统。
该系统总共可以分八个子系统:
用户管理子系统、公司内部管理子系统、采购子系统子系统、仓库子系统、配送子系统、报表输出子系统、智能分析子系统。
用户管理子系统用来管理公司用户的基本信息的,本子统合配送子系统服务于给用户送货配货。
采购系统和仓库子系统用于公司物资的管理。
公司内部管理子系统和报表输出子系统用于公司的日常的工作管理。
设计的重点是这八个子系统能够协调的工作,建立一个数据服务工作站。
然后可以使公司的个个分部可以在不同的地点不同的时间了解公司的运行情况。
对公司的资源达到最大的优化利用。
系统介绍
本系统采用的是VB6.0和MSSQLSERVER2000。
通过ADODB来连接数据库。
采用下拉式菜单的模式使系统明了,简洁易用。
本系统分为七大模块:
用户管理子系统、内部管理子系统、采购子系统、仓储子系统、配送子系统、财务管理子系统、分析子系统。
主界面如下。
2.1系统登录
:
其中主要的代码是确认输入的用户名,通过用户名来确认其要登录的界面。
DimconnAsNewADODB.Connection
conn.Open"
Provider=SQLOLEDB.1;
IntegratedSecurity=SSPI;
PersistSecurityInfo=False;
InitialCatalog=物流信息系统;
DataSource=."
OnErrorGoToerrhandler:
IfTrim(Text1.Text="
"
)Then
MsgBox"
请输入用户名"
vbExclamation
Text1.SetFocus
Else
sql="
select*from用户信息表where用户名='
&
Trim(Text1.Text)&
"
'
Setrs=conn.Execute(sql)
Ifrs.EOF=TrueThen
没有此用户,请重新输入"
Text1.Text="
Text2.Text="
IfTrim(rs!
密码)=Trim(Text1.Text)Andrs!
用户名!
=Trim(Text1.Text)Then
userid=rs!
用户名'
将决定用户进入主窗体后的访问权限
jobid=rs!
权限
rs.Close
Me.Hide
frmMain.Show
UnloadMe
密码不正确,请重新输入密码"
2.2用户管理子系统
用户管理子系统分为添加用户、修改用户信息、删除用户。
添加用户的主要界面:
添加过程中注意:
第一:
用户名不能为空。
第二:
用户名不能重复。
第三:
密码的两次输入必须相同。
第四选择正确的权限。
判断的主要代码:
IfText1.Text="
Then
MsgBox"
用户名不能为空"
Text1.SetFocus
ExitSub
Ifstrusername=Trim(Text1.Text)Then
该用户已存在,请重新输入!
,"
消息提示"
Text1.Text="
Else
IfText2.Text="
请输入密码"
Text2.SetFocus
IfText7.Text="
请再次输入密码确认"
Text7.SetFocus
IfText7.Text<
>
Text2.TextThen
两次输入密码不一致,请重新输入!
Text2.Text="
Text7.Text="
'
判断是否选择权限
IfCombo1.Text="
请选择权限"
Combo1.SetFocus
修改用户的信息首先要查找用户名如果存在则跳到修改用户界面。
界面设计如下图:
用户名的输入时要处理的问题是第一:
用户名必须存在,如不存在要做报错处理。
实现的主要代码如下:
IfAdodc1.Recordset.Fields("
用户名"
)=Text1.TextThen
Adodc1.Recordset.Delete
用户名不存在,请重新输入!
vbOKOnly,"
第二当用户名存在时跳转页面
SetText1.DataSource=Adodc1
修改用户信息.Show
实现用户修改的主要代码如下:
DimsqlAsString
select员工编号asygbhfrom员工基本信息表"
conn.Executesql
DimrsAsNewRecordset
rs.Open"
select*from用户信息表"
conn,adOpenKeyset,adLockPessimistic
Withrs
Text1.Text=rs.Fields("
)
Text2.Text=rs.Fields("
密码"
Text3.Text=rs.Fields("
权限"
Text4.Text=rs.Fields("
家庭地址"
Text5.Text=rs.Fields("
联系电话"
Text6.Text=rs.Fields("
电子邮箱"
删除用户通过查找到该用户名,并通过该用户名跳转到员工信息表,
该表中进行删除操作,避免重复,提高代码的利用效率。
主要代码。
在员工基本信息表.Show'
该步设计可管理员根据其它相关信息决定是否删除某用户
MSHFlexGrid1.Visible=False
界面格式如下:
2.3内部管理子系统:
组织框架、员工基本信息、部门信息、本地物流点信息、考勤记录、员工离职信息。
组织框架是让用户明白公司内部成员结构和查找自己的所属部门。
员工基本信息表:
设计到添加、修改、删除、保存记录。
设计到的主要技术是保存记录和删除记录:
删除记录的主要代码.
If.RecordCount<
1Then
没有记录可以删除!
ExitSub
DimaAsInteger,bAsInteger
a=MsgBox("
你确定删除这条记录吗?
vbCritical+vbYesNo,"
删除"
Screen.MousePointer=vbHourglass
Ifa=vbYesThen
确认删除
pos=.AbsolutePosition
conn.BeginTrans
.Delete
.Requery
conn.CommitTrans
指针超出当前记录
IfNot.EOFOrBOFThen
.MoveFirst
.AbsolutePosition=pos
EndIf
记录已经被成功删除"
vbInformation,"
确认"
Screen.MousePointer=vbDefault
EndWith
部门信息表分为修改、删除、添加、保存、查看所有部门信息。
其中设计的关键技术是查看所有部门信息的实现过程
Command3.Visible=True
Command6.Visible=True
Command6.Enabled=False
Text2.Visible=True
DimaAsInteger
Fora=0To4
Label1(a).Visible=True
Text1(a).Visible=True
Next
Label1(5).Visible=True
部门信息表的界面如下:
本地物流信息系统的主要作用是提供公司内部员工的查询本地物流公司的基本情况:
界面如下:
考勤记录的作用是规范公司的管理,也是公司进行人员评定的依据。
通过查询条件可以查询到公司员工的出勤情况。
其中升序查询和降序查询是关键技术:
Case"
员工编号"
qy="
select*from考勤记录orderby员工编号asc"
员工姓名"
select*from考勤记录orderby员工姓名asc"
缺勤时间"
select*from考勤记录orderby缺勤时间asc"
上班时间"
select*from考勤记录orderby上班时间asc"
下班时间"
select*from考勤记录orderby下班时间asc"
考勤日期"
select*from考勤记录orderby考勤日期asc"
员工离职信息表的作用是及时更新公司内部员工的信息。
保证公司内部信息的实效性。
界面如下:
2.4采购子系统
分为供应商信息、采购信息、货物信息、货物类别、货物报损。
采购信息表
货物信息表
货物类别信息表
货物报损:
以上是采购子系统的主要功能涉及到的最主要的连接数据库,并修改相应的表。
连接数据库的代码是:
2.5仓储子系统包括:
入库、仓库、库存、出库。
库存信息表界面
入库信息表
出库信息表的界面
以上是仓库子系统的主要界面和要实现的主要功能。
所用的关键技术在是数据库的连接和数据表的修改。
在上面已经做过详细的介绍
2.6配送子系统
设计到配送、异地物流信息点、车辆调度、货源地信息、运费。
涉及到最主要的界面是:
通过这该系统可以找到最优的运输路线和最优的运输成本。
2.7财务管理子系统
分为付款信息表、收款信息表以及工资信息表。
收款信息表
工资核算表
在工资核算中涉及到的问题是如何核算工资。
其中代码如下:
提取员工基本信息
DimsalaryAsDouble
IfText22.Text="
请输入员工编号"
提示消息"
Dimrs1AsNewRecordset
sql="
select员工编号from员工基本信息表where员工编号='
Trim(Text22.Text)&
Setrs1=conn.Execute(sql)
Ifrs1.RecordCount<
0Then
数据库中没有记录"
ElseIfStrComp(rs1.Fields(0).Value,Trim(Text22.Text))<
员工编号不正确,请核实后重新输入"
rs1.Close'
断开连接,释放系统资源
selectmonth(getdate()-进入本公司时间)as工龄from员工基本信息表"
提取工龄
salary=CDbl(rs.Fields(0).Value)*80'
强制将时间类型转换为数值型,用于计算工龄工资
rs.Close'
select姓名,银行帐号,权限等级,开户银行from员工基本信息表where员工编号='
从员工基本信息表中提取员工信息"
Setrs=conn.Execute(sql)'
定向rs记录源,填充文本框内容
显示文本框内容
姓名"
).Value
Text17.Text=rs.Fields("
银行帐号"
Text18.Text=rs.Fields("
开户银行"
获取权限职务信息,计算基本工资、岗位工资
DimplantAsString
plant=rs.Fields("
权限等级"
SelectCaseplant
a"
Text8.Text=2000
Text4.Text=4000
b"
Text8.Text=1000
Text4.Text=3000
c"
Text8.Text=500
Text4.Text=2000
EndSelect
提取完毕,关闭记录源
Text7.Text=salary
Text19.Text=Now
计算应发合计
DimsumsalaryAsDouble
sumsalary=CDbl(Text4.Text)+CDbl(Text5.Text)+CDbl(Text6.Text)+CDbl(Text7.Text)+CDbl(Text8.Text)+CDbl(Text9.Text)+CDbl(Text10.Text)
sumsalary=Text4.Text+Text5.Text+Text6.Text+Text7.Text+Text8.Text+Text9.Text+Text10.Text
Text15.Text=sumsalary
EndIf
conn.Close'
关闭连接以释放资源
EndSub
2.8分析子系统
主要用于公司内部的优化问题,是利润达到最大!
分析子系统中主要是解决了车辆调度的信息。
解决最优的路线。
帮助:
在帮助菜单下主要涉及到系统的说明。
也就是本文档。
3数据库
本数据库包括27张表。
本地物流点信息表、部门信息表、采购信息表、仓库信息表、车辆信息表、出库信息表、付款信息表、工资核算表、供货商信息表、货物报损信息表、货物类别信息表、货物信息表、考勤记录、库存信息表、目标客户信息表、目的地附近货源信息表、配送信息表、入库信息表、收款信息表、异地点物流点信息表、银行账号信息表、用户信息表、员工基本信息表、员工离职信息表、运费信息表、运输队人员信息表。
3.1数据库表的基本结构
列名
数据类型
长度
是否为空
说明
本地物流点信息表
公司名称
Vachar
30
不为空
公司编号
Id
可为空
服务电话
15
公司网站
50
邮政编码
法人代表
公司地址
60
占地面积
Numeric
15,2
当前剩余库容
10,2
固定运力
Int
运力上限
公司账号
开户银行
20
部门信息表
部门编号
唯一决定某一个部门
部门名称
部门主管
10
电话
额定人数
采购编号
唯一决定某一次采购行为
供应商编号
业务员编号
采购时间
Datatime
仓库信息表
仓库编号
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- sql 物流 信息系统 文档