物流管理专业毕业论文(3)

仓库管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登录本模块进行更多的考虑，设计不同用户的操作权限和登录方法。

对于一个仓库来说，最大的功能就是存储货品，所以仓库管理就是对货品信息，仓库信息的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加、删除更新

各种学习资料

数据库等。

仓库中货品的入库管理操作就是对于货品入库情况的管理，当有货品到货需要入库保管，用户可以方便的输入货品的名称、数量等信息。

仓库中货品的出库，这部分功能与入库操作流程差不多，区别在于只是对出库货品进行管理，货品信息数据的输入。

仓库货品的信息量大，数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等，仓库信息，供货单位和经办人员信息的查看及维护。仓库管理人员可以浏览、查询、添加、删除等货品的基本信息等。报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括出库报表，仓库报表及经办人员报表等一些基本信息的打印，方便简洁。本系统基本包含了仓库管理的主要需求，具有完善细致的功能、友好的用户界面、较强的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。

4.2可行性分析

4.2.1技术上可行

该系统所需的硬件设备，市场上就有销售，并且价格较低。所需的软件，操作系统采用Windows系列操作系统，数据库管理系统采用VisualBasic与Access相结合，这些软件都是很常见，在系统开发中被大量应用的，技术也都达到了比较成熟的阶段。因此，在技术上可较容易实现的。

4.2.2经济上可行

本系统需要的硬件，软件支持都比较容易得到，公司也急需改变原来的仓库作业方式。因此对开发库存系统大力支持，开发经费没有问题。

4.2.3管理上可行

库存有很多的管理体制，每件入库物品都有相应的记录，出库也要对相应的物品进行删减，同时入库和出库必须对每个物品的相应数量和单价进行录入。因此管理上是可行的。

另外，要将开发系统运用到仓库作业中，仓库作业方式区别与过去，所以，需要对仓库管理员进行一个系统运用前的培训，仓库的工作人员也都很乐意接受培训。

4.3系统功能的模块设计

4.3.1总体模块设计（如图4.1）

各种学习资料

后台数据库的表设计如表4.1至表4.5：

表4.1tb_enter(用户信息表)

字段名

操作员姓名

职务

密码数据类型文本文本文本字段大小202020

表4.2tb_KCXX(库存信息表)

字段名

库存编号

货品编号

货品名称

货品规格

记量单位

数量

单价

入库日期

备注数据类型数字文本文本文本文本数字货币日期∕时间备注

表4.3tb_OUT(货品出库数据表)

字段名数据类型字段大小字段大小长整型30503020长整型

各种学习资料

表4.4tb_IN(货品入库数据表)字段名

货品编号

货品名称

货品规格

计量单位

数量

单价

金额

入库日期

经手人

备注数据类型文本文本文本文本数字货币货币日期∕时间文本备注

表4.5tb_kcpd(货品盘点表)字段大小30503020长整型20

字段名

盘点编号

盘点货品

货品规格

计量单位

数量

盘点日期

盘点员

货品有无异常数据类型数字文本文本文本数字日期∕时间文本文本字段大小长整型503020长整型2020

5系统设计

5.1系统登录模块

各种学习资料

图5.1系统登录界面

（1）功能分析

这是用户登录系统的入口，用户输入用户名及密码，如果密码正确，点击登录按钮，则成功登录，进入仓库管理系统主界面（如图5.2）；如果用户名输入错误，Msgbox则会提醒“对不起，没有此用户的信息”；如果密码错误，Msgbox则会提醒“密码不正确，请您确认后重新输入”（如图5.2）

；

图5.2

仓库管理系统主界面

图5.3系统登录密码错误

（1）实现代码：

各种学习资料

PrivateSubCommand1_Click()

rtn=SetWindowPos(Me.hwnd,-2,0,0,0,0,3)'运用API函数SetWindowPos，来实现取消窗体置前的功能

OnErrorResumeNext

DimMPasswordAsString

IfText2.Text="mr"AndText1.Text="mingrisoft"Then'判断是否使用的是超级口令登录

frm_main.StatusBar1.Panels.Item(2).Text="当前操作员：mr"

Name1=Text2.Text

UnloadMe

frm_main.Show

Else

Adodc1.RecordSource="select*fromtb_enterwhereM_Name='"&Text2.Text&"'"

Adodc1.Refresh

IfAdodc1.Recordset.RecordCount>0Then

MPassword=Adodc1.Recordset.Fields("M_Password")

IfText1.Text=MPasswordThen'判断数据的密码是否正

确

frm_main.StatusBar1.Panels.Item(2).Text="当前操作员："+

Adodc1.Recordset.Fields("M_Name")

Name1=Text2.Text

frm_main.Show

'添加登录日志

Open(App.Path&"\系统日志.ini")ForInputAs#1

DoWhileNotEOF(1)

LineInput#1,Intext

TStr=TStr+Intext+Chr(13)+Chr(10)

Loop

Close#1

TStr=TStr+""+Name1+""+Format(Now,

"yyyy-mm-ddhh:mm:ss")+""+"系统登录"+Chr(13)+Chr(10)

Open(App.Path&"\系统日志.ini")ForOutputAs#1

Print#1,TStr

Close#1

UnloadMe

Else

MsgBox"密码不正确,请您确认后重新输入",,"库存管理系统"

Text1.Text=""

Text1.SetFocus

EndIf

Else

MsgBox"对不起没有此用户的信息",,"仓储信息管理系统"

Text2.Text=""

Text1.Text=""

EndIf

EndIf

各种学习资料

EndSub

5.2货品管理模块

在货品管理模块中，货品入库，货品出库和货品盘点三个模块是相似的模块，有着相似的操作过程。以货品入库做为说明，实现代码：

PrivateSubCmd_Add_Click()

Fori=0To5'单击“添加”按钮之后，清空文本框中的内容

Text1(i).Text=""

Nexti

Adodc1.RecordSource="select*fromtb_inorderbyID"

Adodc1.Refresh

IfAdodc1.Recordset.RecordCount>0Then

Adodc1.Recordset.MoveLast'将数据库记录

移向最后一条

StrNum=Val(Adodc1.Recordset.Fields("ID"))+1'将入库编号加1

SelectCaseLen(Trim(StrNum))'位数不足则补0

Case1

StrTemp="00000"

Case2

StrTemp="0000"

Case3

StrTemp="000"

Case4

StrTemp="00"

Case5

StrTemp="0"

Ca …… 此处隐藏：2903字，全部文档内容请下载后查看。喜欢就下载吧 ……