超市零售管理系统.docx

1、超市零售管理系统课程设计题目： 超市进货管理系统一、系统需求分析1) 进货管理: 根据销售情况及库存情况，自动制定进货计划（亦可手工制定修改），可以避 免盲目进货造成商品积压。 按计划单有选择性地进行自动入库登记。 综合查询打印计划进货与入库记录及金额。2) 库存管理： 综合查询库存明细记录。 库存状态自动告警提示。如库存过剩、少货、缺货等。软件为您预警，避免库存商品积压损失和缺货。 库存自动盘点计算。3） 人员管理： 员工、会员、供货商、厂商等基本信息登记管理。 员工操作权限管理。 客户销售权限管理。2.2、数据库设计3、数据库设计本应用系统的数据库主要包括以下基本表，数据结构设计如下。 表

2、1：厂商信息表 字段名 数据类型 长度（字节） 备注 厂商编号 文本 20 主键 厂商名称 文本 50 厂商地址 文本 50 联系电话 数字 20 法人地表 文本 20 表5：入库单 字段名 数据类型 长度（字节） 备注 入库编号 文本 20 主键 商品型号 文本 20 计量单位 文本 8 单价 货币 16 数量 数字 16 金额 货币 16 生产厂商 文本 50 外键 出厂日期 日期 16 仓管员 文本 20 外键 表6：进货单 字段名 数据类型 长度（字节） 备注 单据编号 文本 20 主键 厂商编号 文本 20 外键 进货厂商 文本 50 商品型号 文本 20 计量单位 文本 8 单价

3、货币 16 数量 数字 16 金额 货币 16 进货日期 日期 16 采购员 文本 20 外键 备注 备注 20 表2：员工信息表 字段名 数据类型 长度（字节） 备注 员工编号 文本 20 主键 姓 名 文本 20 性 别 文本 20 年 龄 数字 8 身 高 数字 8 政治面貌 文本 20 家庭住址 文本 50 所属部门 文本 20 聘用日期 日期 16 编制日期 日期 16 一、输入板块 1、表单（输入入库单据）实现功能：可通过这个表单将商品的相关信息输入，例如编号、单价、数量等， 起到一个存储信息的作用，方便以后查询、总结等工作需要。实现过程：实现过程：1 单击“文件”下拉菜单，再点击

4、“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。 设计界面如下：输入入库单据的设计的基本结构如下图：“输入”按钮代码e=ntom(val(alltrim(thisform.text5.value)f=alltrim(thisform.Text6.value)g=alltrim(thisform.text7.value)h=val(alltrim(thisform.text8.value)i=ctod(alltrim(thisform.Text9.value)if empty(a).or.empty(b).or.empty(c).or.empty(d).or.empty(

5、e).or.empty(f).or.empty(g).or.empty(h).or.empty(i) messagebox(请输入完整信息) returnendifinsert into 表入库单;(入库编号,商品型号,计量单位,单价,金额,生产厂商,仓管员,数量,出厂日期) value(a,b,c,d,e,f,g,h,i)z=0scan for 商品库存表.商品型号=b z=1endscanuseif z=1 update 商品库存表 set 数量=数量+h where 商品型号=b messagebox(输入入库单据成功！,64,系统提示) returnelse insert into 表

6、商品库存表; (商品型号,数量) value (b,h) insert into 表商品资料单; (商品型号) value (b) messagebox(你所输入的是新商品,请输入商品名称) use do form 表单输入新商品名 returnendif“取消”按钮代码Thisform.release3、表单（输入新商品名称） 实现功能：可通过这个表单输入新商品名，添加到数据库中，方便以后相关工作。1 单击“文件”下拉菜单，再点击“新建”，选择“表单”，再单击“新建文件”后开始表单输入入库单据的设计。设计界面如下：2 表单输入入库单据的设计的基本结构如下图：确认按钮代码a=alltrim(t

7、hisform.text1.value)update F:vf死都要做出来表商品库存表 set 商品名称=a where 商品型号=bupdate F:vf死都要做出来表商品资料单 set 商品名称=a where 商品型号=bmessagebox(输入入库单据成功！,64,系统提示)thisform.release取消按钮代码thisform.release三、数据查询模块1、项目详细设计 入库查询表单2、界面操作说明：按钮控制策略：组合框内有9个选项，编辑框为空，查询按钮及取消按钮一直为亮。查询处理过程：此查询为模糊查询，按下组合框内的选项，在编辑框内输入内容，点击查询，屏幕上将显示一系列

8、与输入内容相关的记录。取消后将返回原界面。注意：出厂时间的输入需要符合格式才能正确查询，否则将出现运行错误的提醒。（王亚编写） 3、项目具体实现 入库查询表单本表单用于查询入库商品情况。在组合框中选择要查询的条件，如入库编号、商品型号等，在文本框中输入信息，按查询按钮，即可显示出相关信息。如若输入信息有误则会有信息“数据库中不存在您所要查询的记录”提示。而按取消键则返回到主菜单。在表单上设计如下事件过程：1、新建表单form1，并将其caption属性值设为“入库查询”，width属性值设置为290，height属性值设置为175，AutoCenter属性值设置为.t.，并将其保存为“入库查询

9、.scx”。2、向表单添加一个grid控件，并将其width属性值设置为290，height属性值设置为100。3、在grid控件的下方添加一个组合框控件Combo1和一个文本框控件， 并将组合框控件的RowSourceType属性值设置为“8-结构”，RowSource属性值设置为“入库单”。4、在文本框的右侧再添加两个命令按钮command1和command2，并将command1和command2的caption属性值分别设置为“查找”和“取消”。5、对表单上各控件的位置进行适当的调整，调整后的表单设计器如图1重点：（1）“查找”按钮(command1) 的click事件如下 ：if e

10、mpty(thisform.Text1.value)=.f. go topa=thisform.Combo1.valueb=alltrim(thisform.Text1.value) local c as integer if a=入库编号 Select * from 入库单 where 入库编号 like b +% into cursor bas sele bas c=reccount() if c1 （图“查询”按钮（command2）的click事件如下： use messagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif

11、 endif if a=商品型号 Select * from 入库单 where 商品型号 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif endif if a=计量单位 Select * from 入库单 where 计量单位 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,

12、系统提示) mand2.click() return endifendif if a=生产厂商 Select * from 入库单 where 生产厂商 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif endif if a=仓管员 Select * from 入库单 where 仓管员 like b +% into cursor bas sele bas c=reccount() if c1 use m

13、essagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif endif if a=单价 b=ntom(val(alltrim(thisform.text1.value) Select * from 入库单 where 单价 =b into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif endif if a=金额 b=ntom(val(alltrim(thisform.

14、text1.value) Select * from 入库单 where 金额 =b into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif endif if a=数量 b=val(alltrim(thisform.text1.value) Select * from 入库单 where 数量 =b into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在

15、您所要查询的记录,16,系统提示) mand2.click() return endif endif if a=出厂日期 b=ctod(alltrim(thisform.text1.value) Select * from 入库单 where 出厂日期 =b into cursor bas sele bas c=reccount() if c1 use messagebox(数据库中不存在您所要查询的记录,16,系统提示) mand2.click() return endif endif with thisform.grd入库单 .width=588 .height=200 .left=10

16、.recordsource=bas .deletemark=.f. .visible=.t. .readonly=.t. .ColumnCount=9 .Column1.Header1.Caption=入库编号 .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption=商品型号 .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption=计量单位 .C

17、olumn4.Header1.BackColor=RGB(255,255,190) .Column4.Header1.Caption=单价 .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Caption=数量 .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption=金额 .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption=生产厂商 .Column8.Hea

18、der1.BackColor=RGB(255,255,190) .Column8.Header1.Caption=出厂日期 .Column9.Header1.BackColor=RGB(255,255,190) .Column9.Header1.Caption=仓管员 .Column1.width=80 .Column2.width=80 .Column3.width=80 .Column4.width=80 .Column5.width=80 .Column6.width=80 .Column7.width=80 .Column8.width=80 .Column9.width=80 end

19、with thisform.grd入库单.Setall(DynamicBackColor,RGB(224,225,255),Column) thisform.grd入库单.setfocuselse messagebox(请输入要查找的内容！,16,系统提示) thisform.Text1.value= thisform.Text1.Setfocusendif“取消”按钮（command2）的click事件如下：Thisform.release四、数据修改模块1、项目详细设计修改模块：出库修改、入库修改、商品资料修改例：入库修改2、界面操作说明：按钮控制策略：查找方式组合框共有9个选项，查找内容

20、为空，查找、修改、取消按钮一直为亮。修改处理过程：需要修改时，在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。对相应信息进行修改后，按按钮修改，即可保存修改好的信息。 （周慧立编写）3、项目具体实现例：入库修改本表单用于对入库商品的相关信息进行修改。在组合框中选择要查找的条件，在文本框中输入相应信息（输入信息要正确，否则系统会出现错误提示），按按钮查找，即下面的文本框中会出现所要查找的记录的详细信息（其中入库编号是固定的）。对相应信息进行修改后，按按钮修改，即可保存

21、修改好的信息。按取消按钮则返回主菜单。本表单使用的数据环境为入库单和厂商信息表。在表单上设计如下事件过程：1、新建表单form1，并将其caption属性设置为“入库修改”，width属性值设为290，height属性值设为226，AutoCenter属性值设为.t.，并将其保存为“入库修改.scx”。2、向表单添加一个grid控件，将其readonly属性设置为.t.,其RecordSourceType值采用默认的“1-别名”，在表单设计器中将其宽和高粗略调小一些即可，具体属性值我们将在表单的init事件代码中对其进行设置。3、在grid控件下方添加两个Label控件，使其排成一行，并将其c

22、aption属性依次设为“请选择查找方式”和“请输入要查找的内容”。4、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1，文本框控件的属性值采用默认即可，组合框控件Combo1的RowSourceType属性值设置为“1-值”，RowSource属性值设置为“入库编号、商品型号、计量单位、单价、数量、金额、生产厂商、生产日期和仓管员”，这样在运行时我们可以在该组合框中选择要查询的字段。5、在表单上添加3个命令按钮command1 command2和command3，将其caption属性依次设为“查找”、“修改”和“取消“。6、在命令按钮下方添加9个label控件，

23、将这9个label控件排成两行，并将其caption属性依次设置为“入库编号”、“商品型号”和“计量单位”等等。7、在这两行label控件下方添加9个文本框控件，属性值采用默认，并把这9个文本框排成两行。8、调整表单上各个控件的位置，调整后的表单设计器如图2：重点：“查找”按钮(command1)的click事件如下：if empty(thisform.Text1.value)=.f. go topa=thisform.Combo1.valueb=alltrim(thisform.Text1.value)c=.f. if a=入库编号 locate for 入库编号=b if eof() me

24、ssagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else （图2） c=.t. endif endif if a=商品型号 locate for 商品型号=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endif if a=计量单位 locate for 计量单位=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endif if a

25、=单价 b=ntom(val(alltrim(thisform.text1.value) locate for 单价=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endifif a=数量 b=val(alltrim(thisform.text1.value) locate for 数量=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endif if a=金额 b=ntom(v

26、al(alltrim(thisform.text1.value) locate for 金额=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endifif a=生产厂商 locate for 生产厂商=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endif if a=出厂日期 b=ctod(val(alltrim(thisform.text1.value) locate fo

27、r 出厂日期=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endif if a=仓管员 locate for 仓管员=b if eof() messagebox(数据库中不存在您所要查询的记录,16,系统提示) go top return else c=.t. endif endif if c thisform.Text1.enabled=.f. go recno() thisform.Text2.visible=.t. thisform.Text2.enabled=.f. this

28、form.Text3.visible=.t. thisform.Text4.visible=.t. thisform.Text5.visible=.t. thisform.Text6.visible=.t. thisform.Text7.visible=.t. thisform.Text8.visible=.t. thisform.Text9.visible=.t. thisform.Text10.visible=.t. thisform.Label3.visible=.t. thisform.label4.visible=.t. thisform.Label5.visible=.t. thi

29、sform.Label6.visible=.t. thisform.Label7.visible=.t. thisform.Label8.visible=.t. thisform.Label9.visible=.t. thisform.Label10.visible=.t. thisform.Label11.visible=.t. thisform.Text2.value=入库单.入库编号 thisform.Text3.value=入库单.商品型号 thisform.Text4.value=入库单.计量单位 thisform.Text5.value=入库单.单价 thisform.Text6.value=入库单.数量 thisform.Text7.value=入库单.金额 t