《2022年2022年进销存管理系统设计及源代码[定 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年进销存管理系统设计及源代码[定 .pdf（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 进销存管理系统设计及源代码一引言编写目的为提高工作效率，便于对库存产品进行统计和管理，特开发出进销存管理分析系统软件。本文档将对该管理分析系统软件进行详述，以便根据用户的要求进行软件的开发。而且除本系统需求分析规格说明书提及的功能之外，其余功能不列入待开发软件开发的范围。前景说明（1）待开发软件的名称为进销存管理分析系统；（2）该待开发的项目的开发者为陈韩珍；（3）该管理分析系统软件将对库存产品进行资料管理和统计，对产品的进货单和产品的销售单进行录入管理和统计。参考资料本文档参照了北京大学出版社出版的软件工程技术、方法与环境 一书中的需求分析文档。二 概述功能概述待开发软件的主要功能为：（
2、）该软件能对产品的进货单、产品的销售单进行资料录入；（）该软件能查询库存产品资料及产品的进货单和产品的销售单的资料，并预视打印查询结果或直接打印查询结果；（）该软件能对进销存管理分析系统进行数据的维护工作，以保证数据的完整性和准确性。名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 24 页 -2 待开发软件的主要功能及相互关系如下图：进 销 存 管 理 分 析 系 统信息登记查询打印进货登记销售登记按录入日期按录入日期按品名查询按品名查询按品名查询按单据编号按单据编号打印打印打印打印打印打印打印打印打印按进货商按客户查询系统维护关闭关闭关闭数据备份数据恢复期终转结进货查询销售查询
3、库存查询图 1 三 数据流图与数据字典数据流图经过分析，得出的数据流图如图2、图 3、图 4 所示。名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 24 页 -3 进 销 存管理分析系统产品库存管理要求查询要求统计表进货情况销售情况当前日期产品进销存管理人员图 2 顶层数据流图统计表 检查有效性库存管理要求查询要求产品进货情况产品销售情况有效的库存管理要求有效的查询要求处理要求处理查询当前日期图 3 0 层数据流图库存管理要求当前日期要求类型 处 理2.1产品进货2.2产品销售2.3产品的进货单产品的销售单库存文件图 4 一层数据流图（a）名师资料总结-精品资料欢迎下载-名师精心
4、整理-第 3 页，共 24 页 -4 查 询 要 求要求类别 处 理3.1产品进货 查 询3.2产品销售 查 询3.3 产 品统 计 表3.4进货文件销售文件库存文件产品进货情况查询产品进货情况产品销售情况查询产品销售情况统计表统计要求图 4 一层数据流图（b）数据字典（）数据流条目库存管理要求产品的入库单|产品的出厂单产品的进货单进货日期单据编号进货商附加说明品名计量单位单价数量金额产品的销售单销售日期单据编号客户附加说明品名计量单位单价数量金额查询要求产品的进货情况|产品的销售情况|统计要求产品的进货情况进货日期单据编号进货商附加说明品名计量单位单价数量金额产品的销售情况销售日期单据编号客
5、户附加说明品名计量单位单价数量金额统计表产品的库存情况（）文件条目文件名：进货文件组成：进货日期单据编号进货商附加说明品名计量单位单价数量金额组织：按产品的单据编号及品名的递增顺序排列文件名：销售文件组成：销售日期单据编号客户附加说明品名计量单位单价数量金额组织：按产品的单据编号及品名的递增顺序排列名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 24 页 -5 文件名：库存文件组成：品名计量单位数量组织：按产品的品名的递增顺序排列小说明小说明只描述最底层的基本加工。加工编号：加工名：检查有效性输入流：库存管理要求，查询要求输出流：有效的库存管理要求，有效的查询要求加工逻辑：检查输
6、入要求的有效性加工编号：.加工名：要求类型处理输入流：库存管理要求，当前日期输出流：产品的进货单，产品的销售单加工逻辑：根据库存管理要求的类型选择CASE 1：产品进货，输出产品的进货单CASE 2：产品销售，输出产品的销售单加工编号：.加工名：查询类别处理输入流：查询要求输出流：查询产品进货情况，查询产品销售情况，统计要求加工逻辑：根据查询类别选择CASE 1：查询产品进货情况CASE 2：查询产品销售情况CASE 3：统计要求加工编号：.加工名：产品进货查询输入流：查询产品进货情况，进货文件输出流：产品进货情况加工逻辑：根据查询产品进货情况的要求从进货文件中读出产品进货记录，输出产品进货情
7、况名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 24 页 -6 加工编号：.加工名：产品销售查询输入流：查询产品销售情况，销售文件输出流：产品销售情况加工逻辑：根据查询产品销售情况的要求从销售文件中读出产品销售记录，输出产品销售情况加工编号：.加工名：产品库存统计输入流：统计要求，库存文件输出流：统计表加工逻辑：根据统计要求从库存文件中读出所有库存产品的记录，输出统计表四 接口用户接口（）本管理分析系统采用分层打开的形式，而且当前窗口每次只有一个窗口，其主界面如下图：图 5（）报表的打印前可进行打印预览，也可以直接打印，并对打印机进行设置，其打印纸张采用纸；其界面如下图6、图
8、7、图 8 例所示：名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 24 页 -7 图 6图 7图 8名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 24 页 -8（）本管理分析系统的界面打开方式可使用键盘或鼠标操作。硬件接口运行该管理分析系统的硬件基本要求如下：CPU：至少 Pentium100 以上，建议使用Pentium400；内存：至少16M 以上，建议使用64M；硬盘：至少20M 硬盘空间；显示器：14显示器；其它：键盘、鼠标、1.44MB 软驱和光驱等。软件接口该管理分析系统的数据库能在Visual FoxPro.0 FOR Windows 上正常运行。
9、五 性能需求性能需求产品的进货单和产品的销售单中的“单价”和“金额”的精度取到小数点后两位，“数量”的精度取整数。时间特性该管理分析系统从启动到进入主菜单的时间正常情况下少于秒，录入并更新数据的时间正常情况下少于秒。灵活性本管理分析系统软件适应于Windows95 982000NT 中文版的环境下运行。六属性保密性该软件已对所用的数据库进行加密处理。七其它需求操作该管理分析系统可以在软件主菜单中选择“系统维护”“数据备份”来对系统数据进行定期备份，当出现故障时可以在软件主菜单中选择“系统管理”“数据恢复”进行系统数据恢复操作。故障及处理系统的故障分为软件故障和硬件故障。对于硬件故障采用更换计算
10、机硬件的处理方法。对于软件故障，系统提供恢复数据库的功能，使系统有能力将数据库恢复到损坏之前的正确状态，使重要的数据得到有效的保存和恢复。名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 24 页 -9 八待开发软件的详述软件功能详述（）信息登记管理：该管理分析系统软件的数据录入分为产品的进货单录入和产品的销售单录入。产品的进货单和产品的销售单能检查录入数据的有效性，并且确保“单据编号”的录入项不能为空，“金额”项采用自动计算方式，为“单价”乘以“数量”的积。其录入单如下图9、图 10：图 9 图 10（）产品库存资料管理：产品的库存资料是根据产品的进货单和产品的销售单的有效录入来
11、对产品的库存数据进行自动更新，以确保数据的正确性。名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 24 页 -10（）查询打印管理：查询打印分为进货查询、销售查询和库存查询三项。进货查询能根据产品的品名、单据编号、进货商或进货日期查询录入的进货单的资料，并打印查询结果；销售查询能根据产品的品名、单据编号、客户或销售日期查询录入的销售单的资料，并打印查询结果；库存查询能根据产品的品名进行库存产品资料的查询，并打印查询结果。进货查询选择查询的方式界面如图11 所示；销售查询选择查询的方式界面如图 12 所示；输入查询数据的界面如图13 所示；其查询进货文件数据的显示界面如图14 所示
12、；其查询销售文件数据的显示界面如图15 所示；其查询库存文件数据的显示界面如图16 所示。图 11 图 12名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 24 页 -11 图 13 图 14 图 15 名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 24 页 -12 图 16（）系统维护：本软件的系统维护包括“数据备份”、“数据恢复”和“期终转结”三个部分。“数据备份”可以对系统数据进行定期备份，当出现故障时，可以使用“数据恢复”进行系统数据恢复操作；“期终转结”可以对数据库进行清空操作，提供一个新的数据库以供使用。其“系统维护”的界面如下图17 所示：图 1
13、7名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 24 页 -13 软件数据库功能设计：其待开发软件数据库的功能设计如下图18 所示：进 销 存 管 理 分 析 系 统信息登记查询打印进货登记销售登记按录入日期按录入日期按品名查询按品名查询按品名查询按单据编号按单据编号打印打印打印打印打印打印打印打印打印按进货商按客户查询系统维护关闭关闭关闭关闭数据备份数据恢复期终转结进货查询销售查询库存查询图 18 九管理分析系统程序源代码：1 初始化程序：clear all set century on set date to ymd 名师资料总结-精品资料欢迎下载-名师精心整理-第 13
14、 页，共 24 页 -14 DO FORM jxc50.scx 2进销存管理分析系统主界面：（1）控件 Command1（信息登记）：Click Event 事件：do FORM xxdj.scx（2）控件 Command2（查询打印）：Click Event 事件：do form cxdy.scx（）控件Command3（系统维护）：Click Event 事件：do form mentain.scx（4）控件 Command3（关闭）：Click Event 事件：thisform.release 3产品进货单的录入：（1）表单 Form1：Init Event 事件：THISFORM.T
15、EXT2.SETFOCUS（2）控件 Text1（进货日期）：Init Event 事件：THIS.VALUE=DATE()（3）控件 Text2（单据编号）：InteractiveChange 事件：IF EMPTY(THIS.V ALUE)THISFORM.COMMAND1.ENABLED=.F.ELSE THISFORM.COMMAND1.ENABLED=.T.ENDIF 名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 24 页 -15（3）控件 Text7（单价）：Init Event 事件：THIS.V ALUE=VAL()InteractiveChange 事件：T
16、HISFORM.TEXT9.V ALUE=THIS.V ALUE*THISFORM.TEXT8.VALUE（4）控件 Text8（数量）：InteractiveChange 事件：THISFORM.TEXT9.V ALUE=THIS.V ALUE*THISFORM.TEXT7.VALUE（5）控件 Command1（保存）：Click Event 事件：T1=THISFORM.TEXT1.VALUE T2=THISFORM.TEXT2.VALUE T3=THISFORM.TEXT3.VALUE T4=THISFORM.TEXT4.VALUE T5=THISFORM.TEXT5.VALUE T6
17、=THISFORM.TEXT6.VALUE T7=THISFORM.TEXT7.VALUE T8=THISFORM.TEXT8.VALUE T9=THISFORM.TEXT9.VALUE IF LEN(ALLTRIM(STR(T9)=9 IF LEN(T2)=8 SELEC JHDJ GO TOP LOCATE FOR 单据编号=T2 IF FOUND()MESSAGEBOX(单据编号不能重复！,16,错误)ELSE APPEND BLANK REPLACE 进货日期WITH T1 REPLACE 单据编号WITH T2 REPLACE 进货商WITH T3 REPLACE 附加说明WITH
18、T4 REPLACE 品名 WITH T5 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 24 页 -16 REPLACE 计量单位WITH T6 REPLACE 单价 WITH T7 REPLACE 数量 WITH T8 REPLACE 金额 WITH T9 SELEC KC GO TOP LOCATE FOR 品名=T5 AND 计量单位=T6 IF FOUND()REPLACE 数量WITH 数量+T8 ELSE APPEND BLANK REPLACE 品名WITH T5 REPLACE 计量单位WITH T6 REPLACE 数量WITH T8 ENDIF THIS
19、FORM.TEXT1.V ALUE=T1 THISFORM.TEXT2.V ALUE=THISFORM.TEXT3.V ALUE=THISFORM.TEXT4.V ALUE=THISFORM.TEXT5.V ALUE=THISFORM.TEXT6.V ALUE=THISFORM.TEXT7.V ALUE=V AL()THISFORM.TEXT8.V ALUE=0 THISFORM.TEXT9.V ALUE=0 THISFORM.REFRESH THISFORM.TEXT2.SETFOCUS ENDIF ELSE MESSAGEBOX(单据编号不能大于8 位！,16,错误)ENDIF ELSE
20、MESSAGEBOX(金额最大不能超过9 位！,16,错误)ENDIF（6）控件 Command2（退出）：Click Event 事件：名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 24 页 -17 THISFORM.RELEASE 5产品销售单的录入：（1）表单 Form1：Init Event 事件：THISFORM.TEXT2.SETFOCUS（2）控件 Text1（销售日期）：Init Event 事件：THIS.VALUE=DATE()（3）控件 Text2（单据编号）：InteractiveChange 事件：IF EMPTY(THIS.V ALUE)THISF
21、ORM.COMMAND1.ENABLED=.F.ELSE THISFORM.COMMAND1.ENABLED=.T.ENDIF（3）控件 Text7（单价）：Init Event 事件：THIS.VALUE=V AL()InteractiveChange 事件：THISFORM.TEXT9.V ALUE=THIS.V ALUE*THISFORM.TEXT8.VALUE（4）控件 Text8（数量）：InteractiveChange 事件：THISFORM.TEXT9.V ALUE=THIS.V ALUE*THISFORM.TEXT7.VALUE（5）控件 Command1（保存）：Click
22、 Event 事件：T1=THISFORM.TEXT1.VALUE T2=THISFORM.TEXT2.VALUE T3=THISFORM.TEXT3.VALUE T4=THISFORM.TEXT4.VALUE 名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 24 页 -18 T5=THISFORM.TEXT5.VALUE T6=THISFORM.TEXT6.VALUE T7=THISFORM.TEXT7.VALUE T8=THISFORM.TEXT8.VALUE T9=THISFORM.TEXT9.VALUE IF LEN(ALLTRIM(STR(T9)=9 IF LEN(T
23、2)=T8 SELEC XSDJ GO TOP LOCATE FOR 单据编号=T2 IF FOUND()MESSAGEBOX(单据编号不能重复！,16,错误)ELSE REPLACE 数量 WITH 数量-T8 IN KC APPEND BLANK REPLACE 销售日期WITH T1 REPLACE 单据编号WITH T2 REPLACE 客户 WITH T3 REPLACE 附加说明WITH T4 REPLACE 品名 WITH T5 REPLACE 计量单位WITH T6 REPLACE 单价 WITH T7 REPLACE 数量 WITH T8 REPLACE 金额 WITH T9
24、 THISFORM.TEXT1.V ALUE=T1 THISFORM.TEXT2.V ALUE=THISFORM.TEXT3.V ALUE=THISFORM.TEXT4.V ALUE=THISFORM.TEXT5.V ALUE=THISFORM.TEXT6.V ALUE=名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 24 页 -19 THISFORM.TEXT7.V ALUE=V AL()THISFORM.TEXT8.V ALUE=0 THISFORM.TEXT9.V ALUE=0 THISFORM.REFRESH THISFORM.TEXT2.SETFOCUS ENDIF
25、ELSE MESSAGEBOX(销售数量不能大于库存数量！,16,错误)ENDIF ELSE MESSAGEBOX(找不到库存产品！,16,错误)ENDIF ELSE MESSAGEBOX(单据编号不能大于8 位！,16,错误)ENDIF ELSE MESSAGEBOX(金额最大不能超过9 位！,16,错误)ENDIF（6）控件 Command2（退出）：Click Event 事件：THISFORM.RELEASE 6选择查询方式界面：（1）表单 Form1：Init Event 事件：IF CXLS=XSDJ THISFORM.COMMANDGROUP1.COMMAND3.CAPTION=
26、按客户查询 ENDIF（2）控件 Command1（按日期查询）：Click Event 事件：DO CASE CASE CXLS=JHDJ CXSRNR=进货日期 CASE CXLS=XSDJ CXSRNR=销售日期 名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 24 页 -20 ENDCASE DO FORM cx_srjm_d.SCX THISFORM.RELEASE（3）控件 Command2（按单据编号查询）：Click Event 事件：CXSRNR=单据编号 DO FORM cx_srjm.scx THISFORM.RELEASE（4）控件 Command3（按
27、进货商或客户查询）：Click Event 事件：DO CASE CASE CXLS=JHDJ CXSRNR=进货商 CASE CXLS=XSDJ CXSRNR=客户 ENDCASE DO FORM cx_srjm.scx THISFORM.RELEASE（5）控件 Command4（按品名查询）：Click Event 事件：CXSRNR=品名 DO FORM cx_srjm.scx THISFORM.RELEASE7按品名或单据编号查询界面：（1）表单 Form1：Init Event 事件：THISFORM.LABEL1.Caption=请输入查询的+CXSRNR+：（2）控件 Comm
28、and1（确定）：Click Event 事件：CXNR=THISFORM.TEXT1.VALUE THISFORM.RELEASE DO CX.QPR 名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 24 页 -21 DO FORM CXJM.scx（3）控件 Command2（取消）：Click Event 事件：THISFORM.RELEASE 8按日期查询界面：（1）表单 Form1：Init Event 事件：THISFORM.LABEL1.Caption=请输入查询的+CXSRNR+：（2）控件 Command1（确定）：Click Event 事件：CXNR=AL
29、LTRIM(STR(YEAR(THISFORM.TEXT1.VALUE)+-+ALLTRIM(STR(MONT(THISFORM.TEXT1.VALUE)+-+ALLTRIM(STR(DAY(THISFORM.TEXT1.VALUE)THISFORM.RELEASE DO CX.QPR DO FORM CXJM.scx（3）控件 Command1（取消）：THISFORM.RELEASE 9查询文件：SET SAFETY OFF DO CASE CASE CXSRNR=品 名 OR CXSRNR=单 据 编 号 OR CXSRNR=进 货 商 OR CXSRNR=客户 SELECT*;FROM
30、 进销售!&CXLS;WHERE&CXLS.&CXSRNR=ALL;(SELECT&CXSRNR;FROM&CXLS;WHERE&CXLS.&CXSRNR=&CXNR);INTO TABLE _TABLE CASE CXSRNR=进货日期 名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 24 页 -22 SELECT*;FROM 进销售!&CXLS;WHERE&CXLS.进货日期=ALL;(SELECT 进货日期;FROM&CXLS;WHERE&CXLS.进货日期=&CXNR);INTO TABLE _TABLE CASE CXSRNR=销售日期 SELECT*;FROM 进销
31、售!&CXLS;WHERE&CXLS.销售日期=ALL;(SELECT 销售日期;FROM&CXLS;WHERE&CXLS.销售日期=&CXNR);INTO TABLE _TABLE ENDCASE SET SAFETY ON 10 查询显示界面：（1）表单 Form1：Init Event 事件：DO CASE CASE CXLS=JHDJ CXLS=进货查询 CASE CXLS=KC CXLS=库存查询 CASE CXLS=XSDJ CXLS=销售查询 ENDCASE THISFORM.LABEL1.Caption=符合查询条件的+CXLS+：（2）控件 Command1（打印）：Clic
32、k Event 事件：DO CASE CASE THISFORM.OPTIONGROUP1.OPTION1.VALUE=1 DO CASE 名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 24 页 -23 CASE CXLS=进货查询 REPORT FORM CX_JH.FRX PREVIEW CASE CXLS=库存查询 REPORT FORM CX_KC.FRX PREVIEW CASE CXLS=销售查询 REPORT FORM CX_XS.FRX PREVIEW ENDCASE CASE THISFORM.OPTIONGROUP1.OPTION2.VALUE=1 DO
33、CASE CASE CXLS=进货查询 REPORT FORM CX_JH.FRX TO PRINTER PROMPT CASE CXLS=库存查询 REPORT FORM CX_KC.FRX TO PRINTER PROMPT CASE CXLS=销售查询 REPORT FORM CX_XS.FRX TO PRINTER PROMPT ENDCASE ENDCASE（3）控件 Command2（退出）：Click Event 事件：USE THISFORM.RELEASE 11系统维护界面：（1）控件 Command1（数据备份）：Click Event 事件：X=MESSAGEBOX(确定
34、要备份数据吗？,3+32+256,提示)IF X=6 set safety off copy FILE JHDJ.DBF TO _JHDJ.DBF COPY FILE KC.DBF TO _KC.DBF COPY FILE XSDJ.DBF TO _XSDJ.DBF MESSAGEBOX(数据已成功备份！,48,提示)ENDIF（2）控件 Command2（数据恢复）：名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 24 页 -24 Click Event 事件：X=MESSAGEBOX(确定要恢复数据吗？,3+32+256,提示)IF X=6 set safety off c
35、opy FILE _JHDJ.DBF TO JHDJ.DBF COPY FILE _KC.DBF TO KC.DBF COPY FILE _XSDJ.DBF TO XSDJ.DBF MESSAGEBOX(数据已成功恢复！,48,提示)ENDIF（3）控件 Command2（期终转结）：Click Event 事件：X=MESSAGEBOX(确 定 要 期 终 清 空 所 有 数 据 吗？请 注 意 先 备 份 数 据 库！,3+32+256,提示)IF X=6 set safety off copy FILE JHDJ_.DBF TO JHDJ.DBF COPY FILE KC_.DBF TO KC.DBF COPY FILE XSDJ_.DBF TO XSDJ.DBF MESSAGEBOX(数据已成功清空数据库！,48,提示)ENDIF 名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 24 页 -