利用VPF 设计一个职工信息数据管理系统 500分 完成之后我重新开一帖！！

假设库文件名zgk.dbf

**主程序**

Do while .t.

clear

Asscpt "输入口令:" to h

If h="12345" then exit

End do

Use zgk

Do while .t.

Clear

Text

1.录入数据

2.修改数据

3.查询数据

4.删除数据

5.退出

End text

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

quit

End case

End do

Program 查询

Do while .t.

Clear

Text

1.按职工租游号查询

2.出生日期查询

3.按姓名查询

4.按部门查询

5.返回

End text

Input “请选择1-5” to C

Do case

Case c=1

Accept “输入职工号” to H

disp for 职工号=H

Case c=2

Accept “输入出生日期” to H

Disp for 出生日期=cdod(H)

Case c=3

Accept “输入姓名” to H

disp for 姓名=H

Case c=4

Accept “输入部门” to H

Disp for 部门=H

Other wise

Exit

End case

End do

Return

Program 修改

Do while .t.

Clear

Text

1.按职工号修改

2.按姓名修改

3.返回

End text

Input “请选择1-3”弊知销 to C

Do case

Case c=1

Accept “输入猛碰职工号” to H

Locate for 职工号=H

Edit

Case c=2

Accept “输入职工姓名” to H

Locate for 姓名=H

Edit

Other wise

Exit

End case

End do

Return

Program 删除

Do while .t.

Clear

Text

1.按职工号删除

2.按姓名删除

3.返回

End text

Input “请选择1-3” to C

Do case

Case c=1

Accept “输入职工号” to H

Locate for 职工号=H

Delete

pack

Case c=2

Accept “输入职工姓名” to H

Locate for 姓名=H

Delete

pack

Other wise

Exit

End case

End do

Return

Program 录入

Do while .t.

Clear

Text

1.插入记录

2.追加记录

3.返回

End text

Input “请选择1-3” to C

Do case

Case c=1

Input “在哪条记录后插入新记录？” to H

Go h

insert

Case c=2

Append

Other wise

Exit

End case

End do

Return

一般用main.prg这种格式的尺斗prg文件。

一般要求有form文件，dbf文件，利用project将这些放在一起，然后连编，得到exe文件。

运行时，陵升磨要求有运行库文件，在system32下，笑培或者exe文件所在目录皆可。包括

vfp6r.dll,vfp6renu.dll,vfp6rchs.dll。

具体说来就比较复杂了。

您好， **设置运行环境

Set Talk Off &&关闭命令显示

Set Escape Off &&禁止运行的程序在按 Esc 键后被中断

Set Exclusive Off &&数据库表以共享方式打开

Set Deleted On &&过滤掉已茄配带删除标记的记录

Set Safety Off &&指定在改写已有的文件时不显示对话框

Set Date Ansi &&设定日期的年份为 4 位数

Set Century On &&指定日期表达式的显示格式为YY.MM.DD

SET MARK TO [-] &&指笑纳态定日期的分隔符为"-"

SET SECONDS ON &&日期时间表达式的显示秒钟部分

SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式

Set Optimize ON &&启用或废止 Rushmore 优化。

Set ENGINEBEHAVIOR 70

Set DECIMALS TO 8 &&指定小数点位数,默认为2位

Clear &&清除主窗口

Clear All &&清除变量

**开始进行程序的事务处理 *** 作

Public pcSys

pcSys=Sys(5)+Sys(2003)

Set Default To pcSys

Set Path To Class,Form,Poto,Menu,Prg,Report

DO form denglu.scx

READ events

保存,名称自己起，一般是main,然后设置为主文件

在主程序的

do xxx

后面加上一行：

read event

在主菜单的退出模块加上

clear event

这样编译出来的exe就能正碰源常运行了

说明：

没有read event语句编译出来的exe只能运行一次，就什么也不显示了。

当发出 READ EVENTS 命令时，Visual FoxPro 启动事件处理。

发出 CLEAR EVENTS 命令停止事件处理。当发出 CLEAR EVENTS 命令时，程序继续执行紧跟在 READ EVENTS 后面的那条语句。

楼主不要忘了，在你要退出系统的地方加上

clear event或quit之类的语句，退出系统

---