母婴店进销存管理

母婴店进销存管理 学 院 南昌工程学院 专 业理学系 班 级 一班 学 号 2006100906 姓 名杜晓刚 指导教师 金珍老师 教师职称 2010年3月26日 摘要摘要 摘要 随着小超市规模的发展不断扩大 商品数量急剧增加 有关商品的各种信息量也成倍 增长 超市时时刻刻都需要对商品各种信息进行统计分析 而大型的超市管理系统功能过 于强大而造成操作繁琐降低了小超市的工作效率 超市管理系统是市场上最流行的超市上 常用的系统之一 它主要包含以下几个模块 系统权限的设定 原始数据录入 数据的汇 总及查询等 从而 实现对进货 销售及员工信息等全面 动态 及时的管理 本系统是根据人们在日常生活中的实际需求而开发的 完全能够实现人们对各类药品 信息及疑难病症查询的功能 通过本系统可以达到以下目标 系统最大限度地实现了易安装性 易维护性和易操作性 系统运行稳定 安全可靠 操作灵活 界面友好 充分满足各类企业的进销存管理需求 实施规范的进 销 存一体化业务管理 强大的库存预警功能 尽量避免损失 图形化数据分析 强大的查询分析功能 灵活 细分的权限控制功能 强大的报表功能 让您随时了解企业经营情况 关键词 入库 销售 退货 通用进销存管理系统 目录目录 摘要 1 目录 1 0 引言 1 1 需求分析 1 1 1 需求分析 1 1 2 可行性分析 1 2 总体设计 1 2 1 项目规划 1 2 2 系统功能结构 2 3 系统设计 2 3 1 设计目标 2 3 2 开发及运行环境 3 3 3 数据库设计 3 4 主要功能模块设计 3 4 1 程序主界面的设计 3 4 2 系统登录界面设计 6 4 3 商品信息管理模块设计 10 4 4 入库管理模块设计 16 4 5 销售管理模块设计 22 4 6 库存盘点模块设计 30 附录 A 参考文献 35 附录 B 数据表 37 附录 C 文件架构 41 0 引言引言 随着小超市规模的发展不断扩大 商品数量急剧增加 有关商品的各种信息量也成倍 增长 超市时时刻刻都需要对商品各种信息进行统计分析 而大型的超市管理系统功能过 于强大而造成操作繁琐降低了小超市的工作效率 超市管理系统是市场上最流行的超市上 常用的系统之一 它主要包含以下几个模块 系统权限的设定 原始数据录入 数据的汇 总及查询等 从而 实现对进货 销售及员工信息等全面 动态 及时的管理 本文系统的分析了软件开发的背景过程 首先介绍了软件的开发环境 其次介绍了本 软件的详细设计过程 数据库的设计 各个模块的设计和实现 以及具体界面的设计和功 能 本系统由进货管理模块 出库管理模块 销售管理模块 管理员模块等组成 对超市中的 各种信息进行分类管理 统筹规划 功能较为全面 由于各模块的分开及进入系统前验证用户 身份 也加强了各种信息的安全性及保密性 1 需求分析需求分析 1 1 需求分析需求分析 根据市场的需求 要求系统具有以下功能 系统操作简单 界面友好 规范 完善的基础信息设置 支持多人操作 要求有较好的权限分配功能 为了方便用户 要求系统支持多条件查询 支持多种报表打印功能 图表分析销售状况 具有数据备份及数据恢复功能 保证系统数据的安全 1 2 可行性分析可行性分析 随着经济的全球化以及中国经济改革的逐渐深化 中小企业面临着越来越激烈的竞争 改善企业内部以及整个供应链各个环节的管理 调度及资源配置 迅速适应客户的新需求 和市场新机遇的能力 是企业赢得竞争胜利的决定性因素 进销存管理系统的开发是提高 企业竞争力的最有效的方法之一 进销存管理系统的开发实现了从进货 库存 到销售的一体化管理 提高了管理水平 和工作效率 最大限度减少了手工操作带来的错误 工操作带来的错误 2 总体设计总体设计 2 1 项目规划项目规划 通用进销存管理系统 是一款将进货 销售 库存进行一 体化管理的系统 系统由系统管理 销售管理 库存管理 基础信息 往来管理 查询管 理 报表管理 决策管理和维护管理等模块组成 特规划功能模块如下 系统管理模块 系统管理模块 系统管理模块 系统设置 权限设置 操作员管理 更改密码 退出 销售管理模块 销售管理模块 订货管理 销售管理 销售退货管理 库存管理模块 库存管理模块 入库管理 入库退货 库存查询 库存盘点 商品有限期查询 库存 上下限管理 商品报损报溢管理 基础信息 基础信息模块 商品信息管理 供应商信息管理 客户信息管理 员工信息管理 银 行帐户管理 基础信息 基础信息模块 商品信息管理 供应商信息管理 客户信息管理 员工信息管理 银 行帐户管理 往来管理 往来管理模块 供应商帐目管理 客户帐目管理 超期应收应付款管理 查询管理 查询管理模块 商品销售查询 商品入库查询 商品退货查询 商品报损报溢查询 报表管理 报表管理模块 日销售报表 周销售报表 月销售报表 单商品销售报表 决策管理 决策管理模块 商品销售排行 商品退货排行 利润分析 决策分析 进销存结转 供应商应收应付款结转 客户应收应付款结转 维护管理 初期建帐 往来帐目 库存商品 系统初始化 数据备份 数据恢复 2 2 系统功能结构系统功能结构 本系统共分 9 大部分 41 个完整的功能模块 系统结构图如图 1 所示 销售管理 销 售 退 货 管 理 销 售 管 理 订 货 管 理 系统管理 权 限 设 置 更 改 密 码 操 作 员 管 理 系 统 设 置 通用进销存管理系统 查询管理 商 品 入 库 查 询 商 品 报 损 报 溢 查 询 商 品 退 货 查 询 商 品 销 售 查 询 基础信息 客 户 信 息 管 理 供 应 商 信 息 管 理 商 品 信 息 管 理 退 出 银 行 帐 户 管 理 员 工 信 息 管 理 库存管理 入 库 退 货 库 存 盘 点 库 存 查 询 入 库 管 理 库 存 上 下 限 管 理 商 品 报 损 报 溢 管 理 商 品 有 效 期 查 询 往来管理 超 期 应 收 应 付 款 管 理 客 户 帐 目 管 理 供 应 商 帐 目 管 理 报表管理 周 销 售 报 表 单 商 品 销 售 报 表 月 销 售 报 表 日 销 售 报 表 决策管理 商 品 退 货 排 行 决 策 分 析 利 润 分 析 商 品 销 售 排 行 维护管理 系 统 初 始 化 数 据 恢 复 数 据 备 份 初 期 建 帐 客 户 应 收 应 付 款 结 转 供 应 商 应 收 应 付 款 结 转 进 销 存 结 转 库 存 商 品 往 来 帐 目 图 1 母婴店进销存管理系统结构图 3 系统设计系统设计 3 1 设计目标设计目标 本系统是根据人们在日常生活中的实际需求而开发的 完全能够实现人们对各类药品 信息及疑难病症查询的功能 通过本系统可以达到以下目标 系统最大限度地实现了易安装性 易维护性和易操作性 系统最大限度地实现了易安装性 易维护性和易操作性 系统运行稳定 安全可靠 操作灵活 界面友好 充分满足各类企业的进销存管理需求 实施规范的进 销 存一体化业务管理 强大的库存预警功能 尽量避免损失 图形化数据分析 强大的查询分析功能 灵活 细分的权限控制功能 强大的报表功能 让您随时了解企业经营情况 3 2 开发及运行环境开发及运行环境 系统开发平台 Microsoft Visual FoxPro 6 0 运行平台 Windows XP Windows 2000 Windows 2003 分辨率 最佳效果 1024 768 像素 3 3 数据库设计数据库设计 本系统采用的是 Visual FoxPro 自带的数据库 系统数据库名为 DataBase 由于篇幅所限 关于数据库中的数据表请参见附录 B 4 主要功能模块设计主要功能模块设计 4 1 程序主界面的设计程序主界面的设计 程序主界面的设计的好坏往往影响到软件的整体形象 因此首先要处理好程序主界面 的设计问题 同时 程序主界面的设计也是程序控制的核心 操作权限 程序功能调用等 都要通过主程序调用实现 通用进销存管理系统程序主界面设计的运行结果如图 2 所示 图 2 程序主界面设计的运行结果 1 创建程序主界面 创建程序主界面 1 新建一个项目 命名为 通用进销存管理系统 在该项目中添加一个新表单 命名为 frmmain 并设置表单的 Caption 属性为 通用进销存管理系统 v2 0 版 设置 Icon 属性为 sys 5 sys 2003 graphics proICO ico 设置 KeyPreview 属性为 T 作用是 截获表单内控件的 KeyPress 事件 设置 ShowWindow 属性为 2 作为顶层表单 设置 WindowState 属性为 2 最大化 2 在表单的 Unload 事件下添加如下代码 screen visible t 正在加密 请稍后 alltrim thisform toolbar buttons m tooltiptext IF INTO CURSOR lsb IF alltrim lsb 密码 alltrim thisform text2 value gly lsb 编号 thisform top 1100 thisform visible f DO FROM forms frmmain ELSE no no 1 IF no 3 messagebox 您输入密码不正确 16 系统提示 thisform Lockdatebase1 lock sys 5 sys 2003 data Database dbc 正在加密 请 稍后 screen visible t screen top 0 thisform release ELSE messagebox 您输入的密码不正确 请注意大小写 16 系统提示 thisform text2 value thisform listview setfocus ENDIF ENDIF ENDIF 在 密码 文本框的 KeyPress 事件下添加如下代码 IF nkeycode 13 mand1 click ENDIF 在 Listview 控件的 KeyPress 事件下添加如下代码 IF keyascii 13 this click ENDIF 在 ListView 控件的 Click 事件下添加如下代码 thisform text1 value thisform listview selecteditem text select from 操作员信息表 where 用户名 alltrim thisform listview selecteditem text into cursor lsb czy thisform text3 value thisform listview selecteditem text thisform text1 value lsb czy 编号 thisform text2 setfocus 在 退出 按钮的 Click 事件下添加如下代码 thisform Lockdatebase1 lock sys 5 sys 2003 data database dbc 正在加密 请稍后 IF file sys 5 sys 2003 Setup tmp t DELE FILE sys 5 sys 2003 Setup tmp ENDIF screen visible t screen top 0 thisform release 为了保证应用程序的安全 通常要设计系统登录表单验证用户是否合法 只有合法的 用户才可进入系统 系统登录模块运行结果 如图 5 所示 图 5 系统登录模块运行结果 1 表单设计 表单设计 1 新建一个表单 命名为 Frm 登录 2 向表单内添加 Label 控件 ListView 控件 ImageList 控件 Text 控件 Command 控件 Container 控件 FormIn 类控件 LockDateBase 类控件 3 重要控件的属性设置如表 5 所示 表 5 重要控件及属性 对象属性值 Form1AutoCenter T Form1ShowWindows2 作为顶层表单 ListView1BackColor13160660 2 代码设计 代码设计 在表单的 Init 事件下添加如下代码 PUBLIC no SET SAFT OFF no 0 SELE 操作员信息表 thisform listview view 0 thisform listview icons thisform imagelist object IF reccount 0 FOR m 1 TO reccount SELE 操作员信息表 GOTO m thisform listview listitems add 操作员信息表 用户名 操作员信息表 头像 ENDFOR ELSE thisform listview listitems add 超级管理员 rand 11 12 ENDIF 在表单的 Unload 事件下添加如下代码 QUIT 在 登录 按钮的 Click 事件下添加如下代码 IF alltrim thisform text1 value 超级管理员 gly 超级管理员 thisform top 1100 thisform visible f DO FROM forms frmmain ELSE SELECT FROM 操作员信息表 WHERE 用户名 alltrim thisform text3 value INTO CURSOR lsb IF alltrim lsb 密码 alltrim thisform text2 value gly lsb 编号 thisform top 1100 thisform visible f DO FROM forms frmmain ELSE no no 1 IF no 3 messagebox 您输入密码不正确 16 系统提示 thisform Lockdatebase1 lock sys 5 sys 2003 data Database dbc 正在加密 请 稍后 screen visible t screen top 0 thisform release ELSE messagebox 您输入的密码不正确 请注意大小写 16 系统提示 thisform text2 value thisform listview setfocus ENDIF ENDIF ENDIF 在 密码 文本框的 KeyPress 事件下添加如下代码 IF nkeycode 13 mand1 click ENDIF 在 Listview 控件的 KeyPress 事件下添加如下代码 IF keyascii 13 this click ENDIF 在 ListView 控件的 Click 事件下添加如下代码 thisform text1 value thisform listview selecteditem text select from 操作员信息表 where 用户名 alltrim thisform listview selecteditem text into cursor lsb czy thisform text3 value thisform listview selecteditem text thisform text1 value lsb czy 编号 thisform text2 setfocus 在 退出 按钮的 Click 事件下添加如下代码 thisform Lockdatebase1 lock sys 5 sys 2003 data database dbc 正在加密 请稍后 IF file sys 5 sys 2003 Setup tmp t DELE FILE sys 5 sys 2003 Setup tmp ENDIF screen visible t screen top 0 thisform release 4 3 商品信息管理模块设计商品信息管理模块设计 商品信息管理模块主要用于进行商品基础信息的管理 通过此模块可以对商品进行添 加 修改 删除 保存等相关功能的操作 商品信息模块运行结果如图 6 所示 图 6 商品信息模块运行结果 1 表单设计 表单设计 1 在 通用进销存管理系统 项目文件中添加一个表单 命名为 Frm 商品信息 2 向表单内添加自制类控件 Back Line 控件 Label 控件 Picture 控件 Container 控件 Combo 控件 OptionGroup 控件 Text 控件 Spinner 控件 LocateButton 控件 Grid 控件和 OftenButton 类控件 3 重要控件的属性设置如表 6 所示 表 6 重要控件及属性 对象属性值 Form1AutoCenter T Form1ShowWindows2 作为顶层表单 OftenButtons1RecordSource商品信息表 LocateButtons1RecordSource商品信息表 Grid1RecordSource商品信息表 Spinner1SpecialEffect1 平面 OptionGroup1 Option1Style1 图形 Form1AutoCenter T 2 代码设计 代码设计 在表单的 Resee 方法程序下添加如下代码 SELE 商品信息表 thisform text1 value 商品信息表 编号 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 商品信息表 备注 bo1 displayvalue thisform rainfunction1 numbertoname 供应商信息表 全称 商品信息表 供应商编号 1 alltrim bo1 displayvalue 0 handle1 fopen 系统设置 Rtt 2 IF handle1 0 fclose handle2 ELSE messagebox 无法创建 请手工删除程序目录下 系统设置 Rtt 文件 然后再试一次 16 系统提示 ENDIF get 8 9999 get 9 1 ELSE FOR m 1 TO 9 get m fgets handle1 ENDFOR ENDIF fclose handle1 IF this butstyle 1 INSERT INTO 商品信息表 VALUES txt 1 txt 2 lower txt 3 Txt 4 txt 6 txt 5 txt 7 txt 8 txt 9 txt 10 txt 11 txt 13 txt 12 INSERT INTO 库存信息表 商品编号 库存上限 库存下限 VALUES txt 1 val alltrim get 8 val alltrim get 9 ELSE UPDATE 商品信息表 SET 名称 txt 2 简称 lower txt 3 规格 txt 4 计量单位 txt 5 产地 txt 6 出厂日期 txt 7 保质期 txt 8 进价 txt 9 批发价 txt 10 零售价 txt 11 备注 txt 12 供应商编号 txt 13 WHERE 编号 txt 1 ENDIF FOR m 1 TO 6 INTO CURSOR lssp alltrim thisform text4 value alltrim thisform text6 value SELE lssp FOR m 1 TO reccount SELE lssp GOTO m IF alltrim thisform text2 value alltrim lssp 名称 messagebox 对不起 您输入的商品在数据表中已经存在 16 添加错误 thisform text2 value thisform text2 setfocus this Sure f RETURN ENDIF ENDFOR IF right alltrim lssp 名称 1 UPDATE 商品信息表 SET 名称 alltrim lssp 名称 alltrim lssp 规格 alltrim lssp 产地 WHERE 编号 lssp 编号 ENDIF ENDIF this sure t ENDIF ENDCASE ENDIF 在表格控件 Grid1 的 AfterRowColChange 事件下添加如下代码 thisform resee 在 Grid1 控件的 Init 事件下添加如下代码 SELE 商品信息表 this setall DynamicBackColor iif recno 2 0 rgb 188 240 209 rgb 255 255 255 Column 在 查询字段 组合框的 Init 事件下添加如下代码 PUBLIC mygg jlh mygg f jlh 1 this additem 编号 this additem 名称 this additem 简称 this additem 规格 this additem 计量单位 this additem 产地 在 查询字段 组合框的 InterActiveChange 事件下添加如下代码 mygg f 在 查询条件 文本框的 InterActivechange 事件下添加如下代码 mygg f 在 查询 按钮的 Click 事件下添加如下代码 zd alltrim bo2 displayvalue 进价 jj 批发价 pfj 零售价 lsj WHERE 编号 sp 在 数量 文本框的 KeyPress 事件下添加如下代码 IF nkeycode 13 a messagebox 还有其他进货商品吗 32 4 系统提示 IF a 6 thisform msgrid additem bo1 enabled f thisform rainfunction1 setall Text 6 4 Value thisform rainfunction1 setall Text 8 7 value thisform rainfunction1 setall Text 17 10 value 0 thisform text9 value thisform rainfunction1 setall Text 17 5 enabled f thisform msgrid textmatrix thisform msgrid rows 1 1 rzbh thisform text2 programmaticchange bo1 programmaticchange thisform rainsupinput1 执行 thisform rainsupinput2 value thisform rainsupinput2 setfocus ELSE thisform rainfunction1 setall Text 17 4 enabled f bo1 enabled f thisform rainsupinput2 enabled f IF bo1 displayvalue 挂账 FOR m 1 TO thisform msgrid rows 1 thisform text15 value thisform text15 value val thisform msgrid textmatrix m 8 ENDFOR thisform text16 value 0 mand2 click ELSE thisform text16 enabled t FOR m 1 TO thisform msgrid rows 1 thisform text15 value thisform text15 value val thisform msgrid textmatrix m 8 ENDFOR ENDIF ENDIF ENDIF 在 数量 文本框的 InterActiveChange 事件下添加如下代码 bh thisform rainfunction1 numbertoname 商品信息表 名称 alltrim thisform rainsupinput2 value 0 SELECT FROM 库存信息表 WHERE 商品编号 bh INTO CURSOR lskcb sx lskcb 库存上限 sl lskcb 库存数量 IF sl this value sx messagebox 进货数量太多 已经超出库存上限 16 系统提示 this value sx sl ENDIF thisform msgrid textmatrix thisform msgrid rows 1 5 this value thisform msgrid textmatrix thisform msgrid rows 1 8 thisform text10 value this value thisform text14 value thisform msgrid rows 1 thisform text18 value thisform text10 value this value 在 合计金额 文本框的 ProgrammaticChange 事件下添加如下代码 thisform text17 value this value 在 实付金额 文本框的 KeyPress 事件下添加如下代码 IF nkeycode 13 mand2 click ENDIF 在 实付金额 文本框的 InterActiveChange 事件下添加如下代码 thisform text17 value thisform text15 value this value 在 实付金额 文本框的 GotFocus 事件下添加如下代码 thisform text2 enabled t 在 付款方式 组合框的 ProgrammaticChange 事件下添加如下代码 this interactivechange 在 付款方式 组合框的 InterActiveChange 事件下添加如下代码 thisform msgrid textmatrix thisform msgrid rows 1 6 this value DO CASE CASE this value 现金 thisform label11 caption 实付金额 thisform label12 caption 未付金额 CASE this value 挂账 thisform label11 caption 应付金额 thisform label12 caption 未付金额 CASE this value 预付 thisform label11 caption 预付金额 thisform label12 caption 未付金额 CASE this value 支票 thisform label11 caption 支票金额 thisform label12 caption 未付金额 ENDCASE 在 金额 文本框的 InterActiveChange 事件下添加如下代码 thisform msgrid textmatrix thisform msgrid rows 1 5 this value thisform msgrid textmatrix thisform msgrid rows 1 8 thisform text10 value this value thisform text14 value thisform msgrid rows 1 thisform text15 value thisform text10 value this value 在 金额 文本框的 KeyPress 事件下添加如下代码 IF nkeycode 13 a messagebox 还有其他进货商品吗 32 4 系统提示 IF a 6 thisform msgrid additem thisform rainfunction1 setall Text 6 4 Value thisform rainfunction1 setall Text 8 7 value thisform rainfunction1 setall Text 17 10 value 0 thisform text9 value thisform rainfunction1 setall Text 17 5 enabled f thisform text1 programmaticchange thisform text2 programmaticchange thisform rainsupinput1 执行 bo1 programmaticchange ELSE thisform rainfunction1 setall Text 17 4 enabled f IF bo1 displayvalue 挂账 thisform text16 enabled t FOR m 1 TO thisform msgrid rows 1 thisform text15 value thisform text15 value val thisform msgrid textmatrix 0 8 ENDFOR ENDIF ENDIF ENDIF 在 添加 按钮的 Click 事件下添加如下代码 thisform text1 value thisform rainfunction1 autonumber 入库信息表 RK thisform text2 value datetime this enabled f mand2 enabled t thisform rainsupinput1 enabled t thisform rainsupinput1 setfocus thisform msgrid textmatrix thisform msgrid rows 1 1 RZBH 在 修改 按钮的 Click 事件下添加如下代码 DIME rk 9 a messagebox 确定要保存操作吗 32 4 系统提示 IF a 6 FOR m 1 TO thisform msgrid rows 1 FOR n 1 TO 9 rk n thisform msgrid textmatrix m n 付款方式 单价 金额 操作员 VALUES rk 1 thisform text2 value rk 3 rk 4 val rk 5 rk 6 val rk 7 val rk 8 rk 9 UPDATE 库存信息表 SET 库存数量 库存数量 val rk 5 WHERE 商品编号 rk 4 ENDFOR 存入欠款 全称 alltrim thisform rainsupinput1 value 0 yfje thisform text15 value sfje thisform text16 value wfje thisform text17 value INSERT INTO 欠款信息表 VALUES bh khbh ddbh yfje sfje wfje date 1 f date 20 ENDIF ENDIF ELSE bh thisform rainfunction1 autonumber 欠款信息表 QK ddbh thisform text1 value khbh thisform rainfunction1 numbertoname 供应商信息表 全称 alltrim thisform rainsupinput1 value 0 yfje thisform text15 value sfje thisform text16 value wfje thisform text17 value INSERT INTO 欠款信息表 VALUES bh khbh ddbh yfje sfje wfje date 1 f date 20 ENDIF bh thisform text1 value sj thisform text2 value jkfs bo1 displayvalue hjzl thisform text14 value hjje thisform text15 value DO CASE CASE jkfs 现金 OR jkfs 支票 yfje 0 sfje thisform text16 value wfje hjje sfje CASE jkfs 挂账 hjje thisform text17 value yfje 0 sfje 0 wfje hjje CASE jkfs 预付 yfje thisform text16 value wfje thisform text17 value sfje yfje ENDCASE INSERT INTO 入库信息表 编号 入库时间 供应商编号 日志编号 结款方式 合计种类 合计金额 操作员 预付金额 实付金额 未付金额 VALUES bh sj gys rzbh jkfs hjzl hjje gly yfje sfje wfje mand1 enabled t mand2 enabled f thisform text16 enabled f alltrim this value 0 thisform msgrid textmatrix thisform msgrid rows 1 3 gys SELECT FROM 商品信息表 WHERE 供应商编号 gys INTO DBF lsspxxb 在 Rainsupinput2 控件的执行方法程序下添加如下代码 thisform into spbh thisform rainfunction1 numbertoname 商品信息表 名称 alltrim this value 0 thisform Msgrid textmatrix thisform msgrid rows 1 4 spbh thisform rainsupinput1 enabled f thisform msgrid textmatrix 0 9 gly 4 5 销售管理模块设计销售管理模块设计 销售管理模块主要用于进行商品销售信息的录入 销售管理模块运行结果 如图 8 所 示 图 8 销售管理模块运行结果 1 表单设计 表单设计 1 在 通用进销存管理系统 项目文件中添加一个表单 命名为 Frm 销售管理 2 向表单内添加自制类控件 Back Label 控件 Text 控件 Combo 控件 RainSupInput 类控件 MSHFlexGrid 控件 Command 控件 RainFunction 类控件 FormIn 类控件 3 重要控件的属性设置如表 8 所示 控件的属性设置如表 8 所示 表 8 重要控件及属性 对象属性值 Form1AutoCenter T Form1ShowWindows2 作为顶层表单 RainSupInput1数据库商品信息表 RainSupInput1字段名称 2 代码设计 代码设计 在表单的 Init 事件下添加如下代码 PUBLIC khbh back val thisform msgrid TextMatrix m 7 ENDFOR thisform text12 value nb ENDIF 在 Msgrid 控件的 Init 事件下添加如下代码 thisform msgrid cols 9 thisform msgrid colwidth 0 this rowheight 0 thisform msgrid colwidth 1 1500 thisform msgrid colwidth 2 1500 thisform msgrid colwidth 3 2200 thisform msgrid colwidth 4 2200 thisform msgrid TextMatrix 0 1 销售编号 thisform msgrid TextMatrix 0 2 销售时间 thisform msgrid TextMatrix 0 3 销售类型 thisform msgrid TextMatrix 0 4 商品名称 thisform msgrid TextMatrix 0 5 商品单价 thisform msgrid TextMatrix 0 6 销售数量 thisform msgrid TextMatrix 0 7 总计金额 thisform msgrid TextMatrix 0 8 操作员 在 数量 文本框的 KeyPress 事件下添加如下代码 IF nkeycode 13 IF empty this value f a messagebox 此客户是否购买其他商品 32 4 系统提示 IF a 6 thisform msgrid additem thisform msgrid TextMatrix thisform msgrid rows 1 1 thisform text1 value thisform msgrid TextMatrix thisform msgrid rows 1 2 thisform text2 value thisform msgrid TextMatrix thisform msgrid rows 1 3 bo1 displayvalue thisform rainsupinput1 value thisform text4 value thisform text5 value thisform text6 value thisform text7 value 0 thisform text8 value 0 thisform JE setfocus ELSE thisform rainsupinput1 enabled f thisform text8 enabled f FOR m 1 TO thisform msgrid rows 1 thisform text11 value thisform text11 value val thisform msgrid TextMatrix m 7 ENDFOR thisform text12 value thisform msgrid rows 1 thisform text13 enabled t thisform text14 value thisform text11 value ENDIF ELSE messagebox 销售数量不允许为空 16 系统提示 this setfocus ENDIF ENDIF 在 数量 文本框的 InterActiveChange 事件下添加如下代码 bh thisform rainfunction1 numbertoname 商品信息表 名称 thisform rainsupinput1 value 0 SELECT FROM 库存信息表 WHERE 商品编号 BH INTO CURSOR lskc kcxx lskc 库存下限 IF this value thisform text10 value kcxx messagebox 库存数量已经低于库存下限 请马上进货 64 系统提示 ELSE thisform text9 value thisform text7 value this value thisform MSgrid TextMatrix thisform msgrid rows 1 6 this value thisform MSgrid TextMatrix thisform msgrid rows 1 7 thisform text9 value ENDIF 在 金额 文本框的 InterActiveChange 事件下添加如下代码 thisform text10 value thisform text8 value this value thisform MSgrid TextMatrix thisform msgrid rows 1 6 this value thisform msgrid TextMatrix thisform msgrid rows 1 7 thisform text10 value 在 Text1 控件的 ProgrammaticChange 事件下添加如下代码 thisform msgrid TextMatrix thisform msgrid rows 1 1 this value 在 Text2 控件的 ProgrammaticChange 事件下添加如下代码 thisform msgrid TextMatrix thisform msgrid rows 1 2 this value 在 销售类型 组合框的 KeyPress 事件下添加如下代码 IF nkeycode 13 this enabled f ENDIF 在 销售类型 组合框的 InterActiveChange 事件下添加如下代码 IF this displayvalue 零售 FOR m 3 TO 10 IF m3 textname text alltrim str m thisform 名称 alltrim thisform msgrid TextMatrix m 4 INTO CURSOR ls1 spbh ls1 编号 VALUES bh sj spbh sl je WHERE 库存信息表 商品编号 spbh ENDFOR ddh bh alltrim bo3 value 支票 IF thisform text11 value thisform text13 value thisform text11 value 0 0001 a messagebox 客户并没有付清应结款数 是否将未付清的款数作为欠款保存 32 4 系统提示 IF a 6 bh thisform rainfunction1 autonumber 欠款信息表 QK SELECT FROM 订单表 WHERE 编号 alltrim bo2 displayvalue INTO CURSOR lsddb khbh lsddb 客户编号 ddbh alltrim thisfor