visual fox制作

1.新建一个文件夹，作为学生成绩查询文件夹。

2.将FOXPRO程序启动快捷方式拖到该文件夹。

3.右击该快捷方式，点击属性，修改起始位置为所建立的文件夹。

4，新建项目，并添加数据库，表，表单，PRG程序，报表等对象。

5，编译，运行。

ols=createobject("form1")

ols.show

DEFINE CLASS form1 AS form

Top = 11

Left = 115

Height = 200

Width = 300

Desktop = .T.

DoCreate = .T.

Caption = "表单实例"

Name = "form_stu"

ADD OBJECT cmdok AS commandbutton WITH

Top = 150,

Left = 90,

Height = 25,

Width = 60,

Caption = "统计",

Name = "cmdOk",

TabIndex = 2

ADD OBJECT cmdyl AS commandbutton WITH

Top = 150,

Left = 150,

Height = 25,

Width = 60,

Caption = "关闭",

Name = "cmdyl",

TabIndex = 1,

Default = .T.

ADD OBJECT pjjbgzs AS textbox WITH

Alignment = 3,

Value = 0,

Height = 20,

Left = 120,

SelectOnEntry = .T.,

Top = 75,

Width = 49,

Name = "pjjbgzs",

TabIndex = 3

PROCEDURE Init

With thisform

.MinButton = .T.

.MaxButton = .T.

.Borderstyle= 2

.WindowType = 1

.AutoCenter = .T.

Endwith

public pjjbgz

pjjbgz=0

ENDPROC

PROCEDURE cmdok.Click

set talk off

use d:\data\zggz.dbf.dbf excl

aver 基本工资 to pjjbgz &&你的“基本工资”字段名

thisform.pjjbgzs.value=pjjbgz

use

thisform.refresh

set talk on

ENDPROC

PROCEDURE cmdyl.Click

thisform.release

ENDPROC

ENDDEFINE

---