毕业设计论文-计算机类

图5-3货品信息管理数据流程图5.6数据库的设计本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构描述如以下各表所示：表5-1 货品信息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2仓库编码文本5存放仓库文本12入库计划单价货币出库计划单价货币

续前页表5-1货品信息表字段名数据类型字段长度是否为空原始库存数字长整型默认货位文本5警戒底线库存数字长整型警戒高线库存数字长整型注意表的基本信息关键字的设置,可以帮助用户快速检索,查询相关的信息,在VB中的关键字的设置不能为空.警戒底线库存是为了保证企业业务的顺利进行,一个公司如果业务很广泛,那为了开展新业务或应对可能出现的意外事故，需要有一个最少的库存限制，而关于警戒高线库存是根据市场情况以及生产销售情况来决定库存最大数量，倘若客户退单或发生其他意外情况，企业对于库存有足够的缓冲能力，而不至于造成不可挽回的损失。表5-2 入库登记表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注将基本信息登记入库以便于填写入库单，更新，删除入库记录，查看现有库存信息，入库记录的查询及打印。关于库存中的物品都有增殖和贬值的可能，因此，要注意库存中物品价格的变化，该抛出时赶紧抛出，该价格调整要及时进行。表5-3出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注将出库有关基本信息登记以便于填写出库单，更新，删除出库记录，查看现有库存信息，出库记录的查询及打印。有关货物出库后要及时更新，从出库及入库中删除有表5-4仓库信息表字段名数据类型字段长度是否为空仓库编号文本5仓库名称文本12存货种类文本2存货价值货币关的记录，对库进行及时更新，这也是计算机库存管理优于过去的很重要的一点。通过仓库信息表可以查看仓库中存货，将出库信息删除的同时相关入库信息也要删除，通过查看库存信息了解还有多少货物剩余，那种缺货，并有相关的提示。供货单位信息表（收货单位表）包括单位编号、单位名称、单位地址、电话联系人的数据类型、字段长度、字段长度。经办人员表包括经办人编号、姓名家庭、住址办公电话的数据类型和字段长度。用户表包括UserIDuserPWD的数据类型字段长度以及是否为空另外，我们还建立了几张查询表，用以存放部分用于计算的统计信息，以便查询。●入库登记统计表 入库登记_合计●货品入库年度统计表 入库登记_n●供货单位年度供货金额统计表 入库登记_w●库存汇总表 库存 ●出库登记统计表 出库登记_合计●货品出库年度统计表 出库登记_h●收货单位年度收货金额统计表 出库登记_d入库登记_合计表与出库登记_合计分别是以入库登记表和出库登记表为基础的，所以此处不再描述；库存汇总表主要由出库表和入库表建立关系获得。入库登记_n包括货物名称、入库日期、年度数量的字段长度、数据类型入库登记_w包括供货单位、入库日期、年度供货总额的数据类型、字段长度。表5-5库存汇总字段名数据类型字段长度是否为空货物编码文本5入库日期日期/时间货物名称文本10数量（入库）数字长整型进货价货币数量（出库）数字长整型库存数量数字长整型表5-6出库登记_h字段名数据类型字段长度是否为空货物名称文本10出库日期日期/时间年度数量数字长整型表5-7出库登记_d字段名数据类型字段长度是否为空收货单位文本50出库日期日期/时间年度金额总额数字长整型

6设计总结由于以前对VisualBasic6.0的接触并不是很多，对它的开发环境不是非常了解，所以在程序的开发过程中遇到了很多的困难，但经过同学和指导老师的帮助，一一化解了困难，并从中学到了很多编程方面的知识。但是由于经验方面的原因，以及对库存方面的操作流程了解不足，该系统还有许多不尽如人意的地方和功能上的缺陷，这些都有待于进一步改善。

参考文献[1]汉清计算机工作室.VisualBasic6.0数据库开发实例[M]．北京：机械工业出版社.2000.3[2]李春葆张植民.VisualBasic数据库系统设计与开发[M]．北京：清华大学出版社.2003.8[3]Buczek.Access2002数据库开发即时应用[M]．北京：人民邮电出版社.2002[4]求是科技.VisualBasic6.0程序设计与开发技术大全[M]．北京：人民邮电出版社.2004.9[5]夏邦贵.VisualBasic6.0数据库开发经典实例精解[M]．北京：机械工业出版社.2006.1[6]李春葆，张植民.VisualBasic数据库系统设计与开发[M]．北京：清华大学出版社.2003.8月[7][美]布奇科著，王小娟，陈代川译.Access2002数据库开发即时应用[M]．北京：人民邮电出版社.2002.1[8]季海娟.VisualBasic6.0基础教程[M]．北京：清华大学出版社.2005.1[9]恒扬科导.VisualBasic6.0程序设计学与用教程[M]．北京：机械工业出版社.2003.5[10]康诺利（Connolly,T.M.）等著，何玉洁等译.数据库设计教程第二版[M]．北京：机械工业出版社.2005.1[11](美)埃文,(美)卡拉汉著技桥工作室译.跟我学用VBA开发Access2002应用[M]．北京：科学出版社.2002.6[12]王宁.Access2002范例入门与应用[M]．北京：人民邮电出版社.2004.5[13]梁书斌.精通中文版Access2002数据库开发与应用[M]．北京：清华大学出版社.2002.5[14]美Forte,S.;译者：张冕洲等译.Access2002开发实用全书/实用全书丛书[M]．北京：电子工业出版社.2002.4[15]陈艳华.深入浅出Access2002数据库实例开发[M]．北京：中国青年出版社.2003.4[16]罗鸿.ERP原理、设计、实施》第三版[M]．北京：电子工业出版社.2005.4

附录本应用程序由33个窗体组成，主要的分别是：主窗体，欢迎界面，登陆窗体，入库窗体，出库窗体，库存汇总，打印及查询等窗体组成。通过运行程序首先进入欢迎界面和登陆窗体，通过输入密码，验证身份后进入主窗体，在主窗体上有10个菜单项，分别对应各自的功能模块窗体，包括系统，库存管理，入库管理，出库管理，盘存管理，综合管理，附项管理，历史数据管理，打印和查询。需要哪个功能的时候就点哪个菜单，相对应的窗体会自动弹出。程序实现的部分代码如下：●公共模块Publicdate1AsStringPublicdate2AsStringPublicgUserNameAsString'保存用户名'添加执行SQL语句的函数PublicFunctiontransactSQL(ByValsqlAsString)AsADODB.RecordsetDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'创建连接Setrs=NewADODB.Recordset'创建记录集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft.jet.oledb.4.0;DataSource=E:\库存管理\kucun.mdb"strArray=Split(sql)con.OpenstrConnection'打开连接IfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Thenrs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticSettransactSQL=rs'返回记录集iflag=1Elsecon.Executesql'执行命令iflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error:MsgBox"查询错误："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunction●主窗体的程序代码图1主窗体界面图1主窗体界面PrivateSuba1_Click()Form1.ShowEndSubPrivateSuba2_Click()DimfAddAsNewfrmAddUserfAdd.ShowfAdd.ZOrder0EndSubPrivateSuba3_Click()DimfChangePWDAsNewfrmChangePWDfChangePWD.ShowEndSubPrivateSuba4_Click()frmAbout.ShowEndSubPrivateSuba5_Click()'调入数据备份Loadmain_sjbfmain_sjbf.Showmain.Enabled=FalseEndSubPrivateSuba6_Click()'调入数据恢复Loadmain_sjhfmain_sjhf.Showmain.HideEndSubPrivateSubb1_Click()frm货品信息.ShowEndSubPrivateSubb12_Click()sql="select*from货品信息orderby货品编码"frmProInfo.createList(sql)frmProInfo.ShowEndSubPrivateSubb2_Click()frm货品库存.ShowEndSubPrivateSubB3_Click()frm超储货品.ShowEndSubPrivateSubb4_Click()frm短线货品.ShowEndSubPrivateSubc1_Click()frm入库登记.ShowEndSubPrivateSubc2_Click()frm货品入库年度统计.ShowEndSubPrivateSubc3_Click()frm供货单位供货分类金额统计.ShowEndSubPrivateSubc4_Click()frm供货单位年度供货金额统计.ShowEndSubPrivateSubCommand1_Click()date1=Text1.Text&"/"&Text3.Text&"/"&Text2.Textdate2=Text6.Text&"/"&Text4.Text&"/"&Text5.TextText7.Text=date1EndSubPrivateSubd1_Click()frm出库登记.ShowEndSubPrivateSubd2_Click()frm货品出库年度统计.ShowEndSubPrivateSubd3_Click()frm收货单位期间收货统计.ShowEndSubPrivateSubd4_Click()frm收货单位年度收货金额统计.ShowEndSubPrivateSube1_Click()frm盘存录入.ShowEndSubPrivateSube2_Click()frm盘存表.ShowEndSubPrivateSubf1_Click()frm货品出入汇总表.ShowEndSubPrivateSubg1_Click()frm经办人员.ShowEndSubPrivateSubg2_Click()frm供货单位.ShowEndSubPrivateSubg3_Click()frm仓库信息.ShowEndSubPrivateSubg5_Click()Form6.ShowEndSubPrivateSubh1_Click()frm历史库存.ShowEndSubPrivateSubh2_Click()frm历史入库.ShowEndSubPrivateSubh3_Click()frm历史出库.ShowEndSubPrivateSubi1_Click()DataReport1.ShowEndSubPrivateSubi2_Click()DataReport2.ShowEndSubPrivateSubi3_Click()DataReport3.ShowEndSubPrivateSubj1_Click()Form2.ShowEndSubPrivateSubj2_Click()Form3.ShowEndSubPrivateSubj3_Click()Form4.ShowEndSubPrivateSubj4_Click()Form5.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsComctlLib.Button)SelectCaseButton.KeyCaseIs="rk"'调入入库登记c1_ClickCaseIs="ck"'调入出库登记d1_ClickCaseIs="kchz"'调入库存汇总f1_ClickCaseIs="zhcx"'调入组合查询j4_ClickCaseIs="sjbf"'调入数据备份a5_ClickEndSelectEndSubPrivateSubx_Click()EndEndSub●登陆模块的实现PrivateSubcmdLogin_Click()denlu_name=txtUserName.Textdenlu_pass=txtPassword.TextDimmycnAsNewADODB.ConnectionDimmyrsAsNewADODB.RecordsetSetmyrs=NewADODB.Recordsetmycn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=kucun.mdb;"myrs.Open"SELECT*FROM[用户]whereuserID='"+denlu_name+"';",mycn,adOpenKeyset,adLockOptimisticIfmyrs.BOF=TrueAndmyrs.EOF=TrueThenMsgBox"查无此人",,"登陆信息"ElseIfmyrs("userPWD")=denlu_passThenMsgBox"身份正确",,"登陆信息"mainUnloadMeElseMsgBox"密码不正确",,"登陆信息"EndIfEndIfEndSub●添加用户模块的实现OptionExplicitPrivateSubCommand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(UserName.Text)=""Then'判断用户名称是否为空MsgBox"请输入用户名称!",vbOKOnly+vbExclamation,"警告"ExitSubUserName.SetFocusElsesql="select*from用户whereUserID='"&UserName&"'"Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'判断是否已经存在用户MsgBox"这个用户已经存在！请重新输入用户名称！",vbOKOnly+vbExclamation,"警告"UserName.SetFocusUserName.Text=""PassWord.Text=""ConfirmPWD.Text=""ExitSubElseIfTrim(PassWord.Text)<>Trim(ConfirmPWD.Text)Then'判断两次密码是否相同MsgBox"两次输入的密码不一致，请重新输入密码！",vbOKOnly+vbExclamation,"警告"PassWord.Text=""ConfirmPWD.Text=""PassWord.SetFocusExitSubElseIfTrim(PassWord.Text)=""Then'判断密码是否为空MsgBox"密码不能为空！",vbOKOnly+vbExclamation,"警告"PassWord.Text=""ConfirmPWD=""PassWord.SetFocusElse'添加用户sql="insertinto用户(UserID,UserPWD)values('"&UserNamesql=sql&"','"&PassWord&"')"transactSQL(sql)MsgBox"添加成功！",vbOKOnly+vbExclamation,"添加结果"'重新设置初始化为空UserName.Text=""PassWord.Text=""ConfirmPWD.Text=""UserName.SetFocusEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()UserName.Text=""PassWord.Text=""ConfirmPWD.Text=""EndSub●修改用户密码的实现OptionExplicitPublicgUserNameAsStringPrivateSubCommand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(OldPWD.Text)=""Then判断是否输入旧密码MsgBox"请输入旧密码！",vbOKOnly+vbExclamation,"警告"OldPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)=""Then'判断是否输入新密码MsgBox"请输入新密码！",vbOKOnly+vbExclamation,"警告"NewPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)<>Trim(ConfirmPWD.Text)Then'判断两次密码是否相同MsgBox"两次密码不同！",vbOKOnly+vbExclamation,"警告"NewPWD.Text=""ConfirmPWD.Text=""NewPWD.SetFocusElse'修改密码sql="update用户setUserPWD='"&NewPWD&"'whereUserID='"sql=sql&gUserName&"'"transactSQL(sql)MsgBox"密码已经修改！",vbOKOnly+vbExclamation,"修改结果"UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()OldPWD.Text=""NewPWD.Text=""ConfirmPWD.Text=""EndSub●数据备份模块的实现PrivateSubForm_Activate()'赋值给text1Text1.Text="A"EndSubPrivateSubCommand1_Click()'确认数据备份Me.MousePointer=11YesNo=MsgBox("准备好了吗？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11MkDir(Text1.Text&":\数据备份")FileCopyApp.Path&"\kucun.mdb",Text1.Text&":\数据备份\kucun"&Date&".mdb"Me.MousePointer=0MsgBox"数据已备份完毕。"errprompt:Me.MousePointer=0SelectCaseErr.NumberCase57MsgBox"磁盘已满！",vbCriticalCase70MsgBox"磁盘写保护！",vbCriticalEndSelectEndSubPrivateSubCommand2_Click()Loadmainmain.Showmain.Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSub●数据恢复模块的实现PrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()Text1.Text=Dir1.Path&"\"&File1.FileNameEndSubPrivateSubCommand1_Click()'恢复指定路径下的数据库IfText1.Text=""ThenMsgBox"请选择要恢复的数据！"ElseMe.MousePointer=11FileCopyDir1.Path&"\"&File1.FileName,App.Path&"\kucun.mdb"Me.MousePointer=0MsgBox"数据已恢复完毕！"EndIfEndSubPrivateSubCommand2_Click()main.ShowUnloadMeEndSub对于货品信息的浏览，主要采用了MSFlexGrid控件，它是一种Active控件，该控件提供了表格式界面，处理数据相当灵活，具有只读数据绑定、对表格数据进行显示和操作、数据分组排序、Data控件赋值、文本自动换行等功能。但它无法对数据进行动态输入，只能提供浏览功能。图5－2货品信息界面图5－2货品信息界面具体代码如下：OptionExplicitPrivateSubCommand1_Click()rsGrid.RefreshEndSubPrivateSubForm_Load()DimsqlAsStringsql="select*from货品信息orderby货品编码"createList(sql)EndSubPublicSubcreateList(sqlAsString)DimrsAsNewADODB.RecordsetDimiAsIntegerDimrsGirdAsMSFlexGrid'设置表头rsGrid.TextMatrix(0,0)="货品编码"rsGrid.TextMatrix(0,1)="货品名称"rsGrid.TextMatrix(0,2)="类别"rsGrid.TextMatrix(0,3)="型号"rsGrid.TextMatrix(0,4)="单位"rsGrid.TextMatrix(0,5)="仓库编码"rsGrid.TextMatrix(0,6)="存放仓库"rsGrid.TextMatrix(0,7)="入库计划单价"rsGrid.TextMatrix(0,8)="出库计划单价"rsGrid.TextMatrix(0,9)="原始库存"rsGrid.TextMatrix(0,10)="默认货位"rsGrid.TextMatrix(0,11)="警戒底线库存"rsGrid.TextMatrix(0,12)="警戒高线库存"Fori=0To12'设置所有表格对齐方式rsGrid.ColAlignment(i)=4NextiFori=0To11'设置每列宽度rsGrid.ColWidth(i)=1400NextirsGrid.ColWidth(12)=2000Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'显示信息内容rsGrid.Rows=1WhileNotrs.EOFrsGrid.Rows=rsGrid.Rows+1rsGrid.TextMatrix(rsGrid.Rows-1,0)=rs(0)rsGrid.TextMatrix(rsGrid.Rows-1,1)=rs(1)rsGrid.TextMatrix(rsGrid.Rows-1,2)=rs(2)rsGrid.TextMatrix(rsGrid.Rows-1,3)=rs(3)rsGrid.TextMatrix(rsGrid.Rows-1,4)=rs(4)rsGrid.TextMatrix(rsGrid.Rows-1,5)=rs(5)rsGrid.TextMatrix(rsGrid.Rows-1,6)=rs(6)rsGrid.TextMatrix(rsGrid.Rows-1,7)=rs(7)rsGrid.TextMatrix(rsGrid.Rows-1,8)=rs(8)rsGrid.TextMatrix(rsGrid.Rows-1,9)=rs(9)rsGrid.TextMatrix(rsGrid.Rows-1,10)=rs(10)rsGrid.TextMatrix(rsGrid.Rows-1,11)=rs(11)rsGrid.TextMatrix(rsGrid.Rows-1,12)=rs(12)rs.MoveNextWendrs.CloseEndIfEndSub●货品入库登记模块的实现图5－3入库登记窗口图5－3入库登记窗口PrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'错误处理程序代码置于此处'想要忽略错误，注释掉下一行'想要捕获它们，在此添加代码以处理它们MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'为这个recordset显示当前记录位置datPrimaryRS.Caption="Record:"&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'验证代码置于此处'下列动作发生时该事件被调用DimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNewCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdRefresh_Click()'只有多用户应用程序需要OnErrorGoToRefreshErrdatPrimaryRS.RefreshExitSubRefreshErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdClose_Click()UnloadMeEndSub●出库登记模块的实现图5－4出库登记窗口图5－4出库登记窗口PrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'错误处理程序代码置于此处'想要忽略错误，注释掉下一行'想要捕获它们，在此添加代码以处理它们MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'为这个recordset显示当前记录位置datPrimaryRS.Caption="Record:"&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'验证代码置于此处'下列动作发生时该事件被调用DimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNewCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancelEndS