VFP实验一;项目数据库文件表文件建立及数据输入.docVIP

实验一：VFP项目、数据库文件、表文件建立及数据输入 实验名称 VFP项目、数据库文件、表文件建立及数据输入 实验目的 1．掌握VFP项目、数据库、表的创建及修改方法。 2．掌握表文件的索引建立/修改、索引名修改方法。 3．掌握记录的浏览、添加、修改、定位、删除等操作方法。 前期准备 在U盘或硬盘建立了“VF实验”文件夹，并指定其为默认目录。 实验内容 一、设计一个医院门诊管理系统，具体包括： （一）、创建项目“医院门诊管理系统”，创建数据库hospital (二)、在数据库hospital中创建4个表文件，医生表(Doctor.dbf)，病人表(Patient.dbf)，药品表(Medicine.dbf)，处方表（prescription.dbf）。表结构如下： 1.医生表结构： Doctor(医生编号C(4) （主索引，索引名DID），医生姓名C(8)，性别C(2)，科室C10)，工作中L) 2.病人表结构：Patient(病人编号C(4) （主索引，索引名PID），病人姓名C(8)，性别C(2)，所属科室C(2)，主治医生C(4)) 3.药品表结构： Medicine(药品编号C(4) （主索引，索引名MID），药品名称C(10)，价格N(7，2)，数量I，备注M) 4.处方表结构： prescription.dbf(药品编号 C(4), 病人编号 C(4),医生编号 C(4), 药品名称C(10)，价格N(7,2)，数量 I)。 (三)、对Doctor.dbf，Patient.dbf，Medicine.dbf用浏览器方式手动输入记录，具体记录值参考以下三个表格。 一、设计一个医院门诊管理系统 二、记录操作练习 1.用append blank命令添加一个病人信息：病人编号为P008，姓名为孙文玉，性别为男，所属科室为N3，主治医生为D003。 Use patient Append blank 2.用replace with命令添加一条药品信息，编号M005，名称诺氟沙星，价格9.5，数量30，备注“本品为2009年新进药品” use medicine append blank replace 药品编号 with M005 药品名称 with 诺氟沙星 价格 with 9.50 数量 with 30 备注 with 本品为2009年新进药品 3．用list命令显示所有男医生的信息。 use doctor list for 性别=男 4．用list命令显示所属科室为N1的病人信息。 use patient list for 所属科室=N1 5．用list命令显示Patient.dbf中第2到第5个病人的信息。 Use patient list for 病人编号P001 and 病人编号P006 6．用copy to命令原样复制一个药品表并命名为m1.dbf，并将药品表m1.dbf中数量小于20的药品价格降低11%。 use medicine copy to m1 replace all价格 with 价格*0.89 for 数量20 7．给m1.dbf中的“诺氟沙星”记录添加删除标记。 use M1 delete for 药品名称=诺氟沙星 list 8．彻底删除药品表m1.dbf中的“诺氟沙星”记录。 use M1 delete for 药品名称=诺氟沙星 pack 9. 用sum命令统计m1.dbf中所有药品所占的金额（金额=单价*数量）放到变量s中，在屏幕打印s。 Use M1 sum 价格*数量 to s ?s 三、索引练习 用索引快速定位功能查找医生编号D003的记录。（seek命令） use doctor seek D003 order DID brow 出现的 问题 和 解决方法 将药品表m1.dbf中数量小于20的药品价格降低11%，不会写代码 解决方法：问了一下同学之后就记住了~\(≧▽≦)/~ 索引代码敲完之后显示的是doctor表，并不是单独D003的数据，不知道是不是代码写的有问题了。 评分：完成度50+正确性18+独立性8+态度20=96分 课后作业： 建立表，命名为book 添加2条记录 Ctrl+y Append blank 3. 4. (1)use book List all (2) use book go 3 list next 1 (3) use book go 2 List next 4 (4) use book go 3 List next 2 (5) use book List all for 出版社=’01’ (6) use book List 书名,作者,单价 for 单价20 or 作者=’王月’ (