汽车配件管理系统

1、毕业设计 设计题目： _ 汽车配件管理系统 _ 学 院： _ 专 业： _ 计算机科学与技术 _ 年 级： _ 学生姓名： _ 学 号： _ 指导教师: _ 日 期： _ 教务处制 摘要 随着电子计算机技术的发展，人们逐渐进入了信息化社会。人们对信息数据的利用 与处理也进入了自动化、网络化和社会化的阶段，因此，开发管理信息系统已经成为当 今的潮流，各行各业都面临着管理技术更新的前沿问题。应用计算机技术管理企业或组 织中实时变化的问题，可以提高工作效率，增加竞争优势。 本汽车配件管理系统以汽配企业日常的汽车配件进销存业务为基础，利用 Visual Foxpro6.0中文版作为开发语言，以 Win

2、dows98中文版为开发平台，吸收企业资源计划 等先进的管理理念，设计出的一套适合普通中小型汽车配件企业，对加强企业的进销存 管理，提高运营水平：建立高效率的供销链，减少库存，降低成本；提高客户服务水平 等提供强有力的工具，同时为经营决策分析提供科学的依据。 本汽车配件管理系统能提供给汽车配件零售企业进行汽车配件的销售与管理。主要 功能如下： (1) 日常业务：包括出库登记、入库登记、出库退货、入库退货。 (2) 库存管理：包括库存查询、库存盘点。 (3) 查询统计：包括出库查询、入库查询、出库退货查询、入库退货查询 (4) 报表管理：包括出库报表、入库报表、库存报表。 (5) 基本信息管理：

3、包括商品信息、员工信息、客户信息、供应商信息。 关键词：汽车配件入库出库库存管理目录 摘要 . 2 关键字 . 2 第一章概述 . 5 第二章 需求分析 . 6 2.1开发背景 . 6 2.2需求分析 . 6 2.3实现目标 . 7 第三章 总体设计 . 7 3.1系统结构 . 7 3.2业务流程 . 7 3.3系统菜单 . 8 第四章数据库设计 . 8 4.1临时出库登记表 . 9 4.2临时出库退货表 . 9 4.3临时入库登记表 . 10 4.4临时入库退货表 . 11 4.5出库登记表 . 11 4.6出库退货表 . 12 4.7供应商信息表 . 13 4.8结算方式表 . 13 4.

4、9库存表 . 13 4.10客户信息表 . 14 4.11权限表 . 14 4.12入库登记表 . 15 4.13入库退货表 . 16 4.14商品信息表 . 17 4.15员工信息表 . 17 第五章系统功能模块实现 . 19 第六章 运行情况 . 20 6.1系统登陆表单设计 . 20 6.2主界面设计 . 20 6.3出库登记设计 . 21 6.4入库登记设计 . 22 6.5库存查询设计 . 22 6.6 库存盘点设计 . 23 6.7出库查询设计 . 24 6.8出库报表设计 . 24 6.9库存报表设计 . 25 6.10商品信息设计 . 26 第七章存在I可题与解决方法. 27

5、5.1.1如何实现数据库数据的模糊查询 . 27 5.1.2如何实现对某一时间段的入库商品进行查询 . 27 5.1.3报表如何实现 . 27 5.1.4如何实现数据备份和数据恢复 . 28 第八章结论 . 28 第九章总结与体会 . 29 第十章 参考文献 . 29 第十一章致谢 . 31 附录主要模块实现的原代码汇总 . 32 系统登陆表单设计 . 32 日常业务设计 . 35 入库登记设计 . 44 库存查询设计 . 50第一章概述 随着我国经济的持续发展，汽车已逐步进入了家庭，人们购买汽车的能力和对汽车 的需求越来越高，这就刺激了汽车行业的发展，同时也带动了汽车配件行业的快速发展, 使

6、得汽配行业的竞争越来越激烈。当今信息、效率已成为各行各业竞争的利器，在汽配 行业中传统的管理方法己再也不能适应市场经济的发展。汽车配件零售，因其车型多， 零件种类多等，单靠手工作业管理则难达到科学、准确的标准化管理。随着计算机的日 益普及，采用计算机管理业务、生产流程等诸多环节已成为汽配企业的必然趋势。第二章需求分析 2.1开发背景 随着信息化时代的到来，我国经济持续发展，汽车已经步入了家庭。人们购买汽车 的能力和对汽车的需求越来越高，这就刺激了汽车行业的发展，同时带动了汽车配件行 业的快速发展。汽车配件行业的迅猛发展，使得汽配行业的竞争越来越激烈。如何在激 烈的竞争中取胜，是每家汽车零售部件

7、企业当前所面临的严峻挑战。 21世纪是知识经济 时代，管理者必须运用科学的管理手段进行企业经营，运用信息化管理手段进行科学管 理，方能在激烈的竞争中获胜。如何采用先进的管理模式，很大程度上都必须借助计算 机来完成。目前，汽车配件销售企业的计算机管理水平还很低，相比其他许多行业仅是 处在刚开始使用的阶段。随着技术发展，计算机的普及，计算机操作及管理的日趋简化， 市场竞争加剧变化。因此企业采用计算机管理业务、财务、生产流程等诸多环节已成为 汽配企业的必然趋势。 2.2需求分析 随着汽修汽配行业的发展，中小型私营汽配零售企业日益增加，面临激烈的竞争， 企业经营者难免会在业务方面及财务上出现漏洞，给企

8、业经营带来弊端，同时也给客户 带来了不必要的麻烦。管理者也经常因库存管理及帐目管理而“头痈” 。为规范划企业 内部管理，提高企业业务管理水平，更好地服务于广大客户。采用计算机来管理汽车配 件的进销存等业务是最完美的解决方案，能使管理人员从繁琐的工作中解脱出来，真正 从事管理工作，集中管理汽配的销售及账目，同时带动企业步入现代化管理阶段，节省 了大量的人力，物力和财力，使企业经营运作物流活晰，经营状况详实准确，使汽配的 经营管理体系更加科学化，规范化。 根据涉及到的情况，系统主要功能设计有： (6) 日常业务：包括出库登记、入库登记、出库退货、入库退货。 (7) 库存管理：包括库存查询、库存盘点

9、。 (8) 查询统计：包括出库查询、入库查询、出库退货查询、入库退货查询 (9) 报表管理：包括出库报表、入库报表、库存报表。 (10) 基本信息管理：包括商品信息、员工信息、客户信息、供应商信息。 (11) 系统管理：包括操作员管理、权限管理、数据备份、数据恢复。 2.3实现目标 针对实际情况，系统实施能实现以下目标： (1) 汽车配件进销存全部采用计算机管理。 (2) 操作简单，查询方便。 (3) 系统架构活晰，界面美观友好，功能全面，数据存储安全可靠 (4) 系统内部控制严密可靠性强。 (5) 物流和物资流一体化。 第三章总体设计 3.1系统结构 本系统分为6大部分，21个完整的功能模块

10、。系统结构图如下所示 3.2业务流程 根据汽配行业特点，汽配管理系统流程设计图如下所示 3.3系统菜单 系统菜单Menumain内建有1个包含7项一级菜单、23个二级菜单。 (1) 日常业务：包括出库登记、入库登记、出库退货、入库退货 4个菜单。 (2) 库存管理：包括库存查询、库存盘点两个子菜单。 (3) 查询统计：包括出库查询、入库查询、出库退货查询、入库退货查询 4个 菜单。 (4) 报表管理：包括出库报表、入库报表、库存报表 3个菜单。 (5) 基本信息管理：包括商品信息、员工信息、客户信息、供应商信息 4个子 菜单。 (6) 系统管理：包括操作员管理、权限管理、数据备份、数据恢复4个

11、子菜单。 (7) 帮助：包括帮助、关丁本软件两个子菜单。 第四章数据库设计 根据业务情况，系统采用FoxPro数据库，数据库名称为Garmanage包含以下个表： 临时出库登记表(Ltabrkdj )、临时出库退货表(Ltabckth )、临时入库登记表(Ltabrkdj )、 临时入库退货表(Ltabrkth )、出库登记表(Tabckdj)、出库退货表(Tabckth )、供应 商信息表(Tabgys)、结算方式表(Tabjsfs )、库存表(Tabkc)、客户信息表(Tabkh)、 权限表(Tabpurview )、入库登记表(Tabrkdj )、入库退货表(Tabrkth )、商品信息

12、表 (Tabspinfo )、员工信息表(Tabyginfo )。 下面分别介绍以上各个表的结构。 4.1临时出库登记表 临时出库登记表(Ltabrkdj )用来临时存储商品出库信息。表 Ltabrkdj的结构如 表3-1所小。 表3-1 表Ltabrkdj的结构 出库票号 字符型 20 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 车型 字符型 30 产地 字符型 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 单价 数值型 10 2 金额 数值型 10 2 客户全称 字符型 50 出库日期 日期型 8 操作员 字符型 10 经手人 字符型 10

13、 字符型 30 4.2临时出库退货表 临时出库退货表(Ltabckth )用来临时存储商品出库返货的记录信息。表 Ltabckth 的结构如表3-2所示。 表3-2 表Ltabckth的结构 字符型 20 产品编号 字符型 10 零件号 字符型 10 字符型 50 车型 字符型 30 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 单价 数值型 10 2 金额 数值型 10 2 客户全称 字符型 50 退货日期 日期型 8 操作员 字符型 10 经手人 字符型 10 结算方式 字符型 30 4.3临时入库登记表 临时入库登记表(Ltabrkdj )用来临时存储商品入库的信

14、息。Ltabrkdj的结构如表 3-3所示。 表3-3 表Ltabrkdj的结构 入库票号 字符型 20 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 车型 字符型 30 字符型 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 进价 数值型 10 2 批发价 数值型 10 2 零售价 数值型 10 2 金额 数值型 10 2 供应商全称 字符型 50 入库日期 日期型 8 操作员 字符型 10 经手人 字符型 10 字符型 30 4.4临时入库退货表 临时入库登记表（ Ltabrkth 的结构如表 Ltabrkth ）用来临时存储入库商品退货返 3

15、-4所示。 厂的记录信息。 表3-4 表Ltabrkth的结构 字段名称 数据类型 字段大小 小数位数 退货票号 字符型 20 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 车型 字符型 30 产地 字符型 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 数值型 10 2 金额 数值型 10 2 客户全称 字符型 50 退货日期 日期型 8 操作员 字符型 10 经手人 字符型 10 结算方式 字符型 30 4.5出库登记表 临时入库登记表（Tabckdj）是用来保存出库商品的记录信息。Tabckdj的结构如表 3-5所示。 表3-5 表Tabck

16、dj的结构 出库票号 字符型 20 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 30 产地 字符型 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 单价 数值型 10 2 金额 数值型 10 2 客户全称 字符型 50 出库日期 日期型 8 操作员 字符型 10 经手人 字符型 10 结算方式 字符型 30 4.6出库退货表 临时出库退货表（Tabckth ）用来临时存储商品出库返货的记录信息。表 Tabckth 的结构如表3-6所示。 表3-6 表Tabckth的结构 退货票号 字符型 20 产品编号 字符型 10 零件号 字符型 10 产品名

17、称 字符型 50 车型 字符型 30 字符型 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 单价 数值型 10 2 金额 数值型 10 2 客户全称 字符型 50 退货日期 日期型 8 操作员 字符型 10 经手人 字符型 10 结算方式 字符型 30 4.7供应苞信息表 供应商信息表（Tabgys）用来保存供应商的基本信息。表 Tabgys的结构如表3-7 所示。 表3-7 表Tabgys的结构 字符型 10 供应商全称 字符型 70 简称 字符型 20 地址 字符型 100 所属地区 字符型 50 邮政编码 字符型 10 电话 字符型 30 传真 字符型 20 联系

18、人 字符型 30 联系人电话 字符型 30 开户银行 字符型 100 银行账号 字符型 50 纳税人登记 字符型 50 邮箱网址 字符型 50 4.8结算方式表 结算方式表（Tabjsfs ）是记录客户以何种方式结款，如现金收讫等。表 Tabjsfs 的结构如表3-8所示。 表3-8 表Tabjsfs的结构 字符型 10 4.9库存表 库存表（Tabkc）用来保存库存商品的记录信息。表 Tabkc的结构如表3-9所示 表3-9 表Tabkc的结构 . 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 车型 字符型 30 产地 字符型 30 货位 字符型 50 单位 字符型

19、10 库存数量 双精度型 8 2 进价 数值型 10 2 库存金额 数值型 10 2 4.10客户信息表 客户信息表(Tabkh)是用来保存客户的基本信息。表Tabkh的结构如表3-10所示 表3-10 表Tabkh的结构 客户编号 字符型 10 客户全称 字符型 70 简称 字符型 20 地址 字符型 100 所属地区 字符型 50 邮政编码 字符型 10 电话 字符型 30 传真 字符型 20 联系人 字符型 30 联系人电话 字符型 30 开户银行 100 银行账号 字符型 50 纳税人登记 字符型 50 邮箱网址 字符型 50 4.11权限表 权限表(Tabpurview )是用来设置

20、系统管 理员及操作员使用本软 件的权限。表 Tabpurview的结构如表3-11所示。 表3-1 表Tabpurview的结构 操作员编号 字符型 10 操作员姓名 字符型 10 密码 字符型 8 权限级别 字符型 1 出库登记 逻辑型 1 入库登记 逻辑型 1 出库退货 逻辑型 1 入库退货 逻辑型 1 库存查询 逻辑型 1 库存盘点 逻辑型 1 出库查询 逻辑型 1 入库查询 逻辑型 1 出库退货查询 逻辑型 1 入库退货查询 逻辑型 1 出库报表 逻辑型 1 入库报表 逻辑型 1 库存报表 逻辑型 1 商品信息 逻辑型 1 客户信息 逻辑型 1 员工信息 逻辑型 1 供应商信息 逻辑型

21、 1 操作员管理 逻辑型 1 权限管理 逻辑型 1 数据备份 逻辑型 1 数据恢复 逻辑型 1 4.12入库登记表 入库登记表（Tabrkdj ）是用来保存入库商品登记信息。 表Tabrkdj的结构如表3-12 所示。 表3-12 表Tabrkdj的结构 字段名称 数据类型 字段大小 小数位数 20 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 车型 字符型 30 字符型 30 货位 字符型 50 单位 字符型 10 数量 双精度型 8 2 进价 数值型 10 2 批发价 数值型 10 2 零售价 数值型 10 2 金额 数值型 10 2 供应商全称 字符型 50 入库

22、日期 日期型 8 操作员 字符型 10 经手人 字符型 10 结算方式 字符型 30 4.13入库退货表 入库退货表（Tabrkth ） 如表3-13所示。 是用来保存入库商品退货返厂的汜录信息。表 Tabrkth的结构 表 3-13 表Tabrkth的结构 字段名称 数据类型 字段大小 小数位数 退货票号 字符型 20 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 车型 字符型 30 字符型 30 货位 字符型 50 10 数量 双精度型 8 2 单价 数值型 10 2 金额 数值型 10 2 供应商全称 字符型 50 退货日期 日期型 8 字符型 10 10 结算方

23、式 字符型 20 4.14商品信息表 商品信息表(Tabspinfo )是用来保存商品的基本信息。表 Tabspinfo的结构如表 3-14所示。 表3-14 表Tabspinfo的结构 产品编号 字符型 10 零件号 字符型 10 产品名称 字符型 50 简称 字符型 2 车型 字符型 10 字符型 30 货位 字符型 50 单位 字符型 10 进价 数值型 10 2 批发价 数值型 10 2 零售价 数值型 10 2 商品说明 字符型 150 字符型 150 4.15员工信息表 员工信息表(Tabyginfo )是用来保存员工的基本信息。表 Tabyginfo 的结构如表 3-14所示。

24、表3-14 表Tabyginfo的结构 员工编号 字符型 10 员工姓名 字符型 10 员工性别 字符型 4 字符型 8 20 聘用日期 日期型 8 薪金 数值型 10 备注 字符型 150 第五章系统功能模块实现 第六章运行情况 6.1系统登陆表单设计 用户进入系统前，必须通过系统登录进入主程序界面。系统登陆界面实现了以下功 (1) 确认用户的身份及使用权限。 (2) 对系统信息起到保密作用。 系统登陆表单运行结果如图6-1所示 通定 取消 6-1 6.2主界面设计 在系统登陆界面验证操作员密码后，将进入主程序界面。主程序界面实现了以下功 (1) 执行相应的权限操作。 (2) 选择主界面的菜

25、单，调用相应程序，进行相应操作 (3) 通过主界面，退出程序。 主程序表单运行结果如图6-2所示。0 汽目醋理系统 0 0 6 日常业舞宫库存肯爵口查询晚计报表管理目基础值舄管理国系藐管理国帮助担， 图6-3 主程序表单运行结果如图6-2所示 6.3出库登记设计 单击主菜单日常业务下的出库登记子菜单，进入出库登记界面。出库登记界面实现 了以下功能： (1) 使用出库登记菜单做日常开票。 (2) 与客户之间以出库票号作为凭证。 (3) 单独核算赊账。 (4) 出库登记的信息保存在临时表中。 出库登记表单运行结果如图6-3所示。 6.4入库登记设计 用户单击主菜单日常业务下的入库登记子菜单，进入入

26、库登记界面。入库登记界面 主要实现如下功能： (1) 与供应商之间以入库票号作为凭证。 (2) 结账时单独核算。 (3) 入库登记的信息保存在临时表中。 入库登记表单运行结果如图6-4所示。 图6-4 6.5库存查询设计 用户单击主菜单库存管理下的库存查询子菜单选项 ，进入库存查询界面。库存查询 界面主要实现以下功能： (1) 按条件查询库存信息。 (2) 以贞框和列表两种方式显示库存信息。 (3) 通过4个按钮快速浏览库存信息。 库存查询表单设计运行结果如图 6-5所示图6-6 质 库存查询 请输入查询条件： I 查询 库存基本信息 1 库存列表 产品端号 1 SP000D1 零件号1100

27、01 产品名称|辅承 _ 产地 |广东省 一 J 货位 |120 进价 40. CO 车型 |141 _ 库存数最 | 553. 00 单位1件 库存至魏| 22320. 00。 第一个上一个下-个最后一个 退出 图6-5 6.6库存盘点设计 单击主菜单库存管理下的库存盘点子菜单选项，进入库存盘点界面。库存盘点界面 实现了以表单形式显示库存数量不为零的全部商品信息。 库存盘点表单运行结果如图6-6所示 演 库存盘点 O O 产品偏号 零件号 产品名称 SP00001 10001 轴承 SF00002 10002 轮胎 SP00002 10002 轮胎 SF00003 10D03 减震 SF00

28、004 10004 电秆 SF00006 10005 发动机 k J 盘点II出 6.7出库查询设计 单击主菜单查询统计下的出库查询子菜单选项，进入出库查询界面，出库查询界面 实现了以下功能： (1) 按用户输入的条件查询出库商品信息。 (2) 提供以贞框和列表两种方式浏览出库商品信息。 (3) 通过4个按钮快速浏览出库信息。 出库查询表单运行结果如图6-7所示 图6-7 6.8出库报表设计 单击主菜单报表管理下的出库报表子菜单选项，进入出库报表界面，出库报表界面 实现了以下功能： (1) 按用户输入的条件查询出库的商品信息。 (2) 以列表的形式显示查询结果。 出库报表设计的运行结果如图6-

29、8-1所示，报表设计输出结果如图6-8-2所示 款 出库报表 n o e 请输入起始日期：: 请输入结束日期:| 查询 出库墓号 产品编号 零件号 产品名称 2002-12-25ckdD001 SP00001 10001 轴承 2002-12-25ckd0001 SF00002 10002 轮胎 2002-12-25ckdD002 SP00005 10005 发动机 2002-12-25ckdD002 SF00003 10003 减震 2002-12-25ckdD003 SF00004 10004 电秤 2003-05-07ckd M)04 SF00003 10003 减震 L4 9m-nm-

30、n7iMnmE pnnnn wnnd 由理 打印预览打印 退出 图 6-8-1 S 报夜设计解-ctiufcuJre 页面I 606 打印时闾:曜饵08 出层号 产昌褊号 零件号 产品名蔬 车型 施 单位 客户锻 2002-12-25 ckdJOOOl SF00001 1.0001 轴承 141. 东省 120 件 100.00 40.0D 4000.00 长春市明日科! 2002-12-2SckdJ0001 sroooo2 10002 轮腊 141 涤圳 125 个 100.00 100.0D 10000.00 长春市明日料 1 _ _ 图 6-8-2 6.9库存报表设计 单击主菜单报表管理

31、下的库存报表子菜单选项，进入库存报表界面。库存报表界面 实现了以下功能： (1) 按用户输入的条件查询库存商品信息。 (2) 以列表的形式显示查询结果。 库存报表表单运行结果如图6-9所小。图 6-10 库存查询 图6-9 6.10商品信息设计 单击主菜单基础信息管理下的商品信息子菜单选项，进入商品信息界面。商品信息 界面实现了下功能： (1) 根据查询条件查询商品基本信息。 (2) 以贞框和歹0表两种方式浏览商品基本信息。 (3) 通过4个按钮快速浏览商品基本信息。 (4) 添加、修改、删除商品基本信息。 商品信息表单运行结果如图6-10所示。 商品信息管理系统 R 请输入查询条件： ：m

32、I询 简品基本信息 1 商品列表 产品貌号 SP00001 零件号 10001 产品名称 轴承 简称 zc _ 车型 单位 产地 巨省 _ 贷位 120 进偷 _ 知批发价 55. 0C 商品说明 _ 零售价 _ 75.00 供黄信息 生产厂家：广芝省汽车制造厂 第一个 上一个 下 T最后一个 添加 耐| 故消 修改 册臃 退出 产品制号 零件号 产品名称 SF00001 10001 轴承 SP00002 10002 轮胎 * SF00002 10002 轮胎 SFOOOQ3 10003 减宸 SF0U0Q4 10004 电秤 SPOOOD5 10005 发动机 1 k 羚郎侦躅 打印 出H

33、查询 话选择查询条件： 数量0 第七章存在问题与解决方法 5.1.1如何实现数据库数据的模糊查询 在数据查询中，为了查询某一种商品，用户可以输入一定的条件，根据输入的条件 来查询某种商品。例如根据用户选择的字段查询出库单据，SQL查询语句 (Combol.displayvalue 包含用户选择查询条件：Textl为用户输入的查询内容)： cif=alltrim(bo1.displayvalue) select from carmanage!tabckdj ; where alltrim(thisfrom.text1.value)$&cif. ; order by tabckdj. 出库

34、票号； into cursor lindeping 5.1.2如何实现对某一时间段的入库商品进行查询 在开发数据库管理软件时，经常要某一时间段的数据进行查询。例如要查询某个时 间段内的出库单。 在SQL语句中对数据进行日期区间查询时，可以用 Between()语句进行查询，代码 如下(Text2为起始日期；Text3为结束日期)： sdate=thisform.text2.value edate=thisform.text3.value select*; from carmanage!tabckdj; where between(出库日期,sdate,edate); order by rabc

35、kdj. 出库票号； into cursor lindeping 5.1.3报表如何实现 在一些物流软件中，打印报表是必然不可少的，在程序中实现报表的打印和预览需 要添加如下代码。 添加如下代码实现预览打印报表： Report Form myreport.frx To Print Preview 添加如下代码实现打印报表： Report Form myreport.frx To Print 5.1.4如何实现数据备份和数据恢复 在日常操作中经常需要对系统中的数据进行备份，以免数据丢失，给公司造成极大 的损失。用户在程序中设置了数据备份和数据恢复功能模块，当数据丢失时可以及时恢 复，将损失减少到

36、最低。下面的代码将实现数据备份： close all source=sys(5)+sys(2003) + * obj=alltrim(thisform.text1.value)+ “*.* copy file &source” to &obj” COPY FILET 令格式： COPY FILE TO COPY FILE命令的语法含有以下命令参数,见表 3-4 表3-4 COPY FILE命令的参数 参 数 描 述 SOURCE 必要参数。可以是字符串表达式，用来表示要被复制的原文件名， Source可以包含目录或 文件夹，以及驱动器。可以是代表该路径的变量，变量的引用格式为：

37、 &变量名” Destination 必要参数。可以是字符串表达式，用来表示要复制的目标文件名， Destination 可以包含 目录或文件夹，以及驱动器。也可以是代表该路径的变量，变量的引用格式为： “&变量名” 第八章总结与体会 汽车配件管理信息系统的启用，对汽车配件企业经营的业务流程进行有效的管理， 按其所需实现了汽车配件企业的入库、入库退货、出库、出库退货、库存管理、基本信 息管理、财务管理，活晰地体现了企业经营运作物流。为加强企业信息管理、提高运营 水平、建立高效的供销链、减少库存、提高经营效率、降低成本、提高客户服务水平等 提供了强有力的工具，同时为经营决策分析提

38、供科学的依据。使汽配的经营管理体系更 加科学化、规范化，使员工的工作效率得到很大提高。具有较好的实用价值。 通过制作汽车配件管理系统的完整设计，我进一步了解了汽配行业的特点。相对于 汽配行业的复杂程度，本系统还有待完善。随着科学技术的发展，管理系统的不断完善, 管理过程将变得更加简单明了。 第十章参考文献 1. 邵洋，谷宇.Visual FoxPro 数据库系统开发实例导航（第二版） .人民邮电出版社.2003 年 8 月 2. 徐荣宽.Visual FoxPro6.0 简明教程.东南大学出版社.2005 年 1 月 3. 周建成.FoxPro2.5 命令与函数专辑.人们邮电出版社.1994

39、年 7 月 4. 范立南.Visual FoxPro 程序设计与应用.电子工业出版社.2005 年 1 月 5. 高伟，陈林.Visual FoxPro9.0 基础教程.清华大学出版社.2005 年 5 月 6. 余坚.Visual FoxPro 程序设计基础.清华大学出版社.2006 年 8 月 7. 史济民，汤观全.Visual FoxPro 及其应用开发.清华大学出版社.2006 年 1 月 8. 吴迪.Visual FoxPro6.0 中文版类和对象详解.清华大学出版社.1998 年 2 月 9. 方智惠，彭风鸣.Visual FoxPro 程序员手册.科学出版社.2004 年 5 月

40、 10. 李加福.Visual FoxPro6.0. 清华大学出版社.1999 年 6 月 11. 李春葆.Visual FoxPro6 专业版基础类参考手册.机械工业出版社.1999 年 9 月 12. 赵志坚.Visual FoxPro5.0 类和对象详解.人民邮电出版社.1998 年 6 月 13. 何玉辉.Visual FoxPro 程序设计教程.西安电子科技大学出版社 .2003 年 7 月 14. 谢维成.Visual FoxPro8.0 实用教程.清华大学出版社.2005 年 1 月 15. 梁杰，效英，殷咸青.FoxPro 2.6 for windows 使用详解.西安电子科技

41、大学出版社.1995 年 5 月 16. 丛书编委会.Visual FoxPro 实例教程.中国电力出版社.2008 年 8 月 17. 张洪举.Visual FoxPro6.0 9.0 解决方案与范例大全.人们邮电出版社.2006 年 4 月 第十一章致谢 本课题在选题及研究过程中得到雷老师的悉心指导。在雷老师一次次询问研究进 程，精心点拨、热忱鼓励并为我指点迷津的过程中，我拓展了研究思路。陆老师一丝不 苟的作风，严谨求实的态度，踏踏实实的精神，不仅授我以文，而且教我做人，虽历时 三载，却给以终生受益无穷之道。对陆老师的感激之情是无法用吉语表达的。 感谢*老师、*老师、*老师、*老师等对我的

42、教育培养。他们细心指导我的学习与研 究,在此，我要向诸位老师深深地鞠上一躬。 南京晓庄学院*院长、科学教育系*主任、*书记、*老师、*老师等老师为我提供了 良好的研究条件，谨向各位同仁表示诚挚的敬意和谢忱。 感谢我的同学*、*、*、*三年来对我学习、生活的关心和帮助。 最后，向我的父亲、母亲、致谢，感谢他们对我的理解与支持。 附录主要模块实现的原代码汇总 系统登陆表单设计 系统登陆表单名为admin, 表单中添加了 1个CombO空件、1个Text控件、2个Label控件、1个Commandgroup 控件。 重要控件届性如表6-2所示。 表6-2 “系统登录”表单重要控件届性列表 控件名 属

43、 性 值 功 能 Combo1 PowSource RowSourceType Tabpurview操作员姓名 6-字段 提供操作员姓名列 表 员工性别 PassWardChar * 提供密码输入 程序代码。 表单的lnit事件中添加以下代码： public cn & 定义全局变量 cn=0 & 给全局变量赋初值 “操作员”组合框的KeyPress事件中添加了以下代码: select tabpurview & local InRecNo & inRecNo=recno() do case case nKeyCode=3 & if !eof() skip

44、else go bottom endif this.value= 操作员姓名 case nKeyCode=18 & if !bof() skip-1 else go top endif this.value= 操作员姓名 otherwise return endcase 首先判断用户输入的用户名是否正确，然后判断用户输入的密码是否正确，如果正 确，根据用户选择操作员所拥有的权限级别为全局变量赋值；如果不正确，弹出系统警 告对话框。具体实现如下。 选择表tabpurview工作区为当前工作区 定义局部变量 按下 PageDown 按下 PageUp 在“确定”按钮的Click事件中添加了

45、以下代码： use databasetabpurview cname=alltrim(thisform.Combo1.value) & 获得输入信息 ppassword=alltrim(thisform.text1.value) set order to 操作员姓名 & 指定控制索引文件 seek cname & 快速查找 set exact on & 设置字符精确比较 *判断操作员是否正确 if alltrim(tabpurview. 操作员姓名)!=cname cn=cn+1 cMessagetitle= 系统登录 cMessagetext= 操作员错误，请

46、重新输入！ nDialogtype=16 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 bo1.value= bo1.setfocus endcase if cn=3 thisform.release endif else *判断密码是否正确 if alltrim(tabpurview. 密码)!=ppassword cn=cn+1 cmessagetitle= 系统登录 cmessagetext= 密码错误，请重新输入！ ndialogtype=16 nanswer=mess

47、agebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 thisform.text1.value= thisform.text1.setfocus endcase if cn=3 thisform.release endif else purview=val(alltrim(tabpurview. 权限级别) pckdj=tabpurview. 出库登记 prkdj=tabpurview. 入库登记 pckth=tabpurview. 出库退货 prkth=tabpurview. 入库退货 pkccx=tabp

48、urview. 库存查询 pkcpd=tabpurview. 库存盘点 pckcx=tabpurview. 出库查询 prkcx=tabpurview. 入库查询 pckthcx=tabpurview. 出库退货查询 prkthcx=tabpurview. 入库退货查询 pckbb=tabpurview. 出库报表 prkbb=tabpurview. 入库报表 pkcbb=tabpurview. 库存报表 pspinfo=tabpurview. 商品信息 pyginfo=tabpurview. 员工信息 pkhinfo=tabpurview. 客户信息 pgysinfo=tabpurview.

49、 供应商信息 pczygl=tabpurview. 操作员管理 pqxgl=tabpurview. 权限管理 psjbf=tabpurview. 数据备份 psjhf=tabpurview. 数据恢复 thisform.release endif endif set exact off & 设置字符非精确 比较 H常业务设计 表单Init事件中的代码： l=.f. this.resize mandgroup1.csave.enabled=.f. mandgroup1.ccancel.enabled=.f. mandgroup1.cadd.enabled=.t. mandgroup1.c

50、exit.enabled=.t. thisform.grid1.recordsource=tabckdj thisform.grid1.refresh L是全局变量，当L为.T.或.F.时，这个值会集体赋值给相关控件的 Enabled届性。 这种写法其实将Resize事件当成一个设置相关控件是否有效的函数。 表单的Resize事件中添加了以下代码： store l to bo4.enabled,bo6.enabled,; bo5.enabled,bo3.enabled,bo1.enabled,; bo2.enabled,thisform.text1.enabled,thisform.text4

51、.enabled,; thisform.text5.enabled,thisform.text6.enabled,thisform.text7.enabled,; thisform.text8.enabled,thisform.text9.enabled,thisform.text10.enabled 在表单的Load事件中添加了以下代码： private l & 定义全局变量 在“产品编号”组合框的 KeyPress事件中添加以下代码： select tabspinfo local InRecNo inRecNo=recno() do case case nKeyCode=3 &am

52、p; 按下 PageDown if !eof() skip else go bottom endif this.value= 产品编号 case nKeyCode=18 & 按下 PageUp if !bof() skip-1 else go top endif this.value= 产品编号 case nKeyCode=13 this.InterActiveChange & 执行该控件的 InterActiveChange 事件 otherwise return endcase 在表单的Resize事件中添加以下代码： store l to bo4.enabled,bo6.

53、enabled,; bo5.enabled,bo3.enabled,bo1.enabled,; bo2.enabled,thisform.text1.enabled,thisform.text4.enabled,; thisform.text5.enabled,thisform.text6.enabled,thisform.text7.enabled,; thisform.text8.enabled,thisform.text9.enabled,thisform.text10.enabled 当用户输入或选择以个产品编号时，系统自动在商品信息表 Tabspinfo中查找相应 的记录，并显示在相

54、应的文本框中，实现代码如下： 在“产品编号”组合框的InteractiveChange 事件中添加了以下代码： cif=alltrim(bo1.displayvalue) select *; from carmanage!tabspinfo; where产品编号=cif; order by tabspinfo. 产品编号； into cursor lindeping if reccount()0 thisform.text1.value=lindeping. 产品名称 thisform.text1.enabled=.f. bo2.displayvalue=lindeping. 零件号 bo2.

55、enabled=.f. thisform.text4.value=lindeping. thisform.text4.enabled=.f. thisform.text6.value=lindeping. thisform.text6.enabled=.f. thisform.text5.value=lindeping. thisform.text5.enabled=.f. thisform.text7.value=lindeping. thisform.text7.enabled=.f. thisform.text9.value=lindeping. thisform.text9.setfo

56、cus else messagebox(无此编号！ ,48, 车型 单位 产地 货位 进价 操作错误)& 调出系统提示对话框 bo1.value= bo1.setfocus & 设置焦点 endif 当用户输入或选择一个零件号时，系统自动在商品信息表 Tabspinfo中查找相应的 记录，并显示在相应的文本框中，具体实现代码如下。 在“零件号”组合框的InteractiveChange 事件中添加了以下代码: cif=alltrim(this.displayvalue) select *; from carmanage!tabspinfo; where 零件 # =cif; o

57、rder by tabspinfo. 零件号； into cursor lindeping if reccount()0 thisform.text1.value=lindeping. 产品名称 thisform.text1.enabled=.f. bo1.displayvalue=lindeping. 产品编号 bo1.enabled=.f. thisform.text4.value=lindeping. 车型 thisform.text4.enabled=.f. thisform.text6.value=lindeping. 单位 thisform.text6.enabled=.f. th

58、isform.text5.value=lindeping. 产地 thisform.text5.enabled=.f. thisform.text7.value=lindeping. 货位 thisform.text7.enabled=.f. thisform.text9.value=lindeping. 进价 thisform.text9.setfocus else messagebox(无此编号,48, 操作错误！) bo2.value= bo2.setfocus endif 在“零件号”组合框的Keypress事件中添加了以下代码： LPARAMETERS nKeyCode, nShif

59、tAltCtrl select tabspinfo local InRecNo inRecNo=recno() do case case nKeyCode=3 & 按下 PageDown if !eof() skip else go bottom endif this.value= 零件号 return endcase 单击“登记”按钮，将活空表单上相关控件的内容，做好接收用户输入信息的准备。 系统将自动生成出库票号。出库票号由系统日期、字母“ ckd”、四位数字组成。首先判 断出库登记表“ Tabckdj”中的出库票号是否为空，如果为空则出库票号等于“系统日 期+ckd+0001”；

60、如果不为空，贝仙库票号等于“系统日期 +ckd+四位数字编码加1”。具 体实现代码如下。 在“登记”按钮的Click事件中添加了以下代码： store .t. to bo4.enabled,bo6.enabled,bo5.enabled,; bo3.enabled,bo1.enabled,bo2.enabled,; thisform.text8.enabled,thisform.text9.enabled,thisform.text10.enabled store .f. to thisform.text1.enabled,thisform.text4.enabled,thisform.text5.enabled,; thisform.text6.enabled,thisform.text7.enabled store 0 to thisform.text8.value,thisform.text9.value,