汽车修理管理系统

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

南昌工程学院
《数据库技术与应用B》课内实践报告
(2011 ~2012 学年第 2 学期)
院(系)人文与艺术学院
班级公共关系与文秘
姓名张涛
学号2010011017
“汽车修理管理系统”的开发
为了让我们对Visual foxpro有更好的了解,巩固我们所学的课堂知识,并且将我们所学的理论知识运用到实践当中去,我们进行了一个课程设计。

我们做的这个系统是某修理厂根据业务发展的需要,决定建立一个取代人工管理的汽车修理系统,开发的目的如下:
(1)能对汽车修理有关的各类数据进行输入、修改与查询。

(2)编制季度零件订货计划。

(3)打印汽车修理发票和工资月报表。

开发的要求如下:
(1)满足用户所需求的数据需求,在其中系统中做成输入、输出单据。

其中输入单据包括修车登记单、汽车修理单、零件出库单;输出单据包括季度零件订货计划、汽车修理发票和工资月报表。

(2)满足用户的功能需求,功能需求包括数据登记、查询、编制并显示季度零件订货计划、打印发票、打印修理工工资月报表。

首先开始的是数据库设计
1、逻辑设计,从用户所提供的修车登记单、汽车修理单、零件入库单和零件出库单等输入单据中,我们初步找出修理单、修理工、汽车、零件用量等包含相关数据的实体,参照打印发票、打印修理工工资月报表、编制零件订货计划等输出单据的数据要求,包含六个表的数据库。

下面是这6个表的名称及关联。

(1)修理单:XLD(编号,牌号,工号,修理项目,修理小时,送修日期)
(2)汽车:QC(牌号,型号,生产厂,车主名)
(3)车主:CZ(车主名,地址,电话)
(4)修理工:XLG(工号,姓名,地址,电话,出生日期,进厂日期,小时工资)
(5)零件用量:LJYL(编号,零件号,数量)
(6)零件库存:LJKC(零件号,零件名,成本,价格,库存量,最低库存,订货量)
2、完成逻辑设计,我们就开始做物理设计,物理设计首先是将单据导入到系统里建立起数据库,具体如下图所示,这是我们在做的过程中的图示。

修理单(XLD.DBF)
汽车(QC.DBF)
车主(CZ.DBF)
修理工(XLG.DBF)
零件用量(LJYL.DBF)
零件库存(LJKC.DBF)
然后我们开始进行的是应用程序设计
1、总体设计
按照功能分类,可将系统的总体结构用层次图表示分为四层,第一层为系统层,对应主程序;第二层为子系统层,一般起分类控制作用;第三层为功能层;第四层为操作层。

2、初始用户界面设计,我们是做了这个系统的封面,如下图:
上述菜单程序生成后,设置主文件来调用他,编写代码
3、功能模块的设计,其中包括5个表单程序与一个报表程序。

4、“修车登记”表单(XCDJ.SCX),修车登记表单用于输入、修改、添加修车登记单。

首先创建表单,其次是Form1的属性设置,caption属性为:“修车登记”;Autocenter属性设置为.T.,然后就是在表单上创建各标签和文本框。

5、“输入修理单号”表单(SRXLGH.SCX),首先创建表单,其次也是属性设置,然后TEXT1文本框的Lostfocus事件代码编写如下:Xldh=thisform.value,
最后Command1命令按钮的click事件代码编写如下:thisform.release。

6、“汽车修理”表单,汽车修理表单的功能是输入或修改小时。

完工日期和修理工工号,并且能同时显示修车登记单的主要信息及零件用量。

(1)创建表单:向命令窗口输入命令MODIFY FORM qcxl,使出现“表单设计器”窗口。

(2)form1的属性设置:将Caption属性设置为“汽车修理.修理情况”。

(3)创建各标签和文本框。

在数据环境中添加XLD、XLG和小时和完工日期等6个字段拖拽到表单窗口中规定的位置,从而产生相应的标签和文本框。

(4)制作完成如下图所示:
(4)在XLG表选取修理工的工号,并存入xld.工号,在表单上创建combo1组合框,并设置以下属性:
(5)form1的refresh事件代码编写如下截图:
(6)创建命令按钮组。

在表单底部居中创建一个包含下页、上页到确定等六个命令按钮的命令按钮组,其对象名为commandgroup1.
其click事件代码如下:
SELE xld
Do case
Case THIS.V ALUE=1
IF RECN()<RECC()
SKIP
ENDI
CASE THIS.V ALUE=2
IF RECN()>1
SKIP-1
ENDI
CASE THIS.V ALUE=3
GO TOP
CASE THIS.V ALUE=4
GO TOP
CASE THIS.V ALUE=5
DO FORM SRXLDH
CASE THIS.V ALUE=6
THISFORM.RELEASE
ENDC
THISFORM.REFRESH
输完代码就按ctrl+w存盘,最后运行,如无错误提示,表示设计成功。

出现如下图示。

相关文档
最新文档