图书管理系统--Visual Foxpro 6.0编写---绝对有用

mf_name=GetFILE('PDF;DJVU;DJV','文件名:','确定') thisform.pf.p1.text3.value=mf_name IF !EMPTY(mf_name) thisform.pf.p1.text3.enabled=.f. if right(mf_name,3)="PDF" thisform.pf.p1.text4.value="PDF" thisform.pf.p1.text4.enabled=.f. endif if right(mf_name,4)="DJVU" or right(mf_name,3)="DJV" thisform.pf.p1.text4.value="DJVU" thisform.pf.p1.text4.enabled=.f. endif endif IF EMPTY(thisform.pf.p1.text4.value) THISFORM.pf.p1.COMMAND2.ENABLED = .F. ELSE THISFORM.pf.p1.COMMAND2.ENABLED = .T. ENDIF USE 表名 APPEND FROM 文本文件名.TXT DELIMITED WITH CHARACTER "," --------------------------- USE 表名 APPEND FROM 文本文件名.TXT DELIMITED WITH TAB DELIMITED 指定源文件为分隔数据文件。分隔数据文件是 ASCII 文本文件，文件中每条记录以回车和换行符结尾。各字段内容默认地由逗号分开，字符字段值还需要用引号括上。例如: "Smith",9999999,"TELEPHONE" 所有分隔数据文件的扩展名默认为 .TXT 数据的格式。 如果日期格式正确，可以从分隔文件中导入日期数据，日期的默认格式为 mm/dd/yy。您还可以选择加入世纪信息。Visual FoxPro 导入的数据(如 12/25/95)不包含世纪信息，世纪信息的默认值为 20 世纪。日期分隔符可以为任意非数值字符，但不能使用分隔文件中字段的分隔符。 如果其他一些日期格式与 SET DATE 中可以使用的格式相匹配，Visual FoxPro 也可以导入这些格式的日期数据。若要导入非默认格式的日期，应在使用 APPEND FROM 前先发出 SET DATE 修改数据格式设置。要想检查日期格式是否能成功地导入，可使用CTOD()函数。如果 CTOD()函数接收此日期值，则日期数据就能正确地导入。 DELIMITED WITH Delimiter 字符字段由 Delimiter 标识，而非引号。 DELIMITED WITH BLANK 由空格符 (BLANK) 分隔字段，而不是用逗号分隔字段。 DELIMITED WITH TAB 各字段由制表符 (TAB) 来分隔，而非逗号。 DELIMITED WITH CHARACTER Delimiter 字段之间由给定的 Delimiter 分隔。如果 Delimite 是分号，应用引号括起来，因为引号在 Visual FoxPro 中有特殊的意义：一个命令分在多行中书写时，用分号作为行的结束。Delimiter 可以是 BLANK 或 TAB 。 WITH Delimiter 子句可与 WITH CHARACTER 子句同时使用。例如，在下面的例子中，添加记录的来源是一个文本文件。该文本文件中，字符字段用下划线 _ 标识，而字段之间用星号 * 分隔: APPEND FROM mytxt.txt DELIMITED WITH _ ; WITH CHARACTER * ************************************************ 公告号 公告日 申请人 125463 2005.02.13 王小英 584595 2006.12.25 小李 要用VFP语言编程代码: create table mytable (公告号 c(6),公告日 c(11),申请人 c(20)) APPEND FROM mytxt.txt DELIMITED WITH space(1) 从一个文件中读入记录，追加到当前表的尾部。 APPEND FROM FileName | ? [FIELDS FieldList] [FOR lExpression] [[TYPE] [DELIMITED [WITH Delimiter | WITH BLANK | WITH TAB | WITH CHARACTER Delimiter] | DIF | FW2 | MOD | PDOX | RPD | SDF | SYLK | WK1 | WK3 | WKS | WR1 | WRK | CSV | XLS | XL5 [SHEET cSheetName] | XL8 [SHEET cSheetName]]] [AS nCodePage] 参数 FileName 指定从哪个文件中读入记录。如果给出的文件名不包含扩展名，则将文件默认为 Visual FoxPro 表，扩展名为 .DBF。如果文件是 Visual FoxPro 表，无论SET DELETED 为何种设置，表中标记为删除的记录也将添加到当前表中。 ? 显示打开对话框，从中可以选择从哪个表中读入记录。 FIELDS FieldList 指定添加哪些字段数据。 FOR lExpression 为当前选定表中每一条 lExpression 为“真”(.T.) 的记录追加新记录，直至达到当前选定表的末尾。如果省略 FOR，则整个源文件记录都追加到当前表中。 TYPE 指定源文件类型。如果指定的源文件类型不是 Visual FoxPro 表，则必须指定文件类型，但不必包括 TYPE 关键字。您可以从各种类型文件(包括分隔 ASCII 文本文件)中读入信息添加到表中，在这些文件中可以指定字段分隔符。 如果要追加的源文件扩展名不是默认的扩展名，源文件名必须包括文件扩展名。例如，Microsoft Excel 工作表通常具有 .XLS 扩展名。如果要追加的 Microsoft Excel 工作表扩展名不是 .XLS，一定要指定扩展名。 注意 如果要追加的记录来自工作表，工作表中的数据必须以主行序而非主列序存储，这样才能使追加的工作表数据符合表结构。 DELIMITED 指定源文件为分隔数据文件。分隔数据文件是 ASCII 文本文件，文件中每条记录以回车和换行符结尾。各字段内容默认地由逗号分开，字符字段值还需要用引号括上。例如: "Smith",9999999,"TELEPHONE" 所有分隔数据文件的扩展名默认为 .TXT 数据的格式。 如果日期格式正确，可以从分隔文件中导入日期数据，日期的默认格式为 mm/dd/yy。您还可以选择加入世纪信息。Visual FoxPro 导入的数据(如 12/25/95)不包含世纪信息，世纪信息的默认值为 20 世纪。日期分隔符可以为任意非数值字符，但不能使用分隔文件中字段的分隔符。 如果其他一些日期格式与 SET DATE 中可以使用的格式相匹配，Visual FoxPro 也可以导入这些格式的日期数据。若要导入非默认格式的日期，应在使用 APPEND FROM 前先发出 SET DATE 修改数据格式设置。要想检查日期格式是否能成功地导入，可使用CTOD()函数。如果 CTOD()函数接收此日期值，则日期数据就能正确地导入。 DELIMITED WITH Delimiter 字符字段由 Delimiter 标识，而非引号。 DELIMITED WITH BLANK 由空格符 (BLANK) 分隔字段，而不是用逗号分隔字段。 DELIMITED WITH TAB 各字段由制表符 (TAB) 来分隔，而非逗号。 DELIMITED WITH CHARACTER Delimiter 字段之间由给定的 Delimiter 分隔。如果 Delimite 是分号，应用引号括起来，因为引号在 Visual FoxPro 中有特殊的意义：一个命令分在多行中书写时，用分号作为行的结束。Delimiter 可以是 BLANK 或 TAB 。 WITH Delimiter 子句可与 WITH CHARACTER 子句同时使用。例如，在下面的例子中，添加记录的来源是一个文本文件。该文本文件中，字符字段用下划线 _ 标识，而字段之间用星号 * 分隔: APPEND FROM mytxt.txt DELIMITED WITH _ ; WITH CHARACTER * DIF 选用 DIF 可从 VisiCalc .dif(数据交换格式)文件中导入数据。矢量(列)对应当前选定表的字段，元组(行)对应表的记录。DIF 文件的默认扩展名为 .DIF。 FW2 选用 FW2 可从由 Framework II 创建的文件中导入数据。FW2 文件的默认扩展名为 .FW2。 MOD 选用 MOD 可从Microsoft Multiplan 4.01 版本的文件中导入数据。MOD 文件由 Microsoft Multiplan 4.01 版本创建，默认扩展名为 .MOD。 PDOX 选用 PDOX 可从 Paradox 3.5 版或 4.0 版数据库文件中导入数据。Paradox 文件名的默认扩展名为 .DB。 RPD 选用 RPD 可从由 RapidFile 1.2 版本创建的文件中导入数据。RapidFile 文件名的默认扩展名为 .RPD。 SDF 选用 SDF 可从系统数据格式文件中导入数据。SDF 文件是一种 ASCII 文本文件，记录有固定长度，并且以回车和换行符结尾，各字段不分隔开。文件的默认扩展名为 .TXT。 从 SDF 文件到 Visual FoxPro 表时的有效的日期转换要求数据保存为 YYYYMMDD 格式。 如果日期格式保存为不明确的格式, 你应该映射日期列到一个适当宽度的字符列这样你可以检查转换后的值来改正转换程序以创建正确格式的日期数据。 SYLK 选用 SYLK 可从 SYLK(符号链接)交换格式文件中导入数据。SYLK 文件用于 Microsoft MultiPlan 中。SYLK 文件中的列对应 Visual FoxPro 表的字段，行对应表的记录。SYLK 文件没有扩展名。 WK1 选用 WK1 可从 Lotus 1-2-3 2.x 版本的电子表格中导入数据。电子表格的每列为表的一个字段，每行为表的一条记录。Lotus 1-2-3 2.x 版本创建的电子表格扩展名为 WK1。 WK3 选用 WK3 可从 Lotus1-2-3 的电子表格中导入数据，电子表格的每列为表的一个字段，每行为表的一条记录。Lotus1-2-3 版本 3.X 创建的电子表格扩展名为 .WK3。 WKS 选用 WKS 可从 Lotus1-2-3 1-A 版的电子表格中导入数据。电子表格的每列为表的一个字段，每行为表的一条记录。Lotus1-2-3 1-A 版本创建的文件扩展名为 .WKS。 WR1 选用 WR1 可从 Lotus Symphony 1.1 或 1.2 版的电子表格中导入数据。电子表格的每列为表的一个字段，每行为表的一条记录。Symphony1.1 或 1.2 版创建的电子表格扩展名为 .WR1。 WRK 选用 WRK 可从 Lotus Symphony 1.0 版的电子表格中导入数据。电子表格中的每列为表的一个字段，每行为表的一条记录。Symphony 1.0 版创建的电子表格扩展名为 .WRK。 CSV 选用 CVS 可从一个各值用逗号分隔的文件中导入数据。一个 CSV 文件的第一行是字段名；当导入该文件时，会忽略这个字段名。 XLS 选用 XLS 可从 Microsoft Excel 工作表中导入数据。工作表的每列为表的一个字段，每行为表的一条记录。由 Microsoft Excel 创建的工作表扩展名为 .XLS。 XL5 选用 XL5 可从 Microsoft Excel 5.0 版中导入数据。工作表的每列为表的一个字段，每行为表的一条记录。工作表文件的扩展名为 .XLS。 如果省略 SHEET 子句，会导入 Sheet1 中的数据。为了导入特定工作表中的数据，需要包含 SHEET 关键字，并且使用 cSheetName 指定工作表的名称。 XL8 包含 XL8 快导入 Microsoft Excel 97 的数据。工作表的列变成表中的字段；工作表的行变成表中的记录