Question

VFP6的一些问题

1。如何声明变量
2。怎样创建FOR循环
3。怎样把数字转字符串
4。怎样取字符串的第N位的字符
5。IF判断的格式
6。怎样打开和保存一个数据库
7。怎样把一个值赋给表中的一个值
8。怎样读取表中的一个值

9。（回答此问追加100分）写一个小的例程，编写一个程序，可以维护一个1维的数据库（就是可以对此数据库进行读写操作）。

Answer 1

1。如何声明变量

(1)PUBLIC MemVarList 全局变量
如：
PUBLIC val1,val2

val1 = 10

val2 = 15
(2)LOCAL VarList
(3)PRIVATE VarList

2。怎样创建FOR循环

FOR VarName = nInitialValue TO nFinalValue [STEP nIncrement]

Commands

[EXIT]

[LOOP]

ENDFOR | NEXT

3。怎样把数字转字符串

STR(nExpression [, nLength [, nDecimalPlaces]])

4。怎样取字符串的第N位的字符

SUBSTR(cExpression, nStartPosition [, nCharactersReturned])

5。IF判断的格式

IF lExpression [THEN]

Commands

[ELSE

Commands]

ENDIF

6。怎样打开和保存一个数据库

打开：USE [[DatabaseName!] TableName | SQLViewName | ?]

[IN nWorkArea | cTableAlias] [ONLINE] [ADMIN] [AGAIN]

[NOREQUERY [nDataSessionNumber]] [NODATA]

[INDEX IndexFileList | ? [ORDER [nIndexNumber | IDXFileName

| [TAG] TagName [OF CDXFileName] [ASCENDING | DESCENDING]]]]

[ALIAS cTableAlias] [EXCLUSIVE] [SHARED] [NOUPDATE]

[CONNSTRING cConnectionString | nStatementHandle ]

保存：USE

7。怎样把一个值赋给表中的一个值

REPLACE WITH

8。怎样读取表中的一个值

LOCAL m_A

USE A

GO RECORDROW

m_A=A

9。（回答此问追加100分）写一个小的例程，编写一个程序，可以维护一个1维的数据库（就是可以对此数据库进行读写操作）。
CLOSE DATABASES

CLEAR

CREATE DATABASE mydata1

* Create a Salesman table with a primary key.

CREATE TABLE Salesman ; //建表

(销售员代码 c(6) PRIMARY KEY, ;

销售员 Character(20))

USE Salesman IN 0
*增加两条记录
SELECT Salesman
APPEND BLANK
REPLACE 销售员代码 with '001',销售员 with '张三'
APPEND BLANK
REPLACE 销售员代码 with '002',销售员 with '李四'

LOCATE FOR 销售员代码='003'//可以根据实际情况修改
IF FOUND()
? ‘销售员是：’＋销售员
ELSE
? '没找到'
ENDIF

SET SAFETY OFF && Suppress verification message.

USE && Close database before deleting.

DELETE TABLE Salesman

Answer 2

无