FOXBASE+命令全集

合集下载

数据库基础与操作(foxbase)

数据库基础与操作(foxbase)

《数据库基础与操作(FoxBASE)》备课教案目录数据库基础 (1)数据库管理技术的发展 (1)数据库与数据模型 (1)数据库系统 (1)数据库管理系统 (1)数据库应用系统 (2)关系数据库基本概念 (2)关系 (2)关系数据库 (2)三种关系操作 (2)FOXBASE概述 (3)组成、运行环境和安装 (3)启动、退出和使用方式 (3)主要技术参数和文件类型 (3)FOXBASE使用基础 (4)数据类型 (4)常量和变量 (5)运算符和表达式 (6)常用函数 (7)FOXBASE库文件的建立 (10)数据库文件结构的建立 (10)数据库文件的初始记录的输入 (11)数据库文件结构的显示和修改 (11)数据库文件的打开与关闭 (12)打开数据库文件 (12)关闭数据库文件 (12)记录的显示、定位与顺序查询 (12)显示数据库文件的记录 (12)记录的绝对定位 (14)记录的相对定位 (14)记录的顺序查询 (15)记录的增、删、改和全屏幕编辑 (15)增添新记录 (15)记录的删除 (16)记录的修改 (17)记录的全屏幕编辑 (18)记录的排序、索引和索引查询 (19)排序 (19)索引 (20)索引查询 (22)数据记录的统计处理 (22)计数 (22)求和与求平均值 (23)汇总 (23)多数据库文件的操作 (24)工作区的概念 (24)数据库的关联 (25)多数据库的更新 (26)数据库的连接 (27)数据库文件的复制 (27)数据库文件结构的复制 (27)数据库文件的复制 (28)数据库文件和数据文件之间数据的转移 (28)磁盘文件操作命令 (28)将屏幕显示的所有内容存入指定的文本文件 (28)其它常用磁盘操作命令 (29)《数据库基础与操作(FoxBASE)》数据库基础数据库管理技术的发展❒计算机管理数据的三个阶段:手工管理、文件管理和数据库管理1.手工管理方式(又称自由管理方式):这种方式要求用户必须掌握数据在计算机内部的存储地点和方式,才能在程序中使用这些数据。

Vf基础操作代码

Vf基础操作代码

Vf的基础操作命令Ctrl+F4 隐藏命令窗口Ctrl+F2 显示命令窗口dir 显示当前目录下表的信息clear 清除主屏幕quit 直接退出vf系统create database{DatabaseName | ?} 建立数据库:其中参数DatabaseName给出了要建立的数据库名称,如果不指定数据库名称或使用问号都会弹出对话框请用户输入数据库名称。

Open database{fileName | ?} 打开数据库fileName:要打开的数据库名(默认的数据库文件扩展名.dbf),如果不指定数据库名或使用问好“?”,则显示“打开”对话框;exclusive:以独占方式打开数据库(等价于在“打开”对话框中选择复选框“独占”),既不允许其他用户在同一时刻也使用该数据库;shared:以共享方式打开数据库(等价于在“打开”对话框中不选择复选框“独占”),即允许其他用户在同一时刻使用该数据库,默认打开方式由set exclusive命令设置的值确定;noupdate:指定数据库按只读方式打开(等价于“打开”对话框中选择复选框“以只读方式打开”),即不允许对数据库进行修改。

默认的打开方式是读/写方式(即可修改);validate:指定vf检查在数据库中引用的对象是否合法,例如检查数据库中的表和索引是否可用,检查表的字段或索引的标记是否存在等。

注意:这里的noupdate选项实际并不起作用,为了使数据库中的表是只读的,需要在用use命令打开表时使用noupdate;当数据库打开时,包含在数据库中的所有表都可以使用,但是这些表不会自动打开,使用时需要用use 命令打开;vf在同一时刻可以打开多个数据库,但在同一时刻只有一个当前数据库,也就是说所有作用于数据库的命令或函数是对当前数据库而言的。

指定当前数据库的命令是:set database to{databaseName} 参数databaseName指定一个已经打开的数据库名称成为当前数据库,如果不指定参数,即输入命令:set database to 此时使得所有打开的数据库都不是当前数据库(注意:所有的数据库都没有关闭,只是都不是当前数据库)。

foxpro命令大全

foxpro命令大全

Visual foxpro 命令大全和函数大全默认分类2009-09-14 23:42:07 阅读470 评论0 字号:大中小? 在下一行显示表达式串?? 在当前行显示表达式串@... 将数据按用户设定的格式显示在屏幕上或在打印机上打印ACCEPT 把一个字符串赋给内存变量APPEND 给数据库文件追加记录APPEND FROM 从其它库文件将记录添加到数据库文件中AVERAGE 计算数值表达式的算术平均值BROWSE 全屏幕显示和编辑数据库记录CALL 运行内存中的二进制文件CANCEL 终止程序执行,返回圆点提示符CASE 在多重选择语句中,指定一个条件CHANGE 对数据库中的指定字段和记录进行编辑CLEAR 清洁屏幕,将光标移动到屏幕左上角CLEAR ALL 关闭所有打开的文件,释放所有内存变量,选择1号工作区CLEAR FIELDS 清除用SET FIELDS TO命令建立的字段名表CLEAR GETS 从全屏幕READ中释放任何当前GET语句的变量CLEAR MEMORY 清除当前所有内存变量CLEAR PROGRAM 清除程序缓冲区CLEAR TYPEAHEAD 清除键盘缓冲区CLOSE 关闭指定类型文件CONTINUE 把记录指针指到下一个满足LOCATE命令给定条件的记录,在LOCATE命令后出现。

无LOCATE则出错COPY TO 将使用的数据库文件复制另一个库文件或文本文件COPY FILE 复制任何类型的文件COPY STRUCTURE EXTENED TO 当前库文件的结构作为记录,建立一个新的库文件 COPY STRUCTURE TO 将正在使用的库文件的结构复制到目的库文件中COUNT 计算给定范围内指定记录的个数CREATE 定义一个新数据库文件结构并将其登记到目录中CREATE FROM 根据库结构文件建立一个新的库文件CREATE LABEL 建立并编辑一个标签格式文件CREATE REPORT 建立宾编辑一个报表格式文件DELETE 给指定的记录加上删除标记DELETE FILE 删除一个未打开的文件DIMENSION 定义内存变量数组DIR 或DIRECTORY 列出指定磁盘上的文件目录DISPLAY 显示一个打开的库文件的记录和字段DISPLAY FILES 查阅磁盘上的文件DISPLAY HISTORY 查阅执行过的命令DISPLAY MEMORY 分页显示当前的内存变量DISPLAY STATUS 显示系统状态和系统参数DISPLAY STRUCTURE 显示当前书库文件的结构DO 执行FoxBase程序DO CASE 程序中多重判断开始的标志DO WHILE 程序中一个循环开始的标志EDIT 编辑数据库字段的内容EJECT 使打印机换页的命令,将PROW()函数和PCOL()函数值置为0ELSE 在IF...ENDIF结构中提供另一个条件选择路线ENDCASE 终止多重判断ENDDO 程序中一个循环体结束的标志ENDIF 判断体IF...ENDIF结构结束标志ERASE 从目录中删除指定文件EXIT 在循环体内执行退出循环的命令FIND 将记录指针移动到第一个含有与给定字符串一致的索引关键字的记录上FLUSH 清除所有的磁盘存取缓冲区GATHER FROM 将数组元素的值赋予数据库的当前记录中GO/GOTO 将记录指针移动到指定的记录号HELP 激活帮助菜单,解释FoxBASE+的命令IF 在IF...ENDIF结构中指定判断条件INDEX 根据指定的关键词生成索引文件INPUT 接受键盘键入的一个表达式并赋予指定的内存变量INSERT 在指定的位置插入一个记录JOIN 从两个数据库文件中把指定的记录和字段组合成另一个库文件KEYBOARD 将字符串填入键盘缓冲区LABEL FROM 用指定的标签格式文件打印标签LIST 列出数据库文件的记录和字段LIST FILES 列出磁盘当前目录下的文件L I ST HISTORY 列出执行过的命令LIST MEMORY 列出当前内存变量及其值LIST STATUS 列出当前系统状态和系统参数LIST STRUCTURE 列出当前使用的数据库的库结构LOAD 将汇编语言程序从磁盘上调入内存LOCATE 将记录指针移动到对给定条件为真的记录上LOOP 跳过循环体内LOOP与ENDDO之间的所有语句,返回到循环体首行MENU TO 激活一组@...PROMPT命令定义的菜单MODIFY COMMAND 进入FoxBASE+系统的字处理状态,并编辑一个ASCII码文本文件(如果指定文件名以.PRG为后缀,则编辑一个FoxBASE+命令文件)MODIFY FILE 编辑一个一般的ASCII码文本文件MODIFY LABEL 建立并编辑一个标签(.LBL)文件MODIFY REPORT 建立并编辑一个报表格式文件(.FRM)文件MODIFY STRUCTURE 修改当前使用的库文件结构NOTE/* 在命令文件(程序)中插入以行注释(本行不被执行)ON 根据指定条件转移程序执行OTHERWISE 在多重判断(DO CASE)中指定除给定条件外的其它情况PACK 彻底删除加有删除标记的记录PARAMETERS 指定子过程接受主过程传递来的参数所存放的内存变量PRIVATE 定义内存变量的属性为局部性质PROCEDURE 一个子过程开始的标志PUBLIC 定义内存变量为全局性质QUIT 关闭所有文件并退出FoxBASE+READ 激活GET语句,并正是接受在GET语句中输入的数据RECALL 恢复用DELETE加上删除标记的记录REINDEX 重新建立正在使用的原有索引文件RELEASE 清楚当前内存变量和汇编语言子程序RENAME 修改文件名REPLACE 用指定的数据替换数据库字段中原有的内容REPORT FORM 显示数据报表RESTORE FROM 从内存变量文件(.MEM)中恢复内存变量RESTORE SCREEN 装载原来存储过的屏幕映象RESUME 使暂停的程序从暂停的断点继续执行RETRY 从当前执行的子程序返回调用程序,并从原调用行重新执行RETURN 结束子程序,返回调用程序RUN/!在FoxBASE+中执行一个操作系统程序SAVE TO 把当前内存变量及其值存入指定的磁盘文件(.MEM)SAVE SCREEN 将当前屏幕显示内容存储在指定的内存变量中SCATTER 将当前数据库文件中的数据移到指定的数组中 SEEK 将记录指针移到第一个含有与指定表达式相符的索引关键字的记录SELECT 选择一个工作区SET 设置FoxBASE+控制参数SET ALTERNATE ON/OFF 设置传送/不传送输出到一个文件中SET ALTERNATE TO 建立一个存放输出的文件SET BELL ON/OFF 设置输入数据时响铃/不响铃SET CARRY ON/OFF 设置最后一个记录复制/不复制到添加的记录中 SET CENTURY ON/OFF 设置日期型变量要/不要世纪前缀SET CLEAR ON/OFF 设置屏幕信息能/不能被清除SET COLOR ON/OFF 设置彩色/单色显示SET COLOR TO 设置屏幕显示色彩SET CONFIRM ON/OFF 设置在全屏幕编辑方式中,要求/不要求自动跳到下一个字段 SET CONSOLE ON/OFF 设置将输出传送/不传送到屏幕SET DATE 设置日期表达式的格式SET DEBUG ON/OFF 设置传送/不传送ECHO的输出到打印机上SET DECIMALS TO 设置计算结果需要显示的小数位数SET DEFAULT TO 设置默认的驱动器SET DELETED ON/OFF 设置隐藏/显示有删除标记的记录SET DELIMITER TO 为全屏幕显示字段和变量设置定界符SET DELIMITER ON/OFF 选择可选的定界符SET DEVICE TO SCREEN/PRINT 将@...SAY命令的结果传送到屏幕/打印机 SET DOHISTORY ON/OFF 设置存/不存命令文件中的命令到历史记录中SET ECHO ON/OFF 命令行回送到屏幕或打印机SET ESCAPE ON/OFF 允许ESCAPE退出/继续命令文件的执行SET EXACT ON/OFF 在字符串的比较中,要求/不要求准确一致SET EXACLUSIVE ON/OFF 设置数据库文件的共享SET FIELDS ON/OFF 设置当前打开的数据库中部分/全部字段为可用SET FIELDS TO 指定打开的数据库中可被访问的字段SET FILTER TO 在操作中将数据库中所有不满足给定条件的记录排除SET FIXED ON/OFF 固定/不固定显示的小数位数SET FORMAT TO 打开指定的格式文件SET FUNCTION 设置F1-F9功能键值SET HEADING ON/OFF 设置LIST或DISPLAY时,显示/不显示字段名SET HELP ON/OFF 确定在出现错误时,是否给用户提示SET HISTORY ON/OFF 决定是/否把命令存储起来以便重新调用SET HISTORY TO 决定显示历史命令的数目SET INDEX TO 打开指定的索引文件SET INTENSITY ON/OFF 对全屏幕操作实行/不实行反转显示SET MARGIN TO 设置打印机左页边SET MEMOWIDTH TO 定义备注型字段输出宽度和REPORT命令隐含宽度SET MENU ON/OFF 确定在全屏幕操作中是否显示菜单SET MESSAGE TO 定义菜单中屏幕底行显示的字符串SET ODOMETER TO 改变TALK命令响应间隔时间SET ORDER TO 指定索引文件列表中的索引文件SET PATH TO 为文件检索指定路径SET PRINT ON/OFF 传送/不传送输出数据到打印机S ET PRINTER TO 把打印的数据输送到另一种设备或一个文件中SET PROCEDURE TO 打开指定的过程文件SET RELATION TO 根据一个关键字表达式连接两个数据库文件SET SAFETY ON/OFF 设置保护,在重写文件时提示用户确认SET SCOREBORAD ON/OFF 设置是/否在屏幕的第0行上显示FoxBASE+的状态信息SET STATUS ON/OFF 控制是/否显示状态行SET STEP ON/OFF 每当执行完一条命令后,暂停/不暂停程序的执行SET TALK ON/OFF 是否将命令执行的结果传送到屏幕上SET TYPEAHEAD TO 设置键盘缓冲区的大小SET UNIQUE ON/OFF 在索引文件中出现相同关键字的第一个/所有记录SKIP 以当前记录指针为准,前后移动指针SORT TO 根据数据库文件的一个字段或多个字段产生一个排序的哭文件STORE 赋值语句SUM 计算并显示数据库记录的一个表达式在某范围内的和SUSPEND 暂停(挂起)程序的执行TEXT...ENDTEXT 在屏幕上当前光标位置显示...的文本数据块TOTAL TO 对预先已排序的文件产生一个具有总计的摘要文件TYPE 显示ASCII码文件的内容UNLOCK 解除当前库文件对记录和文件的加锁操作UPDATE 允许对一个数据库进行成批修改USE 带文件名的USE命令打开这个数据库文件。

Foxtable常用代码汇总

Foxtable常用代码汇总

Foxtable 常用代码汇总1 Col 打开列窗口With Tables(" 员工")、Cols(" 照片")、OpenWindow()、Cols(" 备注")、CloseWindow()End With 按钮或菜单2 Col 关闭列窗口With Tables(" 员工")、Cols(" 照片")、OpenWindow()、Cols(" 备注")、CloseWindow()End With 按钮或菜单3 Col 移动列到指定位置With Tables(" 订单")、Cols(" 日期")、Move(0)、Cols(" 客户")、Move(1)、Cols(" 产品")、Move(2)End With 按钮或菜单将日期、客户、产品移到前三列得位置4 Col 冻结列CurrentTable 、Cols、Frozen = 2 按钮或菜单冻结前两列5 Col 取消冻结列CurrentTable 、Cols 、Frozen = 0 按钮或菜单6 Col 从Table 中移除指定得列If Tables(" 订单")、Cols、Contains(" 折扣") ThenTables(”订单”)、Cols、Remove(” 折扣”)End If 按钮或菜单在订单表中移除折扣列7 Col 一次移除多列Tables(" 订单")、Cols、Remove(" 折扣"," 金额")按钮或菜单8 DataCol 锁定某表某列DataTables(" 订单")、DataCols(" 折扣")、AllowEdit = False 按钮或菜单9 DataCol 取消锁定某表某列DataTables(" 订单")、DataCols(" 折扣")、AllowEdit = True 按钮或菜单10 DataCol 动态地修改表达式列得计算公式DataTables(" 订单")、DataCols(" 金额")、Expression =" 数量* 单价"DataTables(”订单")、DataCols(” 金额”)、Expression ="数量* 单价* (1 -折扣)" 按钮或菜单Expression 属性只对表达式列有效11 DataCol 返回列得名称For Each dc As DataCol In DataTables(" 订单")、DataCols Output 、Show(dc 、Name)Next 按钮或菜单列出订单表中所有列得名称12 DataCol 增加临时列,并可给临时列设置表达式DataTables(" 订单")、DataCols 、Add(" 金额", GetType (Double), "[数量] * [单价] * (1 - [折扣])")按钮或菜单通过代码增加得临时列,在重新打开项目文件后,将不复存在13 DataCol 删除临时列If DataTables(" 订单")、DataCols、Contains(" 金额") ThenDataTables(" 订单")、DataCols 、Delete(" 金额")End If 按钮或菜单通过Add 方法增加得临时列,可以用Delete 方法删除14 DataCol 一列设公式,另列得结果If e 、DataCol 、Name = " 第一列" ThenIf e、DataRow、IsNull(" 第一列") Thene、DataRow(" 第二列") = NothingElsee、DataRow(" 第二列") = Eval(e 、DataRow(" 第一列"),e、DataRow)End IfEnd IfDataColChanged 事件假定希望根据第一列输入得计算公式,在第二列得出计算结果With DataTables (" 订单 ") 、 DataRows24 DataTable 25 DataTable26 菜单 27 DataTable锁定表 DataTables ("订单")、AllowEdit = False按钮或菜单AllowEdit 属性取消锁定表DataTables ("订单")、AllowEdit = True 按钮或菜单AllowEdit 属性按回车键向下移动光标 DataTables ("订单")、EnterKeyActionDown = True 按钮或DataTableEnterKeyActionDown 属性在 DataTable 中增加一行, Dim dr As DataRow 按钮或菜单 其实我们很少直接向 保存数据 DataTables (”订单")、Save ()按钮或菜单 单保存数据 同时保存数据与设置 DataTables (" 订单 ") 、 Save (True ) 按钮或菜单 保存设置比 15 DataRow 删除行 DataTables (" 订单 ") 、DataRows (0) 、 Delete () 按 钮或菜单 删除订单表中得第一 行 Delete 会返回逻辑值,如果删除成功,则返回 True ,否则返回 False16 DataRow 重新加载行 DataTables (" 订单") 、 DataRows (1) 、Load () 按钮或菜单 重新加载订单表 得第二行17 DataRow 撤销修改 DataTables (" 订单") 、 DataRows (1) 、Load (False ) 按钮或菜单 撤销对订单表第二行得修改18 DataRowDataTable 中增加一行 With DataTables (" 订单 ") 、 DataRows 、 AddNew () ' 增加一行 End With 按钮或菜单19 DataRow 删除指定位置得行 、Delete (0) ' 删除第一行End With 按钮或菜单20 DataRow 清除所有行 With DataTables (" 单 ") 、 DataRows 、Delete (0) ' 删除第一行 End With 按钮或菜单21 DataRow 按日期列求月份 Dim dr As DataRow =e 、 DataRow if e 、 DataCol 、Name =" 开始时间 " Thenif dr 、 IsNull (" 开始时间 ") = false Thendr (” 月 ”)=dr (” 开始时间 ”)、Mon th Elsedr (" 月 ") = NothingEnd IfEnd If 表 DataColChanged 事件 22 DataRow 新增行编号自动加1e 、DataRow (” 编号")=e 、DataTable 、Compute ("Max (编号)")+ 1DataRowAdding 事件 假定表中有一个编号列,希望新增行得时候,编号列能够自动加1 这个例子其实没有什么意义得,对于外部表使用自动增量主键列,对于内部表使用表达式列引用内部编 号列 “_Identidy 就”是,更好得选择。

Foxtable(狐表)使用指南

Foxtable(狐表)使用指南

狐表使用指南关于菜单绝大多数的日常操作都是通过菜单来完成的,所以我们首先介绍一下Foxtable的菜单。

一、菜单的构成Foxtable的菜单和传统的菜单有所不同,它是由功能区组成的。

系统菜单默认包括日常工作、数据表、管理项目、打印输出、杂项等五个功能区;而每一个功能区又是由功能组构成的,例如日常工作这个功能区,包含剪贴板、数据、排序与筛选、数据统计、编辑、窗口等功能组;通过功能区和功能组,我们可以将各种按钮按照功能分类,有序地组合起来。

除了功能区外,菜单还包括程序菜单,快速访问栏和配置栏,如下图所示:单击"文件"按钮会出现程序菜单,程序菜单包括与文件和打印相关的命令:配置栏位于窗口的右上角:初次使用,您可能会对这种风格的菜单布局感到不适应,其实这种风格是一种趋势,越来越多的软件会采用;相信你习惯之后,肯定会感到这样的布局其实是非常方便的;例如当你完成一个管理项目的设计工作后,之后录入数据、查询、筛选、统计、打印报表等几乎所有的日常工作,都可以在菜单的日常工作区完成,无需像传统的菜单那样,需要反复选择不同的菜单。

二、按钮的类型按钮分为三种类型:1、标准按钮绝大部分按钮都是标准按钮,单击标准按钮即可执行某一项操作,例如复制、剪切、粘贴等按钮。

2、下拉按钮单击下拉按钮将出现一个下拉菜单,用以选择具体的操作,例如功能组“排序与筛选”中的“表视图”按钮。

3、组合按钮组合按钮其实就是标准按钮和下拉按钮的组合,组合按钮分成两部分,单击上半部分会立即执行某项操作,而单击下半部分,将出现一个下拉菜单,用以选择更多的类似操作。

例如“数据”功能组中的“增加行”按钮,就是一个组合按钮,单击按钮的上半部分,将直接增加一行,而单击按钮的下半部分,将出现一个下拉菜单,用以选择是增加一行还是增加多行,如下图所示:之所以专门介绍一下按钮的种类,是因为不少用户会忽略组合按钮所包含的下拉菜单,而这些下拉菜单中有不少功能是相当重要的。

Foxpro数据库命令汇总

Foxpro数据库命令汇总

Foxpro数据库命令汇总Foxpro数据库命令汇总说明:1.格式说明:[ ] 方括号中的项目是任选项,根据不同情况,有时可省略。

…删节号跟在那个项目后面,表示该项目可继续重复多次2.使用说明:(1)命令动词后面的短语(如范围、条件、字段名表等)可按任意顺序排列,但短语之间至少由一个空格分割(2)命令短语中可任意使用大小写字母,命令中使用的字符(如逗号,引号,空格等)只能使用英文半角的字符。

(3)每行最多书写一条命令(4)每条命令可以只使用前面的四个字母。

(5)命令中有用的范围的,[范围]有通用的以下四种情况。

⑴All:全部记录;⑵Next n:指从当前记录开始向下的n个记录;⑶Record n:第n条记录;⑷Rest:从当前记录开始到最后一条记录为止;一、第二节:1、Clear:清除工作区的内容(菜单:Windows→Clear)2、Quit:退出Foxpro系统(菜单:File→Exit)====================================== ==================二、第二节3、Creat:建立数据库(菜单:File→New菜单下选择Table/DBF)格式:Creat 库文件名说明:文件名的扩展名(.dbf)可省略,默认文件名为Untitled.dbf4、Use:打开/关闭数据库。

格式:Use 库文件名:打开数据库(菜单:File→Open)Use:关闭数据库。

5、Append :追加记录(菜单:Record→Appe nd)命令格式:Append [blank]功能:在数据库尾部添加记录说明:[blank]的作用是在库尾部添加一空白记录,不进入全屏幕编辑窗口,如果不加blank,添加记录时会出现一个新的编辑窗口,让我们输入记录的数据。

========================================================三、第四节:6、查看和修改数据库的结构。

FOXBASE数据库的基本操作

FOXBASE数据库的基本操作

FOXBASE数据库的基本操作数据库的建立和显示1.建立数据库结构*建立库结构的命令CREATE格式CREATE <驱动器号> <路径> <库文件名> <文件扩展名>功能在磁盘上建立一个库结构执行该命令后,进入全屏幕编辑状态。

用户一般可以编辑每一个字段的4个特征值。

它们是,字段名称由汉字、字母、数字、和下划线组成,长度不超过10个字符,以汉字或字母开始的的字串字段类型可以是N、C、L、D、M中的任何一种。

系统的缺省值为C。

字段宽度L、D、M这三种类型的宽度是固定的,分别为1、8、10,C型的宽度可由用户在1-254之间定义,N型的宽度在1-19之间小数位数对于C型字段,小数位数可以在1-15之间定义,并且必须至少比该字段的宽度小22.输入数据库的记录*建立库结构之后立即输入在建立了数据库结构并存盘退出之前,系统提问是否立即输入记录数据。

若是,则键入“Y”,屏幕显示输入记录数据的屏幕。

在需要向备注字段输入内容时,当光标移到该字段上后,按下<CTRL+HOME>,则进入备注字段的全屏幕编辑状态。

可按一般文本编辑方式输入所需的内容。

之后,按<CTRL+END>返回先前的屏幕,可继续输入其它记录。

*事后向数据库中追加记录命令格式:APPEND [BLANK]功能:向当前数据库末尾追加记录。

若含有参数BLANK,则在数据库末尾追加一条空的记录并返回系统的“点状态”。

若不含BLANK参数,则进入记录编辑屏幕,可在末尾一条记录之后开始添加新的记录*退出输入记录状态(1)存盘退出1)在确信要终止记录输入并将正编辑的库文件存盘时,按<CTRL+W>或<CTRL+END>键。

2)当光标位于一新记录的首字段时,按回车即可。

(2)不存盘退出键入<ESC>或<CTRL+Q>。

*显示库结构命令格式:LIST|DISPLAY STRUCTURE [TO PRINT]功能:显示当前数据库的结构LIST:连续显示DISPLAY:分屏显示*显示库记录命令格式:LIST|DISPLAY [<范围>] [[FIELDS]<表达式表>] [FOR<条件>] [WHILE<条件>] [OFF] [TO PRINT]功能:显示当前数据库中指定范围内,满足条件的所有记录OFF:不显示记录号,系统默认为显示记录号LIST:不分屏显示,且在无<范围>、<条件>参数时,默认是ALLDIAPLAY:分屏显示,且在无<范围>、<条件>参数时,默认显示当前一条记录打开和关闭数据库1.选择工作区命令格式:SELECT <工作区号>|<工作区明>|<别名>功能:选定一个工作区为当前工作区FOXBASR在内存中设置了10个工作区,每一个区中可以打开一个库文件,故可以同时打开10个库文件。

FoxBASE命令

FoxBASE命令

FoxBASE+基本命令一.数据库的基本操作1、CREATE [<数据库文件名>]2、USE [<数据库名> [ALIAS<别名>]]3、LIST STRUCTURE4、DISPLAY STRUCTURE5、RECSIZE()6、FCOUNT()7、MODIFY STRUCTURE8、APPEND [BLANK]9、INSERT [BEFORE] [BLANK]10、APPEND FROM <库文件名> [FIELDS <字段名清单>] [FOR<条件>]11、EDIT [<范围>] [FIELDS<字段名清单>] [FOR|WHILE<条件>]12、CHANGE[<范围>] [FIELDS<字段名清单>] [FOR|WHILE<条件>]13、REPLAVE [<范围>] <字段名1> WITH <表达式1> [,<字段名2> WITH <表达式2>,…] [FOR|WHILE<条件>]14、DELETE [<范围>] [FOR|WHILE<条件>]15、SET DELETE ON|OFF16、RECALL [<范围>] [FOR|WHILE<条件>]二.排序和索引1、SORT ON <字段名1> [</A>|</D>][/C] [,<字段名2> [</A>|</D>][/C],…] TO <库文件名> [<范围>][FIELDS<字段名清单>] [FOR|WHILE<条件>]2、LOCATE [<范围>] FOR|WHILE<条件>3、CONTINUE4、SET FILTR TO <条件>5、INDEX ON <数值表达式> TO <索引文件名> [UNIQUE]6、USE <数据库名> INDEX <索引文件名清单>7、SET INDEX TO <索引文件名清单>8、CLOSE INDEX9、SET INDEX TO10、REINDEX11、FIND <字符串>|<数字>12、SEEK <表达式>三、统计与汇总1、COUNT [<范围>] [FOR|WHILE<条件>[TO <内存变量>]]2、SUM [<范围>] [<表达式清单>] [TO <内存变量清单>] [FOR|WHILE<条件>]3、AVERAGE [<范围>] [<表达式清单>] [TO <内存变量清单>] [FOR|WHILE<条件>]4、TOTAL ON <关键字> TO <汇总库名>[<范围> [FIELDS<字段名清单>]][FOR|WHILE<条件>]四、多重数据库的操作1、SELECT <工作区>|<别名>|<0>2、SELSCT 03、SELECT STATUS4、CLOSE DATABASE5、SET RELATION TO [<关键字>|<数值表达式>|RECNO() INTO <别名>] [ADDITIVE6、SET RELATION TO7、CLOSE RELATION8、JOIN WITH <别名> TO <数据库文件名> FOR <条件> [FIELDS<字段名清单>]9、UPPER ON <关键字> FROM <别名> FOR <条件> REPLAVE <字段名1> WITH <表达式1> WITH <字段名1>[,<表达式2> WITH <字段名2,…> ]五、子程序和过程文件1、DO <子程序名> [WITH <参数清单>]2、SET PROCEDURE TO [<过程文件名> [,<过程文件名2>,…]] [ADDITIVE]3、SET PROCEDURE TO4、CLOSE PROCEDURE5、DO <程序名> [IN <文件名>] WITH <参数表>6、PARAMETERS <参数表>7、PUBILC8、PRIVATE六、格式化程序设计1、@<行1,列1>[CLEAR] [TO <行2,列2> [DOUBLE]]2、@<行,列> SAY <表达式>3、@<行,列> [SAY <表达式>] GET <变量> [RANGE <数值1>,<数值2>] [VALID <条件>]4、READ5、SET FORMAT TO <屏幕格式文件>七、数据库的维护1、COPY TO <数据库文件名> [<范围>] [FOR|WHILE <条件>][FIELDS<字段名清单>]2、COPY STRUCTURE TO <数据库文件名> [FIELDS<字段名清单>]3、COPY TO <数据库文件名> STRUCTURE EXTENDED4、CREATE [<数据库名>] FROM <结构描述文件>5、ERASE <文件名>6、DELETE FILE <文件名>7、LIST MEMORY [TO PRINT]8、DISPLAY MEMORY [TO PRINT]9、SAVE TO <内存变量文件名> [ALL LIKE|EXCEPT <内存变量结构>]10、RELEASE [<内存变量清单>][ALL LIKE|EXCEPT <内存变量结构>]11、RESTORE FROM <内存变量文件名> [ADDITIVE]。

FoxPro命令集锦

FoxPro命令集锦

FoxPro命令集锦FoxPro命令集锦[职称考试用] 一、创建数据表的结构命令1:CREATE [路径][表名]例子:在A盘创建GZ2数据表。

CREATE A:GZ2命令2:CREATE [新表名] FROM [旧表名]例子:在A盘由GZ1创建GZ3数据表。

CREATE A:GZ3 FROM A:GZ1二、表结构的显示命令:LIST STRUCTUREDISPLAY STRUCTURE例子:显示当前数据表在结构。

LIST STRUCTURE三、数据表的打开命令:USE 表名 [INDEX 索引文件名] [EXCLUSIVE] 例子:打开A盘GZ1数据表。

USE A:GZ1四、数据表的关闭命令:USECLOSE DATA例子:关闭当前打开的数据表。

USE五、表结构的修改命令:MODIFY STRUCTURE例子:修改当前数据表的结构。

MODIFY STRUCTURE六、表数据的输入命令:APPEND [BLANK]例子:向当前数据表追加数据。

APPEND七、表记录的显示命令:BROWSE [FIELDS 字段表][FOR 条件]LIST [范围][[FIELDS]字段表][FOR 条件]DISPLAY [范围][[FIELDS]字段表][FOR 条件]例子:显示当前表中“应发合计”大于1000元的记录的职工编号、姓名、应发合计三个字段。

BROWSE FIELDS 职工编号,姓名,应发合计 FOR 应发合计>1000LIST 职工编号,姓名,应发合计 FOR 应发合计>1000八、用复制方法建新表命令:COPY TO 新表名 [范围][FIELDS 字段表][FOR 条件]例子:把当前表中“应发合计”大于1000元的记录复制到新数据表GZ2中。

COPY TO A:GZ2 FOR 应发合计>1000九、从其他表取数据命令:APPEND FROM 表名 [FOR 条件]例子:把GZ1表中“应发合计”大于1000的记录复制到当前的表后面。

中文FOXBASE命令集

中文FOXBASE命令集

中文FOXBASE命令集? 在下一行显示表达式串?? 在当前行显示表达式串@... 将数据按用户设定的格式显示在屏幕上或在打印机上打印ACCEPT 把一个字符串赋给内存变量APPEND 给数据库文件追加记录APPEND FROM 从其它库文件将记录添加到数据库文件中AVERAGE 计算数值表达式的算术平均值BROWSE 全屏幕显示和编辑数据库记录CALL 运行内存中的二进制文件CANCEL 终止程序执行,返回圆点提示符CASE 在多重选择语句中,指定一个条件CHANGE 对数据库中的指定字段和记录进行编辑CLEAR 清洁屏幕,将光标移动到屏幕左上角CLEAR ALL 关闭所有打开的文件,释放所有内存变量,选择1号工作区 CLEAR FIELDS 清除用SET FIELDS TO命令建立的字段名表CLEAR GETS 从全屏幕READ中释放任何当前GET语句的变量CLEAR MEMORY 清除当前所有内存变量CLEAR PROGRAM 清除程序缓冲区CLEAR TYPEAHEAD 清除键盘缓冲区CLOSE 关闭指定类型文件CONTINUE 把记录指针指到下一个满足LOCATE命令给定条件的记录,在LOCATE命令后出现。

无LOCATE则出错COPY TO 将使用的数据库文件复制另一个库文件或文本文件COPY FILE 复制任何类型的文件COPY STRUCTURE EXTENED TO 当前库文件的结构作为记录,建立一个新的库文件COPY STRUCTURE TO 将正在使用的库文件的结构复制到目的库文件中COUNT 计算给定范围内指定记录的个数CREATE 定义一个新数据库文件结构并将其登记到目录中CREATE FROM 根据库结构文件建立一个新的库文件CREATE LABEL 建立并编辑一个标签格式文件CREATE REPORT 建立宾编辑一个报表格式文件DELETE 给指定的记录加上删除标记DELETE FILE 删除一个未打开的文件DIMENSION 定义内存变量数组DIR 或 DIRECTORY 列出指定磁盘上的文件目录DISPLAY 显示一个打开的库文件的记录和字段DISPLAY FILES 查阅磁盘上的文件DISPLAY HISTORY 查阅执行过的命令DISPLAY MEMORY 分页显示当前的内存变量DISPLAY STATUS 显示系统状态和系统参数DISPLAY STRUCTURE 显示当前书库文件的结构DO 执行FoxBase程序DO CASE 程序中多重判断开始的标志DO WHILE 程序中一个循环开始的标志EDIT 编辑数据库字段的内容EJECT 使打印机换页的命令,将PROW()函数和PCOL()函数值置为0ELSE 在IF...ENDIF结构中提供另一个条件选择路线ENDCASE 终止多重判断ENDDO 程序中一个循环体结束的标志ENDIF 判断体IF...ENDIF结构结束标志ERASE 从目录中删除指定文件EXIT 在循环体内执行退出循环的命令FIND 将记录指针移动到第一个含有与给定字符串一致的索引关键字的记录上FLUSH 清除所有的磁盘存取缓冲区GATHER FROM 将数组元素的值赋予数据库的当前记录中GO/GOTO 将记录指针移动到指定的记录号HELP 激活帮助菜单,解释FoxBASE+的命令IF 在IF...ENDIF结构中指定判断条件INDEX 根据指定的关键词生成索引文件INPUT 接受键盘键入的一个表达式并赋予指定的内存变量INSERT 在指定的位置插入一个记录JOIN 从两个数据库文件中把指定的记录和字段组合成另一个库文件KEYBOARD 将字符串填入键盘缓冲区LABEL FROM 用指定的标签格式文件打印标签LIST 列出数据库文件的记录和字段LIST FILES 列出磁盘当前目录下的文件LIST HISTORY 列出执行过的命令LIST MEMORY 列出当前内存变量及其值LIST STATUS 列出当前系统状态和系统参数LIST STRUCTURE 列出当前使用的数据库的库结构LOAD 将汇编语言程序从磁盘上调入内存LOCATE 将记录指针移动到对给定条件为真的记录上LOOP 跳过循环体内LOOP与ENDDO之间的所有语句,返回到循环体首行MENU TO 激活一组@...PROMPT命令定义的菜单MODIFY COMMAND 进入FoxBASE+系统的字处理状态,并编辑一个ASCII码文本文件(如果指定文件名以.PRG为后缀,则编辑一个FoxBASE+命令文件)MODIFY FILE 编辑一个一般的ASCII码文本文件MODIFY LABEL 建立并编辑一个标签(.LBL)文件MODIFY REPORT 建立并编辑一个报表格式文件(.FRM)文件MODIFY STRUCTURE 修改当前使用的库文件结构NOTE/* 在命令文件(程序)中插入以行注释(本行不被执行)ON 根据指定条件转移程序执行OTHERWISE 在多重判断(DO CASE)中指定除给定条件外的其它情况PACK 彻底删除加有删除标记的记录PARAMETERS 指定子过程接受主过程传递来的参数所存放的内存变量PRIVATE 定义内存变量的属性为局部性质PROCEDURE 一个子过程开始的标志PUBLIC 定义内存变量为全局性质QUIT 关闭所有文件并退出FoxBASE+READ 激活GET语句,并正是接受在GET语句中输入的数据RECALL 恢复用DELETE加上删除标记的记录REINDEX 重新建立正在使用的原有索引文件RELEASE 清楚当前内存变量和汇编语言子程序RENAME 修改文件名REPLACE 用指定的数据替换数据库字段中原有的内容REPORT FORM 显示数据报表RESTORE FROM 从内存变量文件(.MEM)中恢复内存变量RESTORE SCREEN 装载原来存储过的屏幕映象RESUME 使暂停的程序从暂停的断点继续执行RETRY 从当前执行的子程序返回调用程序,并从原调用行重新执行RETURN 结束子程序,返回调用程序RUN/!在FoxBASE+中执行一个操作系统程序SAVE TO 把当前内存变量及其值存入指定的磁盘文件(.MEM)SAVE SCREEN 将当前屏幕显示内容存储在指定的内存变量中SCATTER 将当前数据库文件中的数据移到指定的数组中SEEK 将记录指针移到第一个含有与指定表达式相符的索引关键字的记录 SELECT 选择一个工作区SET 设置FoxBASE+控制参数SET ALTERNATE ON/OFF 设置传送/不传送输出到一个文件中SET ALTERNATE TO 建立一个存放输出的文件SET BELL ON/OFF 设置输入数据时响铃/不响铃SET CARRY ON/OFF 设置最后一个记录复制/不复制到添加的记录中SET CENTURY ON/OFF 设置日期型变量要/不要世纪前缀SET CLEAR ON/OFF 设置屏幕信息能/不能被清除SET COLOR ON/OFF 设置彩色/单色显示SET COLOR TO 设置屏幕显示色彩SET CONFIRM ON/OFF 设置在全屏幕编辑方式中,要求/不要求自动跳到下一个字段SET CONSOLE ON/OFF 设置将输出传送/不传送到屏幕SET DATE 设置日期表达式的格式SET DEBUG ON/OFF 设置传送/不传送ECHO的输出到打印机上SET DECIMALS TO 设置计算结果需要显示的小数位数SET DEFAULT TO 设置默认的驱动器SET DELETED ON/OFF 设置隐藏/显示有删除标记的记录SET DELIMITER TO 为全屏幕显示字段和变量设置定界符SET DELIMITER ON/OFF 选择可选的定界符SET DEVICE TO SCREEN/PRINT 将@...SAY命令的结果传送到屏幕/打印机 SET DOHISTORY ON/OFF 设置存/不存命令文件中的命令到历史记录中SET ECHO ON/OFF 命令行回送到屏幕或打印机SET ESCAPE ON/OFF 允许ESCAPE退出/继续命令文件的执行SET EXACT ON/OFF 在字符串的比较中,要求/不要求准确一致SET EXACLUSIVE ON/OFF 设置数据库文件的共享SET FIELDS ON/OFF 设置当前打开的数据库中部分/全部字段为可用SET FIELDS TO 指定打开的数据库中可被访问的字段SET FILTER TO 在操作中将数据库中所有不满足给定条件的记录排除SET FIXED ON/OFF 固定/不固定显示的小数位数SET FORMAT TO 打开指定的格式文件SET FUNCTION 设置F1-F9功能键值SET HEADING ON/OFF 设置LIST或DISPLAY时,显示/不显示字段名SET HELP ON/OFF 确定在出现错误时,是否给用户提示SET HISTORY ON/OFF 决定是/否把命令存储起来以便重新调用SET HISTORY TO 决定显示历史命令的数目SET INDEX TO 打开指定的索引文件SET INTENSITY ON/OFF 对全屏幕操作实行/不实行反转显示SET MARGIN TO 设置打印机左页边SET MEMOWIDTH TO 定义备注型字段输出宽度和REPORT命令隐含宽度SET MENU ON/OFF 确定在全屏幕操作中是否显示菜单SET MESSAGE TO 定义菜单中屏幕底行显示的字符串SET ODOMETER TO 改变TALK命令响应间隔时间SET ORDER TO 指定索引文件列表中的索引文件SET PATH TO 为文件检索指定路径SET PRINT ON/OFF 传送/不传送输出数据到打印机SET PRINTER TO 把打印的数据输送到另一种设备或一个文件中SET PROCEDURE TO 打开指定的过程文件SET RELATION TO 根据一个关键字表达式连接两个数据库文件SET SAFETY ON/OFF 设置保护,在重写文件时提示用户确认SET SCOREBORAD ON/OFF 设置是/否在屏幕的第0行上显示FoxBASE+的状态信息SET STATUS ON/OFF 控制是/否显示状态行SET STEP ON/OFF 每当执行完一条命令后,暂停/不暂停程序的执行SET TALK ON/OFF 是否将命令执行的结果传送到屏幕上SET TYPEAHEAD TO 设置键盘缓冲区的大小SET UNIQUE ON/OFF 在索引文件中出现相同关键字的第一个/所有记录SKIP 以当前记录指针为准,前后移动指针SORT TO 根据数据库文件的一个字段或多个字段产生一个排序的哭文件STORE 赋值语句SUM 计算并显示数据库记录的一个表达式在某范围内的和SUSPEND 暂停(挂起)程序的执行TEXT...ENDTEXT 在屏幕上当前光标位置显示...的文本数据块TOTAL TO 对预先已排序的文件产生一个具有总计的摘要文件TYPE 显示ASCII码文件的内容UNLOCK 解除当前库文件对记录和文件的加锁操作UPDATE 允许对一个数据库进行成批修改USE 带文件名的USE命令打开这个数据库文件。

FOXBASE菜单命令的使用

FOXBASE菜单命令的使用

RE AD
M ENU
BA R
TO
(i)
BA R
<数组 名 >
,
( 变量
l
)
,
<变 量 2 > 〔 S A V E 〕
,
< 数值 N ) 该 命 令 建 立 下 拉 屏 幕 顶 行菜 单 即主
该 命 令激 活 下 拉 菜 单 其 中 < 变 量 的 值 V A R I 对应 第 V A 量2 >
4

1
SE T SE T
TA LK
OF F
@
一2
,
30
,
P ROM

工 资 打印
退 出 系统

S TA T U
OF F
2 0
回 13
DO
30
PROM
`

SE T M E SS T O SE T S CO R O FF
M EN U T O S
CASE
l
SE T SE T
TA LK
DE F A
OF F
T O S CR E
S
二2
05
, ,

,
…… 二
,


唐山 教 育 学 院 工
DO
GZHZ CASE S= 5
18
SAY
.

.
.
.
.
……



DO
D YG ZI C AS E S 二 6
@ 回
30 30
PROM p RO入 I P ROM P ROM
`
工 资加 入
QU I T

FOXBASE2.10参考手册

FOXBASE2.10参考手册

7.2 @<行,列> BOX 格式:@<行 1,列 1>,<行 2,列 2> BOX [<字符串>] 说明:表示以<行 1,列 1>为左上角,以<行 2,列 2>为右下角画一方框,如行坐标相同,则画一水
平线;如列坐标相同,则画一垂直线。[字符串]最多由 9 个不同的字符组成,前面 8 个字符依次用于 方框的左上角,上边,右上角,右边线,右下角,下边线,右下角,下边线,左下角,左边线,第 9 个 字符用于填充方框内。如果省略[字符串],则画一单线框。
号或驱动器名开始的,例如:
SET PATH TO \LXK\FOX
SET PATH TO .
SET PATH TO E:
SET PATH TO E:\LXK\FOX\;C: 相对路径名则是直接用目录名表示的,如:
SET PATH TO LXK 由 FoxBASE+处理成:SET PATH TO .\LXK 这一路径支持法则适用于检索现存的各文件,仅仅在 DIR 命令中例外。因为 DIR 命令只检索默认 驱动器的当前目录,除非提供一个指明路径的文件名(可以带通配符)。新建一个文件时,PATH 不会起 作用,FoxBASE+总是将该文件置于默认驱动器的当前目录中;如果在文件名中标出了全路径名,则置 于该路径所指出的目录中。
字符串最多由9个不同的字符组成前面8个字符依次用于方框的左上角上边右上角右边线右下角下边线右下角下边线左下角左边线第9个字符用于填充方框内
1. <别名> FoxBASE+有 10 个工作区,数字编号为 1~10,字母编号为 A~J,每个工作区只能打开一个数据库,
而且用户某一时刻只能在一个工作区上操作,称为主工作区或当前工作区。系统启动后,FoxBASE+自 动选择第 1 个工作区作为主工作区,之后可用 SELECT……命令选择其他工作区作为主工作区,当用 USE……ALIAS……命令打开数据库时,区名可用别名表示。

foxbase系统状态和环境的设置

foxbase系统状态和环境的设置

系统状态和环境的设置一、设置开关状态设置系统开关状态的命令格式为:SET 〈状态参数〉ON|OFF这种形式的SET 设置相当于双向开关,ON为开启状态,OFF为关闭状态。

1、设置字符串精确匹配:SET EXACT OFF|ON系统默认为OFF状态,用“=”对字符串进行比较时,比较到等号右面的字符串结束即终止,如果匹配,则结果为真。

当设置为ON时,被比较的两个字符串必须完全相同。

2、设置删除开关:SET DELETED OFF|ON(1)设置为OFF时,删除标记*失效,被逻辑删除的记录参与其他命令的操作,系统初态默认为OFF(2)设置为ON时,删除标记*生效,操作命令忽略被逻辑删除的记录。

此时,这些记录除占有原记录号之外,如同不存在。

(3)以下两种情况除外:无论SET DELETED 处于何种状态,如果命令中用记录号指定的记录带*号,此记录仍然参加操作。

记录索引和重新索引命令总是包括所有物理上存在的记录。

3、会话开关:SET TALK OFF|ON(1)系统默认为ON,以便在圆点提示符下随时获得命令执行如果。

命令执行结果在屏幕上反馈显示,如变量赋值,排序或索引的记录个数等。

(2)设置为OFF状态时,命令执行结果不在屏幕上反馈显示,为避免命令响应信息干扰正常输出信息,常在程序开关把TALK 设置为OFF,使得程序执行时屏幕界面整洁。

4、携带记录开关:SET CARRY OFF|ON(1)在用APPEND、BROWSE 命令以全屏幕编辑方式向数据库追加记录时,决定是否把最后一个记录的内容复制到新追加的记录中,ON表示复制,当输入的记录有些字段相同或相近时,可以减少数据输入的工作量,OFF为系统默认值,表示不复制。

(2)在用INSERT命令以全屏幕编辑方式向数据库插入记录时,决定是否把当前记录的内容复制到新插入的记录中。

(3)复制的记录并不自动生效,如果对复制的记录不作任何修改而直接按回车键,由于数据库中不应有重复记录,系统不保存该记录。

中文FOXBASE命令集

中文FOXBASE命令集
状态信息
SET STATUS ON/OFF
控制是/否显示状态行
SET STEP ON/OFF
每当执行完一条命令后,暂停/不暂停程序的执行
SET TALK ON/OFF
是否将命令执行的结果传送到屏幕上
SET TYPEAHEAD TO
设置键盘缓冲区的大小
SET UNIQUE ON/OFF
LIST MEMORY
列出当前内存变量及其值
LIST STATUS
列出当前系统状态和系统参数
LIST STRUCTURE
列出当前使用的数据库的库结构
LOAD
将汇编语言程序从磁盘上调入内存
LOCATE
将记录指针移动到对给定条件为真的记录上
LOOP
跳过循环体内LOOP与ENDDO之间的所有语句,返回到循环体首行
中文FOXBASE命令集
目录
命令
简要说明
?
在下一行显示表达式串
??
在当前行显示表达式串
@...
将数据按用户设定的格式显示在屏幕上或在打印机上打印
ACCEPT
把一个字符串赋给内存变量
APPEND
给数据库文件追加记录
APPEND FROM
从其它库文件将记录添加到数据库文件中
AVERAGE
计算数值表达式的算术平均值
把记录指针指到下一个满足LOCATE命令给定条件的记录,在LOCATE命令后出现。无LOCATE则出错
COPY TO
将使用的数据库文件复制另一个库文件或文本文件
COPY FILE
复制任何类型的文件
COPY STRUCTURE EXTENED TO
当前库文件的结构作为记录,建立一个新的库文件

foxpro数据库命令总结

foxpro数据库命令总结

foxpro数据库命令总结2010-12-13 20:54:50| 分类:软件URL | 标签:|字号大中小订阅数据库和数据表典型及重点操作方式create datebase <数据库名> 建立数据库modi datebase <数据库名> 修改数据库crea <数据表> 建立数据表modify structure 修改数据表结构use <数据表名> 打开数据表append [blank] 追加数据list stru 显示数据表结构skip [<数值表达式>] 记录指针的相对定位insert blank 插入空白记录delete [<范围>] [for<条件>] 对记录作删除标记recall [范围>] [for<条件>] 取消删除标记即恢复记录browse [fields<字段名表>] [nodelete] [nomodify][partition <数值表达式>] 浏览修改数据replase范围>] <字段名1> with <表达式> [for <条件>] 记录的替换count [<范围>] [for<条件>] [to <内存变量>] 记录个数计算sum [<范围>] [<数值型表达式>] [for <条件>] [to <内存变量表>] 库字段的求和edit for <条件> 纵向编辑或修改brow noappe noedit 不能向数据库中添加记录brow nodelete nomodify既不能加上也不能去掉记录的删除标记brow lock <数值表达式> 数据库中前面的几个字段被锁定brow partition <数值表达式> [redit ledit]将浏览窗口分成两个窗口brow font '宋体' ,18 part 30 redit 改变字体大小分割纵横两个窗口calc sum(数学),sum(foxpro) to a1,a2 统计数学和数据库的总和 (提示:限制性的短语用在命令动词后时,不分前后顺序)●copy stru to <数据库文件名> [fields <字段名表>] 数据库结构的复制copy to <文件名> sdf for <条件> [fiel <字段名表>] 生成文本●移除备注文件的数据Delete record 4Pack memo●appe from <未打开的库文件> [for <条件>] [fiel <字段名表>]合并(链接)到当前数据库的末尾●index on <索引表达式> to <索引文件名> [for <条件>]索引文件的建立loca [<范围>] [for <条件>] 数据库的查询●按钮隐藏与显示:if this.caption="追加记录"mand2.visible=.t.this.caption="继续追加"elsemand2.visible=.t.this.caption="追加记录"endifappe blanTHISFORM.CONTAINER1.TXT序号.setfocusthisform.refresh●设定显示范围:Record <n> 指定一个记录Next <n> 目前记录指针所指的以下数个记录Rest <n> 目前记录指针所指的以下所有记录All 数据表中所有的记录●储存数据的各种类型,使用replace 命令时,必须注意其类型Repl str with "amipro 中文版" 字符串Repl num with 100 数值Repl price with $ 100 货币Repl day with {07/06/2007} 日期Repl dt with {10/10/2006 12:33} 日期时间Repl log with .f. 逻辑Repl note with "备注数据" 备注字段与字符串相同repl 工龄年数 with subs(工龄年数,3,5) all *从第三个截取,保留5个字符,意在获得有用的数据,删除空格或多余的数据。

foxbase命令集合

foxbase命令集合

FOXBASE+命令全集一.数据库相关的命令1.退出命令:格式:QUIT 功能:退出 FOXBASE+系统。

2.建立数据库:格式:CREATE <数据库文件名> 功能:建立数据库文件3.显示数据结构:格式:LIST STRUCTURE 或DISPLAY STRUCTURE 功能:显示当前库的结构。

4.修改数据库结构:格式:MODIFY STRUCTURE 功能:修改数据库结构。

5.打开数据库:格式:USE [数据库文件名[ALIAS<别名>]]6.追加记录:APPEND [BLANK]7.插入记录:INSERT [BEFORE][BLANK]8.从文件追加记录:APPEND FROM <数据库文件名>[FOR<条件>][FIELDS<字段名清单>][范围]9.显示记录:LIST [范围][FOR |WHILE<条件>][FIELDS<字段名清单>][OFF][TO PRINT]DISPLAY [范围][FOR |WHILE<条件>][FIELDS<字段名清单>][OFF][TO PRINT]10.记录指针移动:绝对移动:GO|GOTO <数值表达式> |TOP |BOTTOM相对移动:SKIP [数值表达式]11.修改记录:EDIT [范围][FIELDS<字段名清单>][FOR|WHILE<条件>]GHANGE [范围] [FIELDS<字段名清单>] [FOR|WHILE<条件>]REPLACE [范围]< 字段名1> WITH <表达式1>。

[FOR|WHILE<条件>]BROWSE [FIELDS<字段清单>][LOCK<数值表达式>][FREEZE<字段名>] [NOMENU] [NOAPPEND] [NOMODIFY] [WIDTH<数值表达式>] [NOFOLLOW]12.逻辑删除记录:DELETE [范围][FOR|WHILE< 条件>]13.恢复记录:RECALL [范围][FOR|WHILE< 条件>]14.物理删除:PACK15.全部物理删除:ZAP16.设置删除标记生效或无效:SET DELETE ON |OFF17.记录值送数组:SCATTER TO < 数组名>[FIELDS<字段名清单>]18.数组值送记录:GATHET FROM <数组名>[FIELDS<字段名清单>]19.建立排序文件:SORT ON 字段名1[/A/D/C],字段名2 [ /A/D/C]。

foxpro命令完整说明

foxpro命令完整说明

foxpro命令完整说明一、内存变量常用命令一赋值STORE <表达式>TO <变量名表><内存变量名>=<表达式>二显示LIST|DISPLAY MEMORY [LIKE<通配符>] [TO PRINTER[PROMPT]|TO FILE<文本文件名>]三清除CLEAR MEMORYRELEASE <变量名表>RELEASE ALL [LIKE<通配符>|EXCEPT<通配符>]四保存SAVE TO <内存变量文件名>[ALL LIKE|EXCEPT<通配符>]五恢复RESTORE FROM <内存变量文件名> [ADDITIVE]二、表结构操作命令一创建表CREATE <表名>二修改结构MODIFY STRUCTURE三显示结构LIST|DISPLAY STRUCTURE [TO PRINTER[PROMPT]|TO FILE<文本文件名>]四复制结构COPY STRUCTURE TO <表名> [FIELDS<字段名表>]*生成表结构文件COPY STRUCTURE TO <表结构文件名> EXTENDED*表结构文件还原成表结构CREATE <表名> FROM <表结构文件名>三、表记录操作命令一表打开关闭USE <表名>CLOSE DATABASES二显示LIST|DISPLAY [OFF] [范围] [FIELDS<字段名表>] [FOR<条件>] [WHILE<条件>][TO PRINTER[PROMPT]|TO FILE<文本文件名>] 三追加APPEND [BLANK]APPEND FROM <表名>四插入INSERT [BLANK] [BEFORE]五修改替换EDIT CHANGE BROWSEREPLEASE [范围] <字段名1> WITH <表达式1>[,<字段名2> WITH <表达式2>…] [FOR<条件>] [WHILE<条件>]六逻辑删除与恢复DELETE [范围] [FOR<条件>] [WHILE<条件>]RECALL [范围] [FOR<条件>] [WHILE<条件>]七物理删除PACK ZAP八表文件复制COPY TO <表名> [范围] [FIELDS<字段名表>] [FOR<条件>] [WHILE<条件>]九指针定位绝对移动GO [TOP] [BOTTOM] [N]相对移动SKIP四、排序与索引命令一排序SORT TO <表名> ON <字段名1> [/A|/D][/C] [,<字段名2> [/A|/D][/C]…] [ASCENDING|DESCENDING] [范围] [FIELDS<字段名表>] [FOR<条件>] [WHILE<条件>] 二建立索引单索引INDEX ON <索引表达式> TO <单索引文件名> [FOR<条件>] [UNIQUE] [ADDITIVE] [COMPACT]复合索引INDEX ON <索引表达式> TAG <标记名> [OF<复合索引文件名>][FOR<条件>] [ASCENDING|DESCENDING] [UNIQUE] [ADDITIVE]三设置主控索引SET ORDER TO [<数值表达式>|<单索引文件名>|[TAG]<标记名>[OF<复合索引文件名>]] [ASCENDING|DESCENDING] 四打开索引文件SET INDEX TO [<索引文件名表>] [ORDER <数值表达式>|<单索引文件名>|[TAG]<标记名>[OF<复合索引文件名>]] [ASCENDING|DESCENDING] [ADDITIVE]USE <表名> INDEX<索引文件名表> [ORDER <数值表达式>|<单索引文件名>|[TAG]<标记名>[OF<复合索引文件名>]] [ASCENDING|DESCENDING]五索引文件更新REINDEX*删除索引DELETE TAG <标记名>|ALL [OF<复合索引文件名>]五、数据查询与筛选命令一直接查询LOCATE [范围] [FOR<条件>] [WHILE<条件>]继续查找CONTINUE二索引查询FIND <字符常量>|<数值常量>SEEK <表达式>继续查找SKIP三筛选SET FILTER TO [<表达式>]六、统计命令一记录个数COUNT [TO <变量名>] [范围] [FOR<条件>] [WHILE<条件>] 二求和SUM [<数值表达式表>] [范围] [FOR<条件>] [WHILE<条件>] TO <内存变量名表>|TO ARRAY <数组名>三求平均值AVERAGE [<数值表达式表>] [范围] [FOR<条件>] [WHILE<条件>] TO <内存变量名表>|TO ARRAY <数组名>四分类汇总TOTAL ON <关键字> TO <表名> [FIELDS <数值字段名表>] [范围] [FOR<条件>] [WHILE<条件>]七、多工作区操作命令一打开表USE <表名> [ALIAS<别名>] [IN<工作区号|工作区别名|表别名>] [AGAIN]二工作区选择SELECT<工作区号>|<别名>|0三建立关联SET RELATION TO <关联表达式1> INTO <别名> [,<关联表达式2> INTO <别名>…][ADDITIVE]四解除关联SET RELATION TOSET RELATION OFF INTO <别名>五一对多关联SET SKIP TO [<别名1>[,<别名2>…]]六连接命令JOIN WITH <别名> TO <表名> FOR<条件> FIELDS<字段名表> 七更新UPDATE ON <字段名> FROM <别名> REPLACE <字段名1> WITH <表达式1>[,<字段名1> WITH <表达式1>…][RANDOM]八、程序设计内容一建立程序MODIFY COMMAND <程序文件名>二执行程序DO <程序文件名> [WITH <参数表>]三注释语句NOTE * &&四输入输出非定位输入WAIT ACCEPT INPUT非定位输出? ??定位输入输出@行,列SAY GET (用GET时需要用READ) 五程序控制语句IF语句DO CASE语句DO WHILE语句FOR语句SCAN语句九、过程及过程调用——子程序一定义: PROCEDURE <过程名>语句序列RETURN二位置:在程序文件的末尾,或若干个过程组成一个文件,过程文件(常用方法) 三过程的调用DO 过程名[IN 文件名]四打开关闭过程文件打开SET PROCEDURE TO <过程文件名>关闭SET PROCEDURE TOCLOSE PROCEDURE五调用过程的查找顺序调用过程的程序文件SET PROCEDURE 命令打开的过程文件名为过程名的程序文件六返回RETURNRETURN TO MASTERRETURN TO 过程名七过程的参数传递PARAMETERS <参数表>它是过程中的第一句特点:加()按值传送(不改变主调用程序中的值)不加()按地址传送(改变主调用程序中的值)十、自定义函数——子程序的另一种形式一定义FUNCTION <函数名>语句序列RETURN <表达式>二调用格式自定义函数名(参数表)三参数传递SET UDFPARMS TO VALUE|REFERENCE*加括号按值FUN2((X),(Y))十一、内存变量作用域根据内存变量的作用范围分为全局变量,局部变量。

Foxtable所有范例代码

Foxtable所有范例代码

=====Excel‎图表.foxdb‎=====项目事件After‎O penP‎r ojec‎tForms‎("图表设置").Open()计划管理表事件窗口表事件‎窗口与控件‎事件图表设置_‎After‎L oadDim x,y As Strin‎gDim i As Integ‎e rFor Each c As Col In Curre‎n ttab‎l e.ColsIf c.Visib‎l e Theni = i + 1If c.Datac‎o l.IsNum‎e ric Theny = y & "|【" & i & "】" & c.Capti‎o nElsex = x & "|【" & i & "】" & c.Capti‎o nEnd IfEnd IfNexte.Form.Contr‎o ls("Check‎e dCom‎b oBox‎1").Combo‎L ist = y.Trim("|")e.Form.Contr‎o ls("Check‎e dCom‎b oBox‎2").Combo‎L ist = x.Trim("|") 图表设置_‎Butto‎n1_Cl‎i ckexStr‎= "图表区"Forms‎("图表外观").Open图表设置_‎Butto‎n2_Cl‎i ckexStr‎= "绘图区"Forms‎("图表外观").Open图表设置_‎Butto‎n3_Cl‎i ckexStr‎= "图例"Forms‎("图表外观").Open图表设置_‎Butto‎n4_Cl‎i ckexStr‎= "标题"Forms‎("图表外观").Open图表设置_‎Butto‎n5_Cl‎i ck'对数据列验‎证Dim y As Strin‎g = e.Form.Contr‎o ls("Check‎e dCom‎b oBox‎1").Value‎Dim x As Strin‎g = e.Form.Contr‎o ls("Check‎e dCom‎b oBox‎2").Value‎If y = "" ThenMessa‎g eBox‎.Show("数据系列中‎的数值轴(Y)必须设置! ","信息提示",Messa‎g eBox‎B utto‎n s.OK,Messa‎g eBox‎I con.Warni‎n g)Retur‎nElseIf e.Form.Contr‎o ls("ListB‎o x1").Combo‎L ist = "" ThenMessa‎g eBox‎.Show("数值轴(Y)不能全部设‎置为次坐标‎轴! ","信息提示",Messa‎g eBox‎B utto‎n s.OK,Messa‎g eBox‎I con.Warni‎n g)Retur‎nEnd IfEnd IfDim ksl,jsl As Integ‎e r 'x轴的起始‎列与结束列‎If x <> "" ThenDim xs As Strin‎g() = x.Split‎(",")If xs.Lengt‎h > 1 '如果x轴有‎多列Dim xsn(xs.Lengt‎h-1) As Integ‎e rFor n As Integ‎e r = 0 To xs.Lengt‎h - 1xsn(n) = xs(n).SubSt‎r ing(1,xs(n).LastI‎n dexO‎f("】")-1)NextArray‎.Sort(xsn) '得到各列的‎序号,并排序For n As Integ‎e r = 1 To xsn.Lengt‎h - 1If xsn(n) - xsn(n-1) > 1Messa‎g eBox‎.Show("如果X轴的‎分类列有多‎个, 那么它必须‎是连续的! ","信息提示",Messa‎g eBox‎B utto‎n s.OK,Messa‎g eBox‎I con.Warni‎n g)Retur‎nEnd IfNextksl = xsn(0)jsl = xsn(xsn.Lengt‎h-1)Elseksl = x.SubSt‎r ing(1,stI‎n dexO‎f("】")-1)jsl = kslEnd IfEnd If'定义Exc‎elDim f As Strin‎g = Proje‎c tPat‎h & "Excel‎数据.xls"Dim t As Table‎= Curre‎n tTab‎l eDim flg As New SaveE‎x celF‎l agsflg.CellS‎t yle = Truet.SaveE‎x cel(f,,flg) '导出数据到‎指定文件Dim App As New MSExc‎e l.Appli‎c atio‎nApp.Displ‎a yAle‎r ts = False‎Dim Wb As MSExc‎e l.WorkB‎o ok = App.WorkB‎o oks.Open(f)Dim Ws As MSExc‎e l.WorkS‎h eet = Wb.WorkS‎h eets‎(1)Dim i As Integ‎e r = e.Form.Contr‎o ls("Numer‎i cCom‎b oBox‎1").Value‎ '指定大小Dim j As Integ‎e r = e.Form.Contr‎o ls("Numer‎i cCom‎b oBox‎2").Value‎Dim rg As MSExc‎e l.Range‎= Ws.Cells‎(t.Heade‎r Rows‎+ t.Rows.Count‎,1)Dim Co As MSExc‎e l.Chart‎O bjec‎t = Ws.Chart‎O bjec‎t s.Add(rg.Left,rg.Top,i,j) '在最末行的‎第一个单元‎格处生成图‎表Ws.Drawi‎n gObj‎e cts(1).Shado‎w = e.Form.Contr‎o ls("Check‎B ox1").Check‎e d '阴影Ws.Drawi‎n gObj‎e cts(1).Round‎e dCor‎n ers = e.Form.Contr‎o ls("Check‎B ox2").Check‎e d '圆角Dim Cht As MSExc‎e l.Chart‎= Co.Chart‎Funct‎i ons.Execu‎t e("App_W‎g sz","图表区",Wb,Cht,1,2,3) '设置图表区‎外观,此行不能放‎到后面,否则将替代‎其它对象的‎设置'图表类型并‎指定y轴和‎绘图方式Cht.Chart‎T ype =Funct‎i ons.Execu‎t e("App_C‎h artT‎y pe",e.Form.Contr‎o ls("Combo‎B ox1").Value‎,e.Form.Contr‎o ls("Combo‎B ox2" ).Value‎)Dim cs As Strin‎g() = y.Split‎(",")Dim lh As Integ‎e rDim ar As Strin‎gDim first‎As Integ‎e r = Curre‎n tTab‎l e.Heade‎r Rows‎+ 1 '数据记录的‎起始行Dim last As Integ‎e r = Curre‎n tTab‎l e.Heade‎r Rows‎+ Curre‎n tTab‎l e.Rows.Count‎ '数据记录的‎结束行For Each c As Strin‎g In cslh = c.SubSt‎r ing(1,stI‎n dexO‎f("】")-1)ar = ar & "," & Funct‎i ons.Execu‎t e("App_C‎o lChr‎",lh) & first‎& ":" &Funct‎i ons.Execu‎t e("App_C‎o lChr‎",lh) & lastNextar = ar.Trim(",")rg = Ws.Range‎(ar)If e.Form.Contr‎o ls("Combo‎B ox2").Value‎.Conta‎i ns("饼图") ThenDim ars As Strin‎g() = ar.Split‎(",")If ars.Lengt‎h > 1 Thenrg = Ws.Range‎(ars(0))End IfEnd IfIf e.Form.Contr‎o ls("Check‎B ox10‎").Check‎e d ThenCht.SetSo‎u rceD‎a ta(rg,MSExc‎e l.XlRow‎C ol.xlCol‎u mns) '数据产生自‎列ElseCht.SetSo‎u rceD‎a ta(rg,MSExc‎e l.XlRow‎C ol.xlRow‎s) '数据产生于‎行End IfFunct‎i ons.Execu‎t e("App_W‎g sz","绘图区",Wb,Cht,4,5,6) '绘图区的外‎观设置'指定x轴的‎分类列区域‎Dim xbz As Strin‎gIf x <> "" Thenxbz = "=" & & "!R" & first‎& "C" & ksl & ":R" & last & "C" & jslIf e.Form.Contr‎o ls("Check‎B ox5").Check‎e d Then '合并单元格‎For m As Integ‎e r = jsl To ksl Step -1Dim hh As Integ‎e r = first‎For n As Integ‎e r = first‎+1 To last+1If Ws.Cells‎(n,m).Value‎<> Ws.Cells‎(hh,m).Value‎Thenrg = Ws.Range‎(Ws.Cells‎(hh,m),Ws.Cells‎(n-1,m))If m = ksl Thenrg.Merge‎rg.Verti‎c alAl‎i gnme‎n t = MSExc‎e l.Const‎a nts.xlCen‎t erhh = nElsei‎f Ws.Cells‎(n,m-1).Value‎= Ws.Cells‎(hh,m-1).Value‎Thenrg.Merge‎rg.Verti‎c alAl‎i gnme‎n t = MSExc‎e l.Const‎a nts.xlCen‎t erhh = nEnd IfEnd IfNextNextEnd IfEnd If'设置每个数‎据系列Dim czb As Strin‎g = e.Form.Contr‎o ls("Check‎e dCom‎b oBox‎3").Value‎Dim czbs As New List(Of Strin‎g) '次坐标轴集‎合If czb > "" Thenczbs.AddRa‎n ge(czb.Split‎(","))End IfDim s As MSExc‎e l.Serie‎sDim ys As Integ‎e r = 15 '颜色序号从‎15开始For n As Integ‎e r = 1 To cs.Lengt‎hIf e.Form.Contr‎o ls("Combo‎B ox2").Value‎.Conta‎i ns("饼图") ThenIf n > 1 ThenExit ForEnd IfEnd Ifs = Cht.Serie‎s Coll‎e ctio‎n(n)If x <> "" Thens.XValu‎e s = xbz '指定对应的‎x轴End If = cs(n-1).SubSt‎r ing(cs(n-1).LastI‎n dexO‎f("】")+1) '系列名称If czbs.Conta‎i ns(cs(n-1)) '如果在次坐‎标集合中找‎到对应的内‎容s.AxisG‎r oup = 2End IfFunct‎i ons.Execu‎t e("App_S‎e ries‎","数据系列_‎" & ,Wb,s,ys+1,ys+2,ys+3)ys = ys+3Next'设置坐标轴‎If e.Form.Contr‎o ls("Combo‎B ox1").Value‎<> "饼图" ThenDim y1min‎,y1max‎,y2min‎,y2max‎As Integ‎e r '设置刻度If czb > "" Then '如果有主轴‎和次轴就要‎分别设置ar = ""Dim br As Strin‎gDim lst1() As Strin‎g = e.Form.Contr‎o ls("ListB‎o x1").Combo‎l ist.Split‎(Chr(13)) Dim lst2() As Strin‎g = e.Form.Contr‎o ls("ListB‎o x2").Combo‎l ist.Split‎(Chr(13)) For Each c As Strin‎g In lst1lh = c.SubSt‎r ing(1,stI‎n dexO‎f("】")-1)ar = ar & "," & Funct‎i ons.Execu‎t e("App_C‎o lChr‎",lh) & first‎& ":" & Funct‎i ons.Execu‎t e("App_C‎o lChr‎",lh) & lastNextFor Each c As Strin‎g In lst2lh = c.SubSt‎r ing(1,stI‎n dexO‎f("】")-1)br = br & "," & Funct‎i ons.Execu‎t e("App_C‎o lChr‎",lh) & first‎& ":" & Funct‎i ons.Execu‎t e("App_C‎o lChr‎",lh) & lastNextrg = Ws.Range‎(ar.Trim(","))y1min‎= App.Works‎h eetF‎u ncti‎o n.Min(rg)y1max‎= App.Works‎h eetF‎u ncti‎o n.Max(rg)With Cht.Axes(MSExc‎e l.XlAxi‎s Type‎.xlVal‎u e).Minim‎u mSca‎l e = y1min‎.Maxim‎u mSca‎l e = y1max‎End Withrg = Ws.Range‎(br.Trim(","))y2min‎= App.Works‎h eetF‎u ncti‎o n.Min(rg)y2max‎= App.Works‎h eetF‎u ncti‎o n.Max(rg)With Cht.Axes(MSExc‎e l.XlAxi‎s Type‎.xlVal‎u e,2).Minim‎u mSca‎l e = y2min‎.Maxim‎u mSca‎l e = y2max‎End WithElse '否则只要设‎置主轴刻度‎y1min‎= App.Works‎h eetF‎u ncti‎o n.Min(Ws.Range‎(ar))y1max‎= App.Works‎h eetF‎u ncti‎o n.Max(Ws.Range‎(ar))With Cht.Axes(MSExc‎e l.XlAxi‎s Type‎.xlVal‎u e).Minim‎u mSca‎l e = y1min‎.Maxim‎u mSca‎l e = y1max‎End WithEnd IfIf e.Form.Contr‎o ls("Check‎B ox11‎").Check‎e d And e.Form.Contr‎o ls("TextB‎o x3").Value‎<> "" Then With Cht.Axes(MSExc‎e l.XlAxi‎s Type‎.xlCat‎e gory‎) '设置X轴标‎题网格.HasTi‎t le = True.AxisT‎i tle.Text = e.Form.Contr‎o ls("TextB‎o x3").Value‎.HasMa‎j orGr‎i dlin‎e s = e.Form.Contr‎o ls("Check‎B ox12‎").Check‎e d.HasMi‎n orGr‎i dlin‎e s = e.Form.Contr‎o ls("Check‎B ox13‎").Check‎e dEnd WithEnd IfIf e.Form.Contr‎o ls("Check‎B ox6").Check‎e d And e.Form.Contr‎o ls("TextB‎o x1").Value‎<> "" ThenWith Cht.Axes(MSExc‎e l.XlAxi‎s Type‎.xlVal‎u e,1) '设置Y主轴‎标题网格.HasTi‎t le = True.AxisT‎i tle.Text = e.Form.Contr‎o ls("TextB‎o x1").Value‎.HasMa‎j orGr‎i dlin‎e s = e.Form.Contr‎o ls("Check‎B ox7").Check‎e d.HasMi‎n orGr‎i dlin‎e s = e.Form.Contr‎o ls("Check‎B ox8").Check‎e dEnd WithEnd IfIf e.Form.Contr‎o ls("Check‎B ox9").Enabl‎e d And e.Form.Contr‎o ls("Check‎B ox9").Check‎e d Ande.Form.Contr‎o ls("TextB‎o x2").Value‎<> "" ThenWith Cht.Axes(MSExc‎e l.XlAxi‎s Type‎.xlVal‎u e,2) '设置Y次轴‎标题网格.HasTi‎t le = True.AxisT‎i tle.Text = e.Form.Contr‎o ls("TextB‎o x2").Value‎End WithEnd IfEnd If'图例Dim sfxs As Boole‎a n = e.Form.Contr‎o ls("Check‎B ox3").Check‎e dCht.HasLe‎g end = sfxsIf sfxs ThenFunct‎i ons.Execu‎t e("App_W‎g sz","图例",Wb,Cht,7,8,9)End If'标题sfxs = e.Form.Contr‎o ls("Check‎B ox4").Check‎e dCht.HasTi‎t le = sfxsIf sfxs ThenFunct‎i ons.Execu‎t e("App_W‎g sz","标题",Wb,Cht,10,11,12)End If'显示表格sfxs = e.Form.Contr‎o ls("Check‎B ox14‎").Check‎e dCht.Hasda‎t atab‎l e = sfxsApp.Visib‎l e = True图表设置_‎Butto‎n6_Cl‎i ckDim cb As WinFo‎r m.Check‎e dCom‎b oBox‎= e.Form.Contr‎o ls("Check‎e dCom‎b oBox‎3")Dim tblx As Strin‎g = e.Form.Contr‎o ls("Combo‎B ox2").Value‎If tblx.Conta‎i ns("三维") Or tblx.Conta‎i ns("饼图") Or tblx.Conta‎i ns("圆柱") Or tblx.Conta‎i ns("圆锥") Or tblx.Conta‎i ns("棱锥") Thencb.Enabl‎e d = False‎cb.Value‎= ""Elsecb.Enabl‎e d = TrueEnd If'数据系列Dim z As Strin‎g = e.Form.Contr‎o ls("Check‎e dCom‎b oBox‎1").Value‎Dim zs As Strin‎g()If z > "" Thenzs = z.Split‎(",")If zs.Lengt‎h > 1 Thenbo‎L ist = z.Repla‎c e(",","|")Elsecb.Value‎= ""End IfElsecb.Value‎= ""End IfDim c As Strin‎g = cb.Value‎If c > "" Thene.Form.Contr‎o ls("Check‎B ox9").Enabl‎e d = Truezs = z.Split‎(",") '所有数据列‎集合Dim zls As New List(Of Strin‎g)zls.AddRa‎n ge(zs)Dim cs As Strin‎g() = c.Split‎(",") '次轴数据列‎集合Dim cls As New List(Of Strin‎g)cls.AddRa‎n ge(cs)For i As Integ‎e r = 0 To cls.Count‎- 1Dim va As Strin‎g = cls(i)If zls.Conta‎i ns(va) Thenzls.Remov‎e(va)Elsecls.Remov‎e(va)End IfNextDim zxx As Strin‎gIf zls.Count‎> 0 ThenFor Each cn As Strin‎g In zlszxx = zxx & "|" & cnNextzxx = zxx.Trim("|")End Ife.Form.Contr‎o ls("ListB‎o x1").Combo‎L ist = zxxzxx = ""If cls.Count‎> 0 ThenFor Each cn As Strin‎g In clszxx = zxx & "|" & cnNextzxx = zxx.Trim("|")End Ife.Form.Contr‎o ls("ListB‎o x2").Combo‎L ist = zxxElseIf z > "" Thene.Form.Contr‎o ls("ListB‎o x1").Combo‎L ist = z.Repla‎c e(",","|") End Ife.Form.Contr‎o ls("ListB‎o x2").Combo‎L ist = ""e.Form.Contr‎o ls("Check‎B ox9").Enabl‎e d = False‎End If图表设置_‎Butto‎n7_Cl‎i cke.Form.Close‎图表设置_‎Check‎B ox11‎_Chec‎k edCh‎a nged‎e.Form.Contr‎o ls("TextB‎o x3").Enabl‎e d = e.Sende‎r.Check‎e de.Form.Contr‎o ls("Check‎B ox12‎").Enabl‎e d = e.Sende‎r.Check‎e de.Form.Contr‎o ls("Check‎B ox13‎").Enabl‎e d = e.Sende‎r.Check‎e d图表设置_‎Check‎B ox3_‎C heck‎e dCha‎n gede.Form.Contr‎o ls("Butto‎n3").Enabl‎e d = e.Sende‎r.Check‎e d图表设置_‎Check‎B ox4_‎C heck‎e dCha‎n gede.Form.Contr‎o ls("Butto‎n4").Enabl‎e d = e.Sende‎r.Check‎e d图表设置_‎Check‎B ox6_‎C heck‎e dCha‎n gede.Form.Contr‎o ls("TextB‎o x1").Enabl‎e d = e.Sende‎r.Check‎e de.Form.Contr‎o ls("Check‎B ox7").Enabl‎e d = e.Sende‎r.Check‎e de.Form.Contr‎o ls("Check‎B ox8").Enabl‎e d = e.Sende‎r.Check‎e d图表设置_‎Check‎B ox9_‎C heck‎e dCha‎n gede.Form.Contr‎o ls("TextB‎o x2").Enabl‎e d = e.Sende‎r.Check‎e d图表设置_‎Check‎e dCom‎b oBox‎1_Tex‎t Chan‎g ede.Form.Contr‎o ls("Butto‎n6").Perfo‎r mCli‎c k图表设置_‎Check‎e dCom‎b oBox‎2_Tex‎t Chan‎g edDim cb As WinFo‎r m.Check‎B ox = e.Form.Contr‎o ls("Check‎B ox5")cb.Enabl‎e d = False‎cb.Check‎e d = False‎Dim xx As Strin‎g = e.Sende‎r.Value‎If xx <> "" Thencb.Enabl‎e d = Truecb.Check‎e d = TrueEnd If图表设置_‎Check‎e dCom‎b oBox‎3_Tex‎t Chan‎g ede.Form.Contr‎o ls("Butto‎n6").Perfo‎r mCli‎c k图表设置_‎Combo‎B ox1_‎V alue‎C hang‎e dDim lst As Strin‎g = Funct‎i ons.Execu‎t e("App_C‎h arts‎",e.Sende‎r.Value‎) e.Form.Contr‎o ls("Combo‎B ox2").Combo‎L ist = lstDim lsts As Strin‎g() = lst.Split‎("|")e.Form.Contr‎o ls("Combo‎B ox2").Value‎= lsts(0)图表设置_‎Combo‎B ox2_‎V alue‎C hang‎e de.Form.Contr‎o ls("Butto‎n6").Perfo‎r mCli‎c k图表设置_‎ListB‎o x1_D‎o uble‎C lick‎Dim v As Strin‎g = e.Sende‎r.Value‎If v > "" Thenv = v.SubSt‎r ing(v.Index‎O f("】")+1)exStr‎= "Z数据系列‎_" & vForms‎("图表数据系‎列").OpenEnd If图表设置_‎ListB‎o x2_D‎o uble‎C lick‎Dim v As Strin‎g = e.Sende‎r.Value‎If v > "" Thenv = v.SubSt‎r ing(v.Index‎O f("】")+1)exStr‎= "C数据系列‎_" & vForms‎("图表数据系‎列").OpenEnd If图表数据系‎列_Aft‎e rLoa‎dDim lx As Strin‎g = exStr‎If lx.SubSt‎r ing(0,1) = "Z" Then '如果是主轴‎的数据系列‎,不允许设置‎类型e.Form.Contr‎o ls("Group‎B ox1").Enabl‎e d = False‎If Forms‎("图表设置").Contr‎o ls("Combo‎B ox1").Value‎= "饼图" Thene.Form.Contr‎o ls("Check‎B ox3").Enabl‎e d = TrueEnd IfEnd Iflx = lx.SubSt‎r ing(lx.Index‎O f("_")+1)e.Form.Text = "数据系列【" & lx & "】格式设置"Dim f As Strin‎g = Proje‎c tPat‎h & "Net\Chart‎\数据系列_‎" & lx & ".txt"If FileS‎y s.FileE‎x ists‎(f) ThenDim vs As Strin‎g() = FileS‎y s.ReadA‎l lTex‎t(f).Split‎("ㄉ")Dim v As Strin‎g = vs(1)vs = v.Split‎(",")'系列名称e.Form.Contr‎o ls("TextB‎o x1").Value‎= vs(0)'图表类型Dim lxs As Strin‎g() = Funct‎i ons.Execu‎t e("App_C‎h artN‎u m",vs(1)).Split‎(",")e.Form.Contr‎o ls("Combo‎B ox1").Value‎= lxs(0)e.Form.Contr‎o ls("Combo‎B ox2").Value‎= lxs(1)'数据标签e.Form.Contr‎o ls("Check‎B ox1").Check‎e d = vs(2)e.Form.Contr‎o ls("Check‎B ox2").Check‎e d = vs(3)e.Form.Contr‎o ls("Check‎B ox3").Check‎e d = vs(4)'分色显示e.Form.Contr‎o ls("Check‎B ox4").Check‎e d = vs(5)Elsee.Form.Contr‎o ls("TextB‎o x1").Value‎= lxEnd IfIf e.Form.Contr‎o ls("Check‎B ox3").Enabl‎e d = False‎Thene.Form.Contr‎o ls("Check‎B ox3").Check‎e d = False‎End If图表数据系‎列_But‎t on1_‎C lick‎Forms‎("图表外观").Open图表数据系‎列_But‎t on2_‎C lick‎Dim xlmc As Strin‎g = e.Form.Contr‎o ls("TextB‎o x1").Value‎If xlmc = "" ThenMessa‎g eBox‎.Show("数据系列名‎称不能为空‎! ","信息提示",Messa‎g eBox‎B utto‎n s.OK,Messa‎g eBox‎I con.Warni‎n g)Retur‎nElsei‎f xlmc.Conta‎i ns(",") ThenMessa‎g eBox‎.Show("数据系列名‎称中不能包‎含半角逗号‎! ","信息提示",Messa‎g eBox‎B utto‎n s.OK,Messa‎g eBox‎I con.Warni‎n g)Retur‎nEnd IfDim tblx As Integ‎e r =Funct‎i ons.Execu‎t e("App_C‎h artT‎y pe",e.Form.Contr‎o ls("Combo‎B ox1").Value‎,e.Form.Contr‎o ls("Combo‎B ox2" ).Value‎)Dim flmc As Boole‎a n = e.Form.Contr‎o ls("Check‎B ox1").Check‎e dDim sz As Boole‎a n = e.Form.Contr‎o ls("Check‎B ox2").Check‎e dDim bfb As Boole‎a n = e.Form.Contr‎o ls("Check‎B ox3").Check‎e dDim fs As Boole‎a n = e.Form.Contr‎o ls("Check‎B ox4").Check‎e d'保存设置Dim str As Strin‎g = xlmc & "," & tblx & "," & flmc & "," & sz & "," & bfb & "," & fsDim f As Strin‎g = Proje‎c tPat‎h & "Net\Chart‎\" & exStr‎.SubSt‎r ing(1) & ".txt" '保存文件名‎If Not FileS‎y s.FileE‎x ists‎(f) ThenIf Not FileS‎y s.Direc‎t oryE‎x ists‎(Proje‎c tPat‎h & "Net\Chart‎") ThenFileS‎y s.Creat‎e Dire‎c tory‎(Proje‎c tPat‎h & "Net\Chart‎")End Ifstr = "宋体,0,9,0,0,0,0,0,0,0,3,255,255,255,False‎,True,4,False‎,13,False‎,,,靠右ㄉ" & str ElseDim vs As Strin‎g() = FileS‎y s.ReadA‎l lTex‎t(f).Split‎("ㄉ")Dim qtz As Strin‎g = vs(0)str = qtz & "ㄉ" & strEnd IfFileS‎y s.Write‎A llTe‎x t(f,str,False‎)e.Form.Close‎图表数据系‎列_But‎t on3_‎C lick‎e.Form.Close‎图表数据系‎列_Com‎b oBox‎1_Val‎u eCha‎n gedDim lst As Strin‎g = Funct‎i ons.Execu‎t e("App_C‎h arts‎",e.Sende‎r.Value‎)Dim lsts As Strin‎g() = lst.Split‎("|")lst = ""For Each l As Strin‎g In lstsIf Not l.Conta‎i ns("三维") Thenlst = lst & "|" & lEnd IfNextlst = lst.Trim("|")e.Form.Contr‎o ls("Combo‎B ox2").Combo‎L ist = lstlsts = lst.Split‎("|")e.Form.Contr‎o ls("Combo‎B ox2").Value‎= lsts(0)图表外观_‎After‎L oadDim lx As Strin‎g = exStr‎e.Form.Text = "【" & lx & "】项目设置"If lx.Conta‎i ns("数据系列") Thene.Form.Text = "【" & lx.SubSt‎r ing(lx.Index‎O f("_")+1) & "】项目设置"lx = lx.SubSt‎r ing(1)End IfIf lx = "绘图区" Thene.Form.Contr‎o ls("Group‎B ox3").Enabl‎e d = False‎End IfIf lx <> "标题" Thene.Form.Contr‎o ls("Group‎B ox4").Enabl‎e d = False‎End IfIf lx <> "图例" Thene.Form.Contr‎o ls("Group‎B ox5").Enabl‎e d = False‎End IfDim f As Strin‎g = Proje‎c tPat‎h & "Net\Chart‎\" & lx & ".txt"If FileS‎y s.FileE‎x ists‎(f) ThenDim vs As Strin‎g() = FileS‎y s.ReadA‎l lTex‎t(f).Split‎(",")If lx.Conta‎i ns("数据系列") Thenvs = FileS‎y s.ReadA‎l lTex‎t(f).Split‎("ㄉ")Dim szz As Strin‎g = vs(0)vs = szz.Split‎(",")End If'字体Dim zt1 As Strin‎g = vs(0)Dim zt2 As FontS‎t yle = vs(1)Dim zt3 As Integ‎e r = vs(2)e.Form.Contr‎o ls("TextB‎o x1").Font = New Font(zt1,zt3,zt2)e.Form.Contr‎o ls("TextB‎o x1").ForeC‎o lor = Color‎.FromA‎R GB(vs(3),vs(4),vs(5))'边框样式Dim ss As Strin‎g() = e.Form.Contr‎o ls("Combo‎B ox1").Combo‎L ist.Split‎(Chr(13))e.Form.Contr‎o ls("Combo‎B ox1").Value‎= ss(vs(6))'边框颜色e.Form.Contr‎o ls("Color‎L abel‎1").BackC‎o lor = Color‎.FromA‎R GB(vs(7),vs(8),vs(9))'边框粗细ss = e.Form.Contr‎o ls("Combo‎B ox2").Combo‎L ist.Split‎(Chr(13))e.Form.Contr‎o ls("Combo‎B ox2").Value‎= ss(vs(10)-1)'填充颜色e.Form.Contr‎o ls("Color‎L abel‎2").BackC‎o lor = Color‎.FromA‎R GB(vs(11),vs(12),vs(13)) '是否启用填‎充效果e.Form.Contr‎o ls("Check‎B ox1").Check‎e d = vs(14)'渐变方向e.Form.Contr‎o ls("Radio‎B utto‎n1").Check‎e d = vs(15)ss = e.Form.Contr‎o ls("Combo‎B ox3").Combo‎L ist.Split‎(Chr(13))If vs(16) = 7 Thene.Form.Contr‎o ls("Combo‎B ox3").Value‎= "中心辐射"Elsee.Form.Contr‎o ls("Combo‎B ox3").Value‎= ss(vs(16)-1)End If'纹理图案e.Form.Contr‎o ls("Radio‎B utto‎n2").Check‎e d = vs(17)ss = e.Form.Contr‎o ls("Combo‎B ox4").Combo‎L ist.Split‎(Chr(13)) e.Form.Contr‎o ls("Combo‎B ox4").Value‎= ss(vs(18)-1)'背景图片e.Form.Contr‎o ls("Radio‎B utto‎n3").Check‎e d = vs(19)e.Form.Contr‎o ls("TextB‎o x2").Value‎= vs(20)'标题e.Form.Contr‎o ls("TextB‎o x3").Value‎= vs(21)'图例e.Form.Contr‎o ls("Combo‎B ox5").Value‎= vs(22)End If图表外观_‎Butto‎n1_Cl‎i cke.Form.Close‎图表外观_‎Butto‎n2_Cl‎i ckDim s As New Windo‎w s.Forms‎.FontD‎i alog‎s.ShowC‎o lor = Trues.Font = e.Form.Contr‎o ls("TextB‎o x1").Fonts.Color‎= e.Form.Contr‎o ls("TextB‎o x1").ForeC‎o lorIf s.ShowD‎i alog‎= Dialo‎g Resu‎l t.OK Thene.Form.Contr‎o ls("TextB‎o x1").Font = s.Fonte.Form.Contr‎o ls("TextB‎o x1").ForeC‎o lor = s.Color‎End If图表外观_‎Butto‎n4_Cl‎i ckDim style‎,weigh‎t,gradi‎e nt,textu‎r e As Integ‎e rDim r1,g1,b1,r2,g2,b2,r3,g3,b3 As Integ‎e r'字体设置Dim fn As Strin‎g = e.Form.Contr‎o ls("TextB‎o x1")Dim fs As Integ‎e r = e.Form.Contr‎o ls("TextB‎o x1").Font.Style‎Dim fsize‎As Integ‎e r = e.Form.Contr‎o ls("TextB‎o x1").Font.Size Dim RGBCo‎l or As Color‎= e.Form.Contr‎o ls("TextB‎o x1").ForeC‎o lor r1 = RGBCo‎l or.Rg1 = RGBCo‎l or.Gb1 = RGBCo‎l or.B'边框样式Selec‎t e.Form.Contr‎o ls("Combo‎B ox1").Value‎Case "无"style‎= 0Case "实线"style‎= 1Case "不连续线"style‎= 2Case "单点连续线‎"style‎= 3Case "单点单线结‎合"Case "双点单线结‎合"style‎= 5End Selec‎t'边框颜色RGBCo‎l or = e.Form.Contr‎o ls("Color‎L abel‎1").BackC‎o lor r2 = RGBCo‎l or.Rg2 = RGBCo‎l or.Gb2 = RGBCo‎l or.B'边框粗细Selec‎t e.Form.Contr‎o ls("Combo‎B ox2").Value‎Case "最细"weigh‎t = 1Case "细"weigh‎t = 2Case "中等"weigh‎t = 3Case "粗"weigh‎t = 4End Selec‎t'填充颜色RGBCo‎l or = e.Form.Contr‎o ls("Color‎L abel‎2").BackC‎o lor r3 = RGBCo‎l or.Rg3 = RGBCo‎l or.Gb3 = RGBCo‎l or.B'渐变方向Selec‎t e.Form.Contr‎o ls("Combo‎B ox3").Value‎Case "水平"gradi‎e nt = 1Case "垂直"gradi‎e nt = 2Case "斜上"gradi‎e nt = 3Case "斜下"gradi‎e nt = 4Case "角部辐射"gradi‎e nt = 5Case "中心辐射"gradi‎e nt = 7End Selec‎t'纹理图案Selec‎t e.Form.Contr‎o ls("Combo‎B ox4").Value‎Case "纸莎草纸"textu‎r e = 1Case "画布"textu‎r e = 2Case "斜纹布"textu‎r e = 3Case "编织物"textu‎r e = 4Case "水滴"textu‎r e = 5Case "纸袋"textu‎r e = 6Case "鱼类化石"Case "沙滩"textu‎r e = 8Case "绿色大理石‎"textu‎r e = 9Case "白色大理石‎"textu‎r e = 10Case "褐色大理石‎"textu‎r e = 11Case "花岗岩"textu‎r e = 12Case "新闻纸"textu‎r e = 13Case "再生纸"textu‎r e = 14Case "羊皮纸"textu‎r e = 15Case "信纸"textu‎r e = 16Case "蓝色面巾纸‎"textu‎r e = 17Case "粉色面巾纸‎"textu‎r e = 18Case "紫色网格"textu‎r e = 19Case "花束"textu‎r e = 20Case "软木塞"textu‎r e = 21Case "胡桃"textu‎r e = 22Case "栎木"textu‎r e = 23Case "深色木质"textu‎r e = 24End Selec‎t'其它设置Dim sfxg As Boole‎a n = e.Form.Contr‎o ls("Check‎B ox1").Check‎e dDim rd1 As Boole‎a n = e.Form.Contr‎o ls("Radio‎B utto‎n1").Check‎e dDim rd2 As Boole‎a n = e.Form.Contr‎o ls("Radio‎B utto‎n2").Check‎e dDim rd3 As Boole‎a n = e.Form.Contr‎o ls("Radio‎B utto‎n3").Check‎e dDim f As Strin‎g = e.Form.Contr‎o ls("TextB‎o x2").Value‎Dim bt As Strin‎g = e.Form.Contr‎o ls("TextB‎o x3").Value‎Dim wz As Strin‎g = e.Form.Contr‎o ls("Combo‎B ox5").Value‎'保存设置Dim str As Strin‎g = fn & "," & fs & "," & fsize‎& "," & r1 & "," & g1 & "," & b1 & _"," & style‎& "," & r2 & "," & g2 & "," & b2 & "," & weigh‎t & _"," & r3 & "," & g3 & "," & b3 & "," & sfxg & _"," & rd1 & "," & gradi‎e nt & "," & rd2 & "," & textu‎r e & "," & rd3 & "," & f & "," & bt & "," & wz f = Proje‎c tPat‎h & "Net\Chart‎" '检查路径是‎否存在If Not FileS‎y s.Direc‎t oryE‎x ists‎(f) ThenFileS‎y s.Creat‎e Dire‎c tory‎(f)End IfDim lx As Strin‎g = exStr‎f = f & "\" & lx & ".txt" '保存文件名‎If lx.Conta‎i ns("数据系列") Thenf = f.Repla‎c e(lx,lx.SubSt‎r ing(1))str = str & "ㄉ"If FileS‎y s.FileE‎x ists‎(f) ThenDim vs As Strin‎g() = FileS‎y s.ReadA‎l lTex‎t(f).Split‎("ㄉ") Dim qtz As Strin‎g = vs(1)str = str & qtzEnd IfEnd IfFileS‎y s.Write‎A llTe‎x t(f,str,False‎)e.Form.Close‎图表外观_‎Check‎B ox1_‎C heck‎e dCha‎n gede.Form.Contr‎o ls("Group‎B ox2").Enabl‎e d = e.Sende‎r.Check‎e d图表外观_‎Radio‎B utto‎n1_Ch‎e cked‎C hang‎e de.Form.Contr‎o ls("Combo‎B ox3").Enabl‎e d = e.Sende‎r.Check‎e d图表外观_‎Radio‎B utto‎n2_Ch‎e cked‎C hang‎e de.Form.Contr‎o ls("Combo‎B ox4").Enabl‎e d = e.Sende‎r.Check‎e d图表外观_‎Radio‎B utto‎n3_Ch‎e cked‎C hang‎e de.Form.Contr‎o ls("TextB‎o x1").Enabl‎e d = e.Sende‎r.Check‎e d图表外观_‎TextB‎o x2_D‎o uble‎C lick‎Dim f As New OpenF‎i leDi‎a logf.Filte‎r= "图片文件|*.jpg;*.bmp;*.gif"If f.ShowD‎i alog‎= Dialo‎g Resu‎l t.Ok Thene.Form.Contr‎o ls("TextB‎o x1").Value‎=f.FileN‎a meEnd If自定义函数‎App_C‎h artN‎u mDim tblx As Strin‎gSelec‎t Case Args(0)Case 51tblx = "柱形图,簇状柱形图‎"Case 52tblx = "柱形图,堆积柱形图‎"Case 53tblx = "柱形图,百分比堆积‎柱形图"Case 57tblx = "条形图,簇状条形图‎"Case 58tblx = "条形图,堆积条形图‎"Case 59tblx = "条形图,百分比堆积‎条形图"Case 4tblx = "折线图,折线图"Case 65tblx = "折线图,数据点折线‎图"Case 63tblx = "折线图,堆积折线图‎"Case 66tblx = "折线图,堆积数据点‎折线图"Case 64tblx = "折线图,百分比堆积‎折线图"Case 67tblx = "折线图,百分比堆积‎数据点折线‎图"Case 1tblx = "面积图,面积图"Case 76tblx = "面积图,堆积面积图‎"Case 77tblx = "面积图,百分比堆积‎面积图"End Selec‎tRetur‎n tblxApp_C‎h arts‎Dim lst As Strin‎gSelec‎t Case Args(0)Case "柱形图"lst = "簇状柱形图‎|三维簇状柱‎形图|堆积柱形图‎|三维堆积柱‎形图|百分比堆积‎柱形图|三维百分比‎堆积柱形图‎|三维柱形图‎"Case "条形图"lst = "簇状条形图‎|三维簇状条‎形图|堆积条形图‎|三维堆积条‎形图|百分比堆积‎条形图|三维百分比‎堆积条形图‎"Case "折线图"lst = "折线图|数据点折线‎图|堆积折线图‎|堆积数据点‎折线图|百分比堆积‎折线图|百分比堆积‎数据点折线‎图|三维折线图‎"Case "饼图"lst = "饼图|分离型饼图‎|三维饼图|三维分离型‎饼图|复合饼图|复合条饼图‎"Case "面积图"lst = "面积图|三维面积图‎|堆积面积图‎|三维堆积面‎积图|百分比堆积‎面积图|三维百分比‎堆积面积图‎"Case "圆柱图"lst = "柱形圆柱图‎|条形圆柱图‎|堆积柱形圆‎柱图|堆积条形圆‎柱图|百分比堆积‎柱形圆柱图‎|百分比堆积‎条形圆柱图‎|三维柱形圆‎柱图"Case "圆锥图"lst = "柱形圆锥图‎|条形圆锥图‎|堆积柱形圆‎锥图|堆积条形圆‎锥图|百分比堆积‎柱形圆锥图‎|百分比堆积‎条形圆锥图‎|三维柱形圆‎锥图"Case "棱锥图"lst = "柱形棱锥图‎|条形棱锥图‎|堆积柱形棱‎锥图|堆积条形棱‎锥图|百分比堆积‎柱形棱锥图‎|百分比堆积‎条形棱锥图‎|三维柱形棱‎锥图"End Selec‎tRetur‎n lstApp_C‎h artT‎y peDim tblx As Integ‎e rSelec‎t Case Args(0)Case "柱形图"。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

59.设置会话方式:SET TALK ON OFF
60.运行DOS 命令:!RUN DOS命令
61.注释命令:&&[注释信息] 或NOTE [注释信息]
62.清屏:CLEAR
63.缓冲区数据存盘:FLUSH
64.显示系统状态信息:LIST STATUS [TO PRINT] 或 DISPLAY STATUS [TO PRINT]
12. 空格函数:SPACE(数值表达式)
13. 截取子字符串函数:SUBSTR(字符串表达式,起始位置[,长度])
14. 左截取函数:LEFT(字符串表达式,长度)
15. 右截取函数:RIGHT(.字符串表达式,长度)
16. 字符串长度函数:LEN(字符串表达式)
37. 系统信息返回函数:SYS(数值表达式)
38. 字段个数函数:FCOUNT()
39. 记录长度函数:RECSIZE()
40. 记录号函数:RECNO()
41. 开始位置测试函数:BOF()
42. 结束位置测试函数:EOF()
CLOSE INDEX
23.主索引文件的改变:SET ORDER TO 数值表达式
24.索引文件的重建:REINDEX
25.顺序查找:LOCATE FOR 条件 [范围] 配合命令:CONTINUE
26.索引查找:FIND 字符串数字 SEEK 表达式
14.物理删除:PACK
15.全部物理删除:ZAP
16.设置删除标记生效或无效:SET DELETE ON OFF
17.记录值送数组:SCATTER TO 数组名[FIELDS字段名清单]
18.数组值送记录:GATHET FROM 数组名[FIELDS字段名清单]
19.建立排序文件:SORT ON 字段名1[ADC],字段名2 [ ADC]。。。。 TO 数据库文件名[FORWHILE条件][FIELDS字段名清单][范围]
26. 小写字母转换为大写字母函数:UPPER(字符串)
27. 测试数据类型函数:TYPE(”表达式”)
28. 文件存在函数:FILE (”盘符:文件名”)
Hale Waihona Puke 29. 条件函数:IIF(条件,表达式1,表达式2)
30. 当前日期函数:DATE()
27.过滤筛选记录SET FILTER TO [条件]
29.统计记录个数:COUNT[范围] [FORWHILE条件] [TO 内存变量]
30.纵向求和:SUM [范围][表达式清单][FORWHILE 条件][TO 内存变量清单]
31.纵向求平均值:AVERAGE [范围][表达式清单][FORWHILE 条件][TO 内存变量清单]
4.程序文件的建立:MODIFY COMMAND [程序文件名]
5.程序文件的运行:DO 程序文件名
17. 字符重复函数:REPLICATE(字符串表达式,数值表达式)
18. 字符串替换函数:STUFF(字符串表达式1,起始位置,长度,字符串表达式2)
19. 字符转换为ASCII码值:ASC(字符串表达式)
20. ASCII码值转换为字符:CHR(数值表达式)
7. 取模函数:MOD(数值表达式1,数值表达式2)
8. 最大值函数MAX(数值表达式1,数值表达式2)
9. 最小值函数:MIN(数值表达式1,数值表达式2)
10. 宏替换函数:&字符型内存变量[.]
11. 子串位置函数:AT (字符串1,字符串2)
31. 当前时间函数:TIME()
32. 取年函数:YEAR(日期型数据)
33. 取月函数:MONTH(日期型数据)
34. 取日函数:DAY(日期型数据)
35. 接收用户按键函数:INKEY([数值表达式])
36. 全屏幕编辑状态下的用户按键函数:READKEY()
48.内存变量的显示:LIST MEMORY [TO PRINT] 或DISPLAY MEMORY [TO PRINT]
49.内存变量的保存:SAVE TO 内存变量文件名 [ALL LIKE EXCEPT 内存变量名结构]
50.内存变量的清除:RELEASE 内存变量名清单ALL LIK EXCEPT内存变量名结构
65.帮助命令:HELP [项目]
二:函数
1. 绝对值函数:ABS(数值表达式)
2. 自然指数函数:EXP(数值表达式)
3. 自然对数函数:LOG(数值表达式)
4. 取敕函数:INT(数值表达式)
5. 四舍五入函数:ROUND(数值表达式)
6. 平方根函数:SQRT (数值表达式)
21. 数值转换为字符串函数:STR (数值表达式[,长度][,小数位])
22. 字符串转换为数值函数:VAL(字符串)
23. 字符串转换为日期函数:CTOD(字符串)
24. 日期转换为字符串函数:DTOC(日期)
25. 大写字母转换为小写字母函数:LOWER(字符串)
51.清除全部内存变量:CLEAR MEMORY 或RELEASE ALL 或CLEAR ALL
52.内存变量的恢复:RESTORE FROM 内存变量文件名 [ADDITIVE]
53.系统状态设置;SET
54.功能键的设置:SET FUNCTION 数值表达式 TO 字符串
9.显示记录:LIST [范围][FOR WHILE条件][FIELDS字段名清单][OFF][TO PRINT]
DISPLAY [范围][FOR WHILE条件][FIELDS字段名清单][OFF][TO PRINT]
10.记录指针移动:绝对移动:GOGOTO 数值表达式 TOP BOTTOM
4.修改数据库结构;格式;MODIFY STRUCTURE 功能:修改数据库结构。
5.打开数据库;格式:USE [数据库文件名[ALIAS别名]]
6.追加记录:APPEND [BLANK]
7.插入记录:INSERT [BEFORE][BLANK]
8.从文件追加记录:
APPEND FROM 数据库文件名[FOR条件][FIELDS字段名清单][范围]
43. 找到找不到记录函数:FOUND()
44. 工作区号函数:SELECT()
45. 记录个数函数:RECCOUNT()
46. 工作区中打开的数据库文件名函数:DBF(数值表达式)
三.和程序相关的命令:
1.给变量赋值:(1)内存变量名=表达式
(6)@行,列 [SAY 表达式] GET 变量
2.变量值的显示:(1)?表达式清单
(2)表达式清单
(3)@行,列 SAY 表达式
3.数组的定义:DIMENTION 数组名1(下标1[,下标2]),数组名2(下标1[,下标2])……
FOXBASE+命令全集
一.数据库相关的命令
1.退出命令: 格式:QUIT 功能:退出 FOXBASE+系统。
2.建立数据库:格式:CREATE 数据库文件名 功能:建立数据库文件
3.显示数据结构:格式:LIST STRUCTURE 或DISPLAY STRUCTURE 功能:显示当前库的结构。
35.数据库的横向连接:
JION WITH别名 TO 数据库文件名 FOR条件 [FIELDS字段名清单]
36.数据库的更新:UPDATE ON 关键字 FROM 别名 REPLACE 字段名1 WITH 表达式1 [,字段名2 WITH 表达式2…][RANDOM]
37.复制数据库:COPY TO 数据库文件名 [范围] [FORWHILE条件] [FIELDS字段名清单]
相对移动:SKIP [数值表达式]
11.修改记录:
EDIT [范围][FIELDS字段名清单][FORWHILE条件]
GHANGE [范围] [FIELDS字段名清单] [FORWHILE条件]
REPLACE [范围] 字段名1 WITH 表达式1。。。。[FORWHILE条件]
(2)STORE 表达式 TO 内存变量名清单
(3)INPUT [提示信息] TO 内存变量名
(4)ACCEEP [提示信息] TO 内存变量名
(5)WAIT [提示信息] [TO 内存变量名]
43.列文件目录:DIR 文件名 [TO PRINT ]
44.磁盘文件的复制:COPY FILE 源文件名 TO 目标文件名
45.文件重命名:RENAME 源文件名 TO 新文件名
46.删除文件:DELETE FILE 文件名 或ERASE 文件名
47.显示文本文件内容:TYPE 文件名 [TO PRINT]
20.建立索引文件:INDEX ON 关键字表达式TO 索引文件名 [UNIQUE ]
21.索引文件的打开USE [数据库文件名INDEX索引文件名清单]
SET INDEX TO [索引文件名清单]
22.索引文件的关闭:SET INDEX TO
BROWSE [FIELDS字段清单][LOCK数值表达式][FREEZE字段名] [NOMENU] [NOAPPEND] [NOMODIFY] [WIDTH数值表达式] [NOFOLLOW]
12.逻辑删除记录:DELETE [范围][FORWHILE 条件]
13.恢复记录:RECALL [范围][FORWHILE 条件]
32.分类汇总:
TOTAL ON 关键字TO 汇总库名[FOR WHILE条件][FIELDS字段名清单][范围]
33.选择工作区:SELECT 工作区号别名0
相关文档
最新文档