|
2.8 处理过程分析 商品入库处理过程分析：商品入库是一个从供应商进货的过程，在进货时需要记录供应商信息、商品入库信息，所以在商品入库时需要进行登记，记录从哪个供应商进了哪些商品，以及商品数量、金额等信息。在商品入库过程中，关键之处是修改商品库存，用户在保存信息时，程序除了检查用户录入信息是否有错误，还要修改商品库存，如果用户录入的商品在库存中不存在，则向库存中插入商品信息（商品名称、商品数量等），如果存在，则在库存中修改该商品库存数量。 内容来自www.paper51.com 商品入库管理业务流程图： copyright paper51.com
内容来自www.paper51.com 商品出库处理过程分析：商品出库是一个提货的过程。在商品出库时，首先进行商品出库登记，然后录入提货的商品信息，最后修改库存，保存提货信息。 内容来自论文无忧网 www.paper51.com
商品出库业务流程图： 内容来自论文无忧网 www.paper51.com paper51.com 3 系统编码与实现3.1 系统管理界面模块 http://www.paper51.com 系统管理界面模块分为登录界面模块和主界面模块，前者的功能是用户登录，起验证作用，后者的功能主要是提供仓储管理相关的功能的入口，列出了商品入库、商品出库、库存查询、供应商信息、商品信息和密码修改等功能。用户通过登录界面模块登录，进入系统主界面模块进行所需操作。 http://www.paper51.com 1． 登录界面模块： 内容来自论文无忧网 www.paper51.com paper51.com 图3-1 登录界面 内容来自论文无忧网 www.paper51.com 启动程序后，连接数据库，进入登录界面。通过在“用户名”的ComboBox组件形成的下拉菜单中，选取登录用户名，然后键入密码，进行登录。这里是提供给仓储管理员进行登录及管理操作的，一般职员无用户名则无权限进入仓储管理系统。在此处供选择的用户名及需输入的密码是数据库中用户表中的信息。 copyright paper51.com ComboBox组件下拉显示的执行代码为： http://www.paper51.com
procedure TLOGIN.ComboBox1Change(Sender:TObject); 内容来自www.paper51.com begin copyright paper51.com
DM.QUSER.Locate('用户名称', ComboBox1.text,[]); 内容来自www.paper51.com Edit1.SetFocus; 内容来自www.paper51.com end; copyright paper51.com procedure TLOGIN.ComboBox1DropDown(Sender:TObject); 内容来自论文无忧网 www.paper51.com var 内容来自论文无忧网 www.paper51.com i:integer; 内容来自www.paper51.com begin http://www.paper51.com ComboBox1.Clear; 内容来自www.paper51.com
DM.QUSER.Open; 内容来自论文无忧网 www.paper51.com if (DM.QUSER.RecordCount>0) then 内容来自www.paper51.com DM.QUSER.First; copyright paper51.com
for i:=0 to DM.QUSER.RecordCount-1 do 内容来自www.paper51.com
begin //得到所有用户名称 内容来自论文无忧网 www.paper51.com ComboBox1.Items.Add(DM.QUSER.FieldByName('用户名称').AsString); 内容来自www.paper51.com DM.QUSER.Next; copyright paper51.com end; paper51.com end; copyright paper51.com
退出按钮的激发代码为： copyright paper51.com procedure TLOGIN.SpeedButton2Click(Sender:TObject); http://www.paper51.com begin 内容来自论文无忧网 www.paper51.com Application.Terminate; 内容来自论文无忧网 www.paper51.com end; paper51.com 2． 主界面模块： copyright paper51.com
paper51.com 图3-2 主界面 内容来自论文无忧网 www.paper51.com 成功登录后，进入到主界面。在主界面可以进行供应商信息、商品基本信息、商品入库信息、商品出库信息的管理操作。还可以进行商品库存查询，密码修改设置，数据备份、数据恢复等操作。主界面清新、简洁，而且使用方便、操作简单，各按钮位置编排有序规整。在主界面上还调用了Windows的计算器和记事本，使仓储管理员使用起来更方便、快捷。 copyright paper51.com 点击按钮的创建窗体类的实现，如密码修改设置按钮的激发代码为： paper51.com begin copyright paper51.com
Application.CreateForm(TMMXG,MMXG); http://www.paper51.com
MMXG.ShowModal; 内容来自论文无忧网 www.paper51.com MMXG.Free; paper51.com end; paper51.com 3.2 基本信息管理模块 http://www.paper51.com 基本信息管理模块分为供应商基本信息模块、供应商基本信息编辑模块、商品基本信息模块、商品基本信息编辑模块。在此可对供应商基本信息和商品基本信息进行查看、添加、修改、保存、取消等编辑操作，还可删除其相关信息。 内容来自论文无忧网 www.paper51.com 1． 供应商基本信息模块： copyright paper51.com
内容来自www.paper51.com 图3-3 供应商信息主窗体 copyright paper51.com
在此窗体可查看数据库中供应商基本信息表中的内容，由DBGrid组件负责连接数据库并显示其内容。可对供应商信息进行编辑、删除等操作。在这里，可查看到供应商编号、供应商名称、供应商地址、联系人、联系电话等供应商的相关信息，并可以对其进行删除操作，还可以点击“编辑”进入编辑窗体进行编辑。如果不再需要访问此窗体，可点击“退出”关闭掉此窗体。 paper51.com
打开此窗体时，连接数据库获取供应商基本信息表中内容的代码为： 内容来自论文无忧网 www.paper51.com Procedure TGYSXX_Z.FormCreate(Sender:TObject); copyright paper51.com begin //创建窗体时，打开数据表 内容来自论文无忧网 www.paper51.com with DM.QGYSXX do 内容来自论文无忧网 www.paper51.com
begin 内容来自www.paper51.com
close; 内容来自论文无忧网 www.paper51.com
sql.Clear; paper51.com sql.Add('select * from 供应商基本信息'); 内容来自www.paper51.com
open; copyright paper51.com end; 内容来自www.paper51.com dm.DSOGYSXX.Open; 内容来自论文无忧网 www.paper51.com end; 内容来自www.paper51.com 2． 供应商基本信息编辑模块： 内容来自论文无忧网 www.paper51.com paper51.com 图3-4 供应商信息编辑窗体 copyright paper51.com
点击图3-3中“编辑”按钮得到此窗体。在此可对供应商相关信息进行添加和修改。点击“添加”按钮，可添加新的供应商相关信息并加以保存；点击“修改”，可对现有的供应商信息进行修改。信息保存到供应商基本信息表中。供应商编号、名称、地址等相关信息能够详细记录仓储管理中商品供应商的详细资料，能够方便管理经营等。如在添加或修改过程中，不再需要添加或修改，可点击“取消”以撤消新建的或已更改的信息。 paper51.com 公开声明： paper51.com Procedure bh; //自动编号 copyright paper51.com
function CanSave: Boolean;//判断是否保存 copyright paper51.com procedure posting; //提交数据 http://www.paper51.com procedure GetAll; //获得所有数据 paper51.com procedure tr; //去除空字符 内容来自www.paper51.com
“添加”按钮的点击事件代码为： http://www.paper51.com procedure TGYSXX.SpeedButton1Click(Sender:TObject); paper51.com begin //添加时，控件初始化 copyright paper51.com GroupBox1.Enabled:=True; copyright paper51.com SpeedButton2.Enabled:=False; http://www.paper51.com SpeedButton3.Enabled:=True; copyright paper51.com SpeedButton4.Enabled:=True; http://www.paper51.com Edit1.Clear; 内容来自www.paper51.com Edit2.Clear; paper51.com …… copyright paper51.com Edit8.Clear; 内容来自www.paper51.com Edit9.Clear; http://www.paper51.com Edit10.Clear; 内容来自论文无忧网 www.paper51.com Memo1.Clear; copyright paper51.com ActionCD:= 'N'; copyright paper51.com
bh; 内容来自www.paper51.com Edit2.SetFocus; 内容来自www.paper51.com SpeedButton1.Enabled:=False; http://www.paper51.com end; http://www.paper51.com 3． 商品基本信息模块： paper51.com
copyright paper51.com
图3-5 商品基本信息主窗体 paper51.com
此窗体显示商品基本信息表中内容，与供应商基本信息窗体的功能类似。可查看商品编号、商品名称、商品简称、规格、保持期、产地、单位、进价等商品基本信息，也可对其进行删除操作和点击进入编辑窗体进行具体的编辑操作。 内容来自论文无忧网 www.paper51.com
点击“编辑”按钮的事件代码为： 内容来自论文无忧网 www.paper51.com procedureTSPJBXX_Z.SpeedButton1Click(Sender: TObject); paper51.com begin http://www.paper51.com Application.CreateForm(TSPJBXX,SPJBXX); http://www.paper51.com SPJBXX.GetAll; http://www.paper51.com ActionCD:='M'; 内容来自www.paper51.com SPJBXX.ShowModal; paper51.com SPJBXX.Free; copyright paper51.com end; http://www.paper51.com
4． 商品基本信息编辑模块： paper51.com
http://www.paper51.com
图3-6 商品基本信息编辑窗体 内容来自www.paper51.com 此窗体可对商品基本信息进行添加、修改等管理操作。信息保存到商品基本信息表中。通过商品编号、商品名称、商品简称、保质期、规格、进价等详细地记录下商品基本信息，精确到供应商名称与价格之间的对应联系等。在备注一栏内可注明各商品的具体情况。在这里可以添加新的商品基本信息和修改已有商品信息。 copyright paper51.com 3.3 商品库存管理模块 http://www.paper51.com 商品库存管理模块分为商品入库信息模块、商品入库信息编辑模块、商品出库信息模块、商品出库信息编辑模块、商品库存查询模块。在此可对商品的入库和出库信息进行查看、添加、保存和删除等编辑操作，入库和出库的信息非常详细，可编辑其供应商和商品相关指数，还有入/出库编号、入/出库时间及经手人等。还可按商品名称进行查询和查看全部库存。 http://www.paper51.com 1． 商品入库信息模块： paper51.com
http://www.paper51.com 图3-7 商品入库信息主窗体 http://www.paper51.com 此窗体显示商品入库信息表中的内容，包括入库编号、供应商编号、供应商名称、商品名称、商品规格、商品单位、商品数量、商品单价等商品入库信息。可对其进行删除和编辑操作。商品出库信息模块与此模块相似，可对出库编号、供应商相关信息、商品相关信息等商品出库信息进行查看、编辑和删除操作。 paper51.com “删除”按钮的事件代码为： copyright paper51.com procedureTSPRKXX_Z.SpeedButton2Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com begin copyright paper51.com if DM.QSPRKXX.RecordCount=0 then //判断数据库内是否有记录 copyright paper51.com
begin 内容来自www.paper51.com Application.MessageBox('已无记录可删除!','提示',0+MB_ICONINFORMATION); 内容来自论文无忧网 www.paper51.com
exit; copyright paper51.com end; copyright paper51.com
if DM.DSOSPRKXX.IsEmpty then 内容来自论文无忧网 www.paper51.com exit; 内容来自论文无忧网 www.paper51.com if ID_YES=application.MessageBox('确实要删除这条记录吗？','提示',MB_YESNO) then paper51.com begin http://www.paper51.com DM.DSOSPRKXX.Delete; paper51.com end; 内容来自论文无忧网 www.paper51.com end; paper51.com |