VFP程序设计（要详细具体）

内部变量定义的方法

不需要像C一样，先定义后使用，而是可以随时定义，且可以改变。它带来了灵活性，也增大了出现错误的可能性。

交互式语句及区别

交互式语句有3个：

（1）格式：wait [提示] to [变量名] [ outtime [秒数]]

功能：等待从键盘接收单个字符，输入字符后不需回车，即赋值给给定名字的变量，如果给出outtime [秒数]选项，等待给定秒数后，即不再等待，继续执行后继命令。

（2）格式：accept [提示] to [变量名]

功能：从键盘接收一个或多个字符，输入字符串后，必须以回车结束。只接受字符，输入的字符串不用加定界符。

（3）格式：input [提示] to [变量名]

功能：从键盘接收数字或字符串，输入后，必须以回车结束。输入的数值没有特殊要求，输入的字符串必须加定界符。

追加记录的方法

增加一条•浏览时，“表”→ “追加新记录”或ctrl+y

增加一批•浏览时，“表”→ “增加记录”

追加命令：append from <表名>

表单中常用的公共属性

属性 描述 默认值

Alwaysontop 指定表单是否总是位于其他打开窗口之上.F.

Autocenter 指定表单初始化时是否自动在VFP主窗口内居中显示 .F.

Backcolor 指明表单窗口的颜色默认(255,255，255）

Borderstyle 指明表单边框风格。默认3,采用系统边框，大小可变 3

Caption 指明显示于表单标题栏上的文本 Form1

Closable 指定是否能通过单击关闭窗或双击控制菜单框来关闭表单 .T.

Movable 确定表单是否能够移动 .T.

Scrollbars 指定滚动条类型：0-无，1-水平，2-垂直，3-水平垂直 0

WindowState 表单状态：0-正常，1-最小化，2-最大化0

WindowType 1-模式，关前不可访问其他界面元素；0-非模式表单 0

数据库表与自由表的区别

相同：建法、用法、命令几乎完全相同

区别：

1、数据库表能使用长表名，自由表不能。

2、库表字段名长<=128,自由表长<=10。

3、库表字段能指定标题、默认值和输入掩码，自由表不能。

4、库表支持主关键字、参照完整性和表间联系。自由表否。

5、库表支持insert、update和delete触发器。自由表否。

结构化程序设计与面向对象程序设计的区别

结构化程序设计方法是把待求解的问题自顶向下分解成多个相对简单独立的模块，用子程序、过程或函数组成完整程序。

面向对象的程序设计方法是用对象描述实体，用消息模拟联系，用类模拟共性。采用属性、方法和事件解决问题。

永久性关联建立的过程

通过数据库建立的关联是永久关联。要建立永久关联，首先要在相关联的各表上

其次在数据库设计器中，击（父）表中的（主）索引不放，拖动到（子）表的相关索引上，释放鼠标，形成连线。

•如需编辑（删除）联系，可右击连线，从d出的快捷菜单中选“编辑（删除）关系”

一般而言一个完整的vfp程序如果没有编译时，是两个文件的：一个为scx后缀,另一个为sct后缀，在这可没法放上去。如果是一段语句，这样就行：

IF 输入的名字 <>"XXXX"

MESSAGEBOX("不正确，请重新认证！",0+48+0,"系统提示")

RETURN

ELSE

**可以登录

ENDIF

2、clear

?"1到100之内的所有素数："

s=0

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

??alltrim(str(i))+space(2)

s=s+i

endif

endfor

?"它们的和是：",s

3、clear

?"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

?s

4、command1的click代码：

if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select * from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数.

i=1

?"从大到小排序结果为："

do while i<=10

??AAA(i) &&显示排完序后的数据.

i=i+1

enddo

RETURN

*冒泡排序函数.

*参数: pData: 传入数组, nCount:数组的大小.

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

---