商品管理系统VFP.doc

数据库课程设计商品管理系统商品管理系统一、概述 随着全球经济一体化，国内经济改革的逐年深化，国内中小企业都面临着巨大挑战，管理体制的不完善、生产技术不能和集团公司相竞争等问题，成为中小企业发展需要解决的首要问题。即使企业具有了一定的先进技术，如果管理体制不完善，也不会在激烈的社会竞争中占有一席之地。商品管理系统的开发利用计算机系统运行速度快，数据存储大，传递信息快，便于修改和查询的特点，将商品管理系统计算机化，可及时给决策机构准确，全面提供市场信息和商品资料，这正是商品管理系统的目标。商品管理系统是为了适应现代销售可库存管理要求，推动商品管理走向科学化，规范化，减轻单位销售和库存管理的劳动强度，提供人员的工作效率，质量和管理水平的管理软件系统，使得通过信息化管理，销售，库存，采购变得快捷方便。二、系统分析1、需求分析根据市场的需求，要求系统具有以下功能：1、 系统操作简单，界面友好。2、 规范、完善的基础信息设置。3、 支持多人操作2、可行性分析商品管理系统的开发实现了从进货、库存到销售的一体化管理。从而提高了管理水平和工作效率，最大限度地减少了手工操作带来的失误！3、系统设计注：开发运行环境系统开发平台：Microsoft Visual FoxPro 6.0运行平台：Windows XP/Windows2000/Windows2003分辨率：最佳效果1024X768三、系统架构设计 版权界面等待界面1、2系统管理管理维护库存管理查询管理 报表管理系统关于系统退出商品信息管理客户信息管理供应商信息管理出入库登记商品信息查询客户信息查询供应商信息查询销售查询日销售报表销售报表供应商信息报表客户信息报表库存信息报表商品信息报表四、数据库设计 本系统采用的是Visual FoxPro自带的数据库，下面是数据表的表结构：操作员信息表字段名数据类型字段大小索引编号字符型7升序用户名字符型8口令字符型6备注备注型4订单表字段名数据类型字段大小索引编号字符型7升序订货时间日期时间型8客户编号字符型7商品编号字符型 7销售类型字符型4订货数量整型4金额数值型12结款否逻辑型1操作员字符型10供应商信息表编号数据类型字段大小索引全称字符型7升序简称字符型30地址字符型15所属地区字符型40邮编字符型20电话字符型7传真字符型13联系人字符型8联系人电话字符型13开户银行字符型13银行账户字符型20纳税人字符型8电子信箱字符型30备注备注型4库存信息表字段名数据类型字段大小索引商品编号字符型7升序库存数量数值型15库存上限数值型12库存下限数值型12备注逻辑型1零售信息表字段名字段大小数据类型索引编号字符型7升序时间日期时间型8商品编号字符型7数量数值型4金额数值型12入库信息表字段名数据类型字段大小索引编号字符型7升序入库时间日期时间型8供应商编号字符型7结款方式字符型4合计总类数值型12合计金额数值型12操作员字符型7预付金额数值型12未付金额数值型12实付金额数值型12商品信息表字段名数据类型字段大小索引编号字符型7升序名称字符型30简称字符型15规格字符型10产地字符型40计量单位字符型8出厂日期日期时间型8保质期日期时间型8进价数值型12批发价数值型12零售价数值型12供应商编号字符型7备注备注型4销售信息表字段名数据类型字段大小索引编号字符型7升序时间日期时间型8销售类型字符型4订单号字符型7合计品种数值型4合计金额数值型12付款方式字符型4折扣数值型3应付金额数值型12未付金额数值型12实付金额数值型12操作员字符型7银行账户管理表字段名数据类型字段大小索引往来单位字符型40升序存款金额数值型12备注备注型4五、程序主界面设计主界面为利用Adobe photoshop制作顶层菜单为：六、登录表单设计表单的form的init代码为：public ii=1bo1.setfocus登录的click代码为：i=i+1select 操作员信息表 locate for alltrim(操作员信息表.用户名)=alltrim(bo1.value)if len(alltrim(thisform.text1.value)=0=messagebox(密码不能为空，请按确定键重新输入!,0+64+0,系统温馨提示)thisform.text1.setfocuselse if found() and (alltrim(操作员信息表.密码)=alltrim(thisform.text1.value)messagebox(恭喜你登录成功！,0,系统温馨提示)do form 商品管理系统V_2.0版.scx thisform.release else if i4 =messagebox(操作员密码错误！+chr(13)+再试一次？,48,警告) thisform.text1.setfocus else =messagebox(对不起，您已经错三次了！+chr(13)+ 您是非法用户，请您退出系统,48,严重警告) quit endif endif endif取消的click代码为：a=messagebox(您确定退出吗？,4+16+0)if a=6 release thisformendif这张表单的数据环境为：操作员信息表七、系统进入时的界面这是进入系统时的界面这是等待界面1其中字体会循环走动 对象Timer1过程TimerThisForm.label8.Caption = TtoC(datetime()对象command1过程clickDO form 系统登录.scxrelease thisform对象Timer2过程TimerIF THISFORM.LABEL1.LEFT+THISFORM.LABEL1 .WIDTH0 thisform.label1.left=thisform.widthelse THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-20endif对象Timer3过程TimerIF THISFORM.LABEL2.LEFT+THISFORM.LABEL2.WIDTH0 thisform.label2.left=thisform.widthelse THISFORM.LABEL2.LEFT=THISFORM.LABEL2.LEFT-20endif这是等待界面2其中有动态字幕八、系统管理模块对象Timer1过程TimerThisForm.label9.Caption = TtoC(datetime() 系统退出的过程代码：IF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6QuitEndif九、管理维护模块对象 第一个 过程click 数据环境为销售信息表go topthisform.refreshthis.enabled=.f.thisform.上一个.enabled=.f.thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.对象 上一个 过程clickskip-1thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.第一个.enabled=.f.endifthisform.refresh对象 下一个 过程clickskip+1*!*thisform.下一个.enabled=.t.*!*thisform.末一个.enabled=.t.if eof() thenthis.enabled=.f.thisform.末一个.enabled=.f.endifthisform.上一个.enabled=.t.thisform.第一个.enabled=.t.thisform.refresh对象 末一个 过程clickgo bottomthis.enabled=.f.thisform.下一个.enabled=.f.thisform.第一个.enabled=.t.thisform.上一个.enabled=.t.thisform.refresh对象command5过程clickappend blankthisform.refresh对象command6过程clickthisform.text1 .setfocus对象command7过程clickmessagebox(此条记录已存入,48,温馨提示)thisform.refresh对象command8过程clickdelete from 出库登记 where 编号=thisform.text1.valuethisform.grid1.recordsource=packthisform.grid1.recordsource=出库登记thisform.refresh对象cmdclose过程clickIF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6Release thisformendif对象 第一个 过程clickgo topthisform.refreshthis.enabled=.f.thisform.上一个.enabled=.f.thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.对象 上一个 过程clickskip-1thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.第一个.enabled=.f.endifthisform.refresh对象 下一个 过程clickskip+1*!*thisform.下一个.enabled=.t.*!*thisform.末一个.enabled=.t.if eof() thenthis.enabled=.f.thisform.末一个.enabled=.f.endifthisform.上一个.enabled=.t.thisform.第一个.enabled=.t.thisform.refresh对象 末一个 过程clickgo bottomthis.enabled=.f.thisform.下一个.enabled=.f.thisform.第一个.enabled=.t.thisform.上一个.enabled=.t.thisform.refresh对象command5过程clickappend blankthisform.refresh对象command6过程clickthisform.text1 .setfocus对象command7过程clickmessagebox(此条记录已存入,48,温馨提示)thisform.refresh对象command8过程clickdelete from 出库登记 where 编号=thisform.text1.valuethisform.grid1.recordsource=packthisform.grid1.recordsource=出库登记thisform.refresh对象cmdclose过程clickIF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6Release thisformendif对象command1过程clickselect 供应商信系表bh=alltrim(thisform.text1.value) locate for 编号=bh if found () and thisform.text1.value=alltrim(供应商信系表.编号)thisform.text2.value=供应商信系表.编号thisform.text3.value=供应商信系表.全称thisform.text4.value=供应商信系表.简称thisform.text5.value=供应商信系表.所属地区thisform.text6.value=供应商信系表.传真thisform.text7.value=供应商信系表.开户银行thisform.text8.value=供应商信系表.电子信箱thisform.text9.value=供应商信系表.备注thisform.text10.value=供应商信系表.地址thisform.text11.value=供应商信系表.邮编thisform.text12.value=供应商信系表.联系人thisform.text13.value=供应商信系表.银行账户thisform.text14.value=供应商信系表.电话else messagebox(未找到相应的对象！,48,提示)endifthisform.refresh对象command5过程clickappend blankthisform.refresh对象command6过程clickthisform.text2 .setfocus对象command7过程clickmessagebox(已存入,48,温馨提示)thisform.refresh对象cmdclose过程clickIF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6Release thisformendif十、库存管理模块对象command1过程clickdo form f:商品管理系统入库登记.scx对象command2过程clickdo form f:商品管理系统出库登记.scx对象 第一个 过程clickgo topthisform.refreshthis.enabled=.f.thisform.上一个.enabled=.f.thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.对象 上一个 过程clickskip-1thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.第一个.enabled=.f.endifthisform.refresh对象 下一个 过程clickskip+1*!*thisform.下一个.enabled=.t.*!*thisform.末一个.enabled=.t.if eof() thenthis.enabled=.f.thisform.末一个.enabled=.f.endifthisform.上一个.enabled=.t.thisform.第一个.enabled=.t.thisform.refresh对象 末一个 过程clickgo bottomthis.enabled=.f.thisform.下一个.enabled=.f.thisform.第一个.enabled=.t.thisform.上一个.enabled=.t.thisform.refresh对象command5过程clickappend blankthisform.refresh对象command6过程clickthisform.text1 .setfocus对象command7过程clickmessagebox(此条记录已存入,48,温馨提示)thisform.refresh对象command8过程clickdelete from 出库登记 where 编号=thisform.text1.valuethisform.grid1.recordsource=packthisform.grid1.recordsource=出库登记thisform.refresh对象cmdclose过程clickIF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6Release thisformendif对象 第一个 过程clickgo topthisform.refreshthis.enabled=.f.thisform.上一个.enabled=.f.thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.对象 上一个 过程clickskip-1thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.第一个.enabled=.f.endifthisform.refresh对象 下一个 过程clickskip+1*!*thisform.下一个.enabled=.t.*!*thisform.末一个.enabled=.t.if eof() thenthis.enabled=.f.thisform.末一个.enabled=.f.endifthisform.上一个.enabled=.t.thisform.第一个.enabled=.t.thisform.refresh对象 末一个 过程clickgo bottomthis.enabled=.f.thisform.下一个.enabled=.f.thisform.第一个.enabled=.t.thisform.上一个.enabled=.t.thisform.refresh对象command5过程clickappend blankthisform.refresh对象command6过程clickthisform.text1 .setfocus对象command7过程clickmessagebox(此条记录已存入,48,温馨提示)thisform.refresh对象command8过程clickdelete from 出库登记 where 编号=thisform.text1.valuethisform.grid1.recordsource=packthisform.grid1.recordsource=出库登记thisform.refresh对象cmdclose过程clickIF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6Release thisformendif十一、查询管理模块对象command1过程clickselect 客户信息表最新最新bh=alltrim(thisform.text1.value)locate for 编号=bhif found () and thisform.text1.value=alltrim(客户信息表最新最新.编号) thisform.text2.value=客户信息表最新最新.编号 thisform.text3.value=客户信息表最新最新.全称 thisform.text4.value=客户信息表最新最新.简称 thisform.text5.value=客户信息表最新最新.地址 thisform.text6.value=客户信息表最新最新.所属地区 thisform.text7.value=客户信息表最新最新.邮编 thisform.text8.value=客户信息表最新最新.电话 thisform.text9.value=客户信息表最新最新.传真 thisform.text10.value=客户信息表最新最新.联系人 thisform.text11.value=客户信息表最新最新.联系人电话 thisform.text12.value=客户信息表最新最新.开户银行 thisform.text13.value=客户信息表最新最新. 银行账户 thisform.text14.value=客户信息表最新最新. 纳税人 thisform.text15.value=客户信息表最新最新.电子信箱 thisform.text16.value=客户信息表最新最新.备注 else messagebox(未找到相应的对象！,48,提示)endifthisform.refresh对象command2过程clickif messagebox(您真的要退出吗？,4+16+0,温馨提示)=6release thisformendif对象 第一个 过程clickgo topthisform.refreshthis.enabled=.f.thisform.上一个.enabled=.f.thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.对象 上一个 过程clickskip-1thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.第一个.enabled=.f.endifthisform.refresh对象 下一个 过程clickskip+1*!*thisform.下一个.enabled=.t.*!*thisform.末一个.enabled=.t.if eof() thenthis.enabled=.f.thisform.末一个.enabled=.f.endifthisform.上一个.enabled=.t.thisform.第一个.enabled=.t.thisform.refresh对象 末一个 过程clickgo bottomthis.enabled=.f.thisform.下一个.enabled=.f.thisform.第一个.enabled=.t.thisform.上一个.enabled=.t.thisform.refresh对象command1过程clickselect 供应商信系表bh=alltrim(thisform.text1.value) locate for 编号=bh if found () and thisform.text1.value=alltrim(供应商信系表.编号)thisform.text2.value=供应商信系表.编号thisform.text3.value=供应商信系表.全称thisform.text4.value=供应商信系表.简称thisform.text5.value=供应商信系表.所属地区thisform.text6.value=供应商信系表.传真thisform.text7.value=供应商信系表.开户银行thisform.text8.value=供应商信系表.电子信箱thisform.text9.value=供应商信系表.备注thisform.text10.value=供应商信系表.地址thisform.text11.value=供应商信系表.邮编thisform.text12.value=供应商信系表.联系人thisform.text13.value=供应商信系表.银行账户thisform.text14.value=供应商信系表.电话else messagebox(未找到相应的对象！,48,提示)endifthisform.refresh对象command5过程clickappend blankthisform.refresh对象command6过程clickthisform.text2 .setfocus对象command7过程clickmessagebox(已存入,48,温馨提示)thisform.refresh对象cmdclose过程clickIF MESSAGEBOX(您确定关闭吗,4+32+0,温馨提示)=6Release thisformEndif对象Cmd查找过程Clickselect 商品信息表bh=alltrim(thisform.txt1.value)locate for 编号=bhif found () and thisform.txt1.value=alltrim(商品信息表.编号) thisform.txt编号.value=商品信息表.编号 thisform.txt名称.value=商品信息表.名称 thisform.txt简称.value=商品信息表.简称 thisform.txt规格.value=商品信息表.规格 thisform.txt产地.value=商品信息表.产地 thisform.txt计量单位.value=商品信息表.计量单位 thisform.txt出厂日期.value=商品信息表.出厂日期 thisform.txt保质期.value=商品信息表.保质期 thisform.txt进价.value=商品信息表.进价 thisform.txt批发价.value=商品信息表.批发价 thisform.txt零售价.value=商品信息表.零售价 thisform.txt供应商编号.value=商品信息表.供应商编号else messagebox(未找到相应的对象！,48,提示)endifthisform.refresh对象Cmd退出 过程clickif messagebox(您真的要退出吗？,4+16+0,温馨提示)=6release thisformendif对象 第一个 过程clickgo topthisform.refreshthis.enabled=.f.thisform.上一个.enabled=.f.thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.对象 上一个 过程clickskip-1thisform.下一个.enabled=.t.thisform.末一个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.第一个.enabled=.f.endifthisform.refresh对象 下一个 过程clickskip+1*!*thisform.下一个.enabled=.t.*!*thisform.末一个.enabled=.t.if eof() thenthis.enabled=.f.thisform.末一个.enabled=.f.endifthisform.上一个.enabled=.t.thisform.第一个.enabled=.t.thisform.refresh对象 末一个 过程clickgo bottomthis.enabled=.f.thisform.下一个.e