VFP实训报告心得体会建议

及其应用系统开发

实习报告

学院：经济管理学院

班级序号：xxxxx

学号： xxxxxx

姓名： xxxxx

指导老师：xxxxxx

1. 汽车修理管理系统

2. 实习总结

汽车修理管理系统

一、系统分析

1.需求分析：

某汽车修理长根据业务发展的需要，决定建立一个“汽车修理管理系统”，以取代人工管

理，开发目的如下。

（1）能对汽车修理有关的数据进行输入、修改与查询。

（2）编制季度零件订货计划。

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

数据分析：

在调研的过程，用户提供了该系统所需的输入、输出单据。输入单据包括修车登记表、

汽车修理单、零件库存表、领料单、修理工登记表；输出单据包括季度零件订货计划单、汽

车修理发票、修理工工资月报表。

2.功能分析：

（1）数据登记

登记功能用于把各种手填单据中的数据及时登记到系统将要定义的表中，还要求能进行

修改。这些单据包括修车登记单、汽车修理单、零件库存表。

（2）查询

能查询登记单、修理单、汽车、车主、修理工、零件库存的有关数据。

（3）编制并显示季度零件订货计划

编制零件订货计划需要找出要订货的零件，订货条件为：零件库存量<最低库存量，

订货量可由用户输入或修改。

（4）打印发票

发票中除了包含顾客、汽车及修理项目等数据外，还要算出修车费用。修车费用和零件

费，按夏磊各式计算：

零件费=∑（零件价格*好用数量）

修理费=小时工资*修理工时*3 总计=零件费+修理费

（5）打印修理工工资月报表

某修理工的月工资=∑修理小时*小时工资

二、数据库设计

数据库设计的任务是确定系统所需的数据库。数据库是表的集合，通常一个系统只需一

个数据库。数据库设计可分为逻辑设计与物理设计两个步骤。第一步确定数据库所包含的表

及其字段。第二步确定表的具体结构，即确定字段的名称、类型及宽度；此外还要确定索引，

为建立表的关联准备条件。

小型dbas的逻辑设计可直接从分析输入数据着手，将输入数据着手，将输入数据中的各

类相关数据归纳为不同的数据表。对查询时需要同时调用的若干表，应使它们符合关联要求。

对初步设计好的数据表，可通过分析输出数据来验证其可用性。若发现有的输出数据不能从

输入数据导出，须继续向用户征集数据。

（1）修理单：xld（编号，牌号，工号，修理项目，修理小时，送修日期，完工日期）

（2）汽车：qc(牌号，型号，生产厂，车主名) （3）车主：cz(车主名，地址，电话) （4）修理工：xlg(工号，姓名，地址，电话，出生日期，进场日期，小时工资) （5）零件用量：ljyl(编号，零件号，数量) （6）零件库存：ljkc(零件号，零件名，成本，价格，库存量，最低库存，订货量) 三、

应用程序设计

系统的总体结构可用层次图来表示。这种图自上而下进行分层：第一层为系统层，通常

对应主程序；第二层为子系统层，一般起分类作用；第三层为功能层；第四层为操作层。下

图为本例的总体结构：

1封面设计：略

主文件（qcxl.prg）

set talk off

clea all

set view to sjhj.vue

public xldh,zljf

xldh=space(4)

do form fm

keyb {ctrl+f4}

modify wind screen titl 汽车修理管理信息系统

clear

do qcxlcd.mpr

read event

quit

2、单程序结构

在菜单设计器中分别设计“登记”、“零件管理”、“查询”、“打印”和“退出”菜单项，

在“登记”、零件管理“、”打印“结果项选择”子菜单“项，“退出”的结果项选择“过程”

项；编辑“登记”、“零件管理”、“打印“的”子菜单“，分别加入“修车登记”、“汽车修理

“、“修理工管理”，同时对“修车登记”、“汽车修理”菜单项分别键入”do form xcdj”、”

do form qcxl”；“零件订货计划”、“零件入库管理”、“零件出库管理”，同时对“零件订货计

划”菜单项键入”do form ljdh”；“发票”、“修理工工资月报”,同时对“发票”菜单项键入”

do form dyfp”；在“退出”的过程项中编辑“clear event”。从菜单文件生成菜单程序

qcxlcd.mpr

菜单程序命令

“退出”菜单项的命令clear events 按结构设置调用各表单的命令

生成菜单程序

qcxlcd.mpr 过程如下：

1）往命令窗口键入 modify form xcdj，使出现标题为xcdj.scx的表单设计器窗口；属

性设计：form1的caption属性设置为“修车登记”，autocenter属性设置为.t.；用数据环

境把xld 表的编号，送修日期，修理项目和牌号，qc表的型号，生产厂和车主名， cz表的

地址和电话等字段拖拽到表单中相应位置。

2）分别设置牌号和车主名两个文本框valid事件代码

sele qc

locate for 牌号=xld.牌号

if not found()

insert into qc(牌号) values (xld.牌号) endif

select cz locate for 车主名=xld.车主名

if not found()

insert into cz(车主名) values (qc.车主名) endif

select xld

do case

case this.value=1

if recn()<recc()

skip

endif

case this.value=2

if recn()>1

skip-1

endif

case this.value=3

go top

case this.value=4

go bottom

case this.value=5

do form srxldh

case this.value=6

zy=messagebox(是要增页么？,1+48+256,确认增加修理单) if zy=1 go bottom

insert into xld(编号) values (str(val(编号)+1,4)) endif

case this.value=7

sy=messagebox(是要删页么？,1+48+256,确认删除修理单) if sy=1 delete

pack

endif

case this.value=8

select qc

brow titl汽车修改+space(20)+单击行首可打删除标记，退出就删去 pack