Question

很简单的题目 用VFP 设计一个职工信息数据管理系统 ·······求大家帮帮忙

基本要求：

① 要求用VFP语言完成程序的没汁.

② 要求在程序中能够运用选择结构及循环结构程序,使系统功能完善.

三、 设计方法和基本原理：

问题描述：

字段名 类型 宽度 小数位数 NULL

职工号 字符型 6

姓名 字符型 8

性别 字符型 2

出生日期 日期型 8

婚否 逻辑型 1 2

工资 数值型 6

职称 字符型 6

简历 备注型 10

部门 字符型 6

1．

首先建立数据库文件(字段：职工号、姓名、性别、出生日期、婚否工资、职称、简历、部门;创建10条记录)，以此数据库文件作为基础开发学生信息数据管理系统，系统功能包括：录入数据；修改数据（按职工号和姓名分别修改）；删除数据（职工号和姓名分别作删除）；查询数据（按职工号、出生日期、姓名、部门分别查询），此系统由传统的结构化程序来做或者是由面向对象的可视化编程来实现。

2． 问题的解决方案：

首先设计一个主程序，系统各个功能设计成子程序，然后用主--子程序调用来实现；若使用面向对象的编程，则可以由控件的各个过程来实现。

四、 主要技术问题的描述：

1．录入数据：打开数据库，然后由追加命令来实现。若需要添加多条记录则循环。（注：1人完成）

2．修改数据：分别按职工号和姓名修改可分成两个子程序来编写。打开数据库，按职工号和姓名去定位找到（locate），然后编辑修改。（注：1人完成）

3．查询数据：分别按职工号、出生日期、姓名、部门查询，可分成四个子程序。（注：2人完成）

4．删除数据：按职工号和姓名分别作删除，分别按职工号和姓名修改可分成两个子程序来编写（pack）。（注：1人完成）

5.主程序（主界面）要求有无权限而进入系统即界面友好。（注：1人完成）

Answer 1

前四条都好实现，肉都在第五个要求上，慢慢啃吧！

Answer 2

这个很简单

Answer 3

假设库文件名zgk.dbf
**主程序**
set talk off
h=""
do while h<>"12345"
clear
acce "输入口令：" to h
enddo
Use zgk
A=1
Do while A<5
Clear
text
1.录入数据"
2.修改数据"
3.查询数据"
4.删除数据"
5.退出"
endtext
Input "请选择1-5：" to A
Do Case
Case a=1
Do 录入
Case a=2
Do 修改
Case a=3
Do 查询
Case a=4
Do 删除
Other wise
use
Endcase
Enddo

Procedure 查询
c=1
Do while c<5.
Clear
Text
1.按职工号查询
2.出生日期查询
3.按姓名查询
4.按部门查询
5.返回
Endtext
Input "请选择1-5：" to C
h=""
Do case
Case c=1
Accept "输入职工号：" to H
disp for 职工号=H
wait
Case c=2
Accept "输入出生日期：" to H
Disp for 出生日期=ctod(H)
wait
Case c=3
Accept "输入姓名：" to H
disp for 姓名=H
wait
Case c=4
Accept "输入部门：" to H
Disp for 部门=H
wait
Other wise
Exit
Endcase
Enddo
Return

Proc 修改
c=1
Do while c<3
Clear
Text
1.按职工号修改
2.按姓名修改
3.返回
Endtext
Input "请选择1-3：" to C
h=""
Do case
Case c=1
Accept "输入职工号：" to H
Edit for 职工号=H
Case c=2
Accept "输入姓名：" to H
edit for 姓名=H
Other wise
Exit
Endcase
Enddo
Return

Proc 删除
c=1
Do while c<3
Clear
Text
1.按职工号删除
2.按姓名删除
3.返回
Endtext
Input "请选择1-3" to C
h=""
Do case
Case c=1
Accept "输入职工号：" to H
dele for 职工号=H
pack
Case c=2
Accept "输入姓名：" to H
dele for 姓名=H
pack
Other wise
Exit
Endcase
Enddo
Return

Proc 录入
c=1
Do while c<3
Clear
Text
1.插入记录
2.追加记录
3.返回
Endtext
Input "请选择1-3：" to C
h=0
Do case
Case c=1
Input "在哪条记录后插入新记录？" to H
Go h
insert
Case c=2
Append
Other wise
Exit
Endcase
Enddo
Return