Visual FoxPro课程设计案例精编

**************************************** *欢迎光临VFP精英站 http://www.foxer.net* **************************************** 程序名: quickwd 用途: 运行时动态地将一个网格内容生成 WORD 表 注: 你的计算机中必须装有 WORD97 或以上版本 调用方法: IF NOT "RPTTOWD.VCX" $ SET("CLASSLIB") SET CLASSLIB TO RPTTOWD.VCX ENDIF CREATEOBJECT('QuickWD',要打印的网格名,是否显示生成过程,报表标题) 其中 要打印的网格名:串变量 是否显示生成进程: 数值型变量, 1 显示. 2 不显示 报表标题: 串变量 例1:生成标题为 '材料入库清单'的表格,不显示生成过程 CreateObject('QuickWD',THISFORM.grdPurchase,2,'材料入库清单') 例2:生成标题为 '期初库存'的表格,显示生成过程 CreateObject('QuickWD',THISFORM.PAGEFRAME1.PAGE1.grdList,1,'期初库存') 注:我以前写一个叫 Gds 的程序,其中有一个功能是把当前表格中的内容写入到 WORD 中,当时我还没有找到在 WORD 中生成表格的方法, 所以只好把文本直接写到 WORD 文档中,结果令我自己都不满意.今天我找到了把表内容写到 WORD 的表格中的方法,所以写了这个类. 在实际程序设计中,当遇到用户对报表格式要求十分苛刻时,我就常想将报表写入WORD 表格中,让他自行处理.因为不熟悉 WORD 的人相对说来 要比不熟悉 VFP 的人少多了.希望该程序能对你有所帮助... ================================================================= 在程序中用到的 WordBasic 函数及命令 ViewHeader() ViewHeader 语句将活动文档切换到页面视图，将插入点置于页眉区，然后显示“页眉和页脚”工具栏。如果该工具栏已显示，则隐藏它，并将插入点移到文档区。 ViewHeader() 函数返回下列数值： 值 解释 0 插入点不在页眉区 -1 插入点在页眉区 ================================================================= TextToTable [.ConvertFrom = number] ; [, .NumColumns = number]; [, .NumRows = number]; [, .InitialColWidth = number or text]; [, .Format = number]; [, .Apply = number] 按指定分隔符将选定文字转换为表格。如果不带任何参数运行 TextToTable，Word 在没有逗号时将制表符用作分隔符，没有制表符时用逗号，制表符和逗号都没有或既有制表符又有逗号时用段落标记。TextToTable 语句的参数相当于“表格”菜单“将文字转换成表格”对话框中的选项。 参数 解释 .ConvertFrom 指定分隔文字元素的字符：; 0 段落标记; 1 制 表 符; 2 逗 号; 3 其 它（“将文字转换成表格”对话框的“其它”框中出现的字符） .NumColumns 要创建的列数。 .NumRows 要创建的行数。 .InitialColWidth 按磅或文字尺寸计量的列宽。如果忽略，会计算列宽，以便使表格充满页面。 .Format “表格”菜单的“表格自动套用格式”对话框中列出的某种预定义格式：0 相当于“格式”框中所列第一种格式（“无”），1 相当于第二种，依此类推。 .Apply 指定表格要用的 .Format 指定的格式属性。属性及其值的列表请参阅 TableInsertTable 。 ================================================================= NextCell() NextCell 语句选定下一个表格单元格的内容（作用与在表格中按下 TAB 相同）。如果选定内容多于一个单元格，则 NextCell 选定的是选定内容中第一个单元格的内容。如果插入点或选定内容在表格的最后一个单元格中，NextCell 会添加新行。 NextCell() 与语句功能相同，但插入点或选定内容完全在最后一个单元格内时除外，此时返回 0 而不扩大选定内容，而语句增加一个新行。 注释 可用 EditGoTo .Destination = "\Cell" 来选定当前单元格的内容。预定义书签“\Cell”和许多其它书签将自动得到设置和更新。预定义书签的内容请参阅预定义书签。 ================================================================= TableSelectColumn 选定插入点所在表格列，或选定所有含选定内容的列。如果插入点或选定内容不在表格中，就会出错。. ================================================================= TableColumnWidth [.ColumnWidth = number or text] [, .SpaceBetweenCols = number or text] [, .PrevColumn] [, .NextColumn] [, .AutoFit] [, .RulerStyle = number] 设置所选单元格的列宽和列间距。TableColumnWidth 语句的参数相当于“表格”菜单的“单元格高度和宽度”对话框中的“列”选项卡上的选项。 参数 解释 .ColumnWidth 要应用到所选单元格或列所的宽度，按磅或文字尺寸计量。（.RulerStyle 指定对其它列的影响）。 .SpaceBetweenCols 各列中文字间的距离，按磅或文字尺寸计量。 .PrevColumn 完成前面参数指定的操作（如果有的话）后，选定前一列。 .NextColumn 完成前面参数指定的操作（如果有的话）后，选定下一列。 .AutoFit 尽可能多地减小所选单元格的宽度，而不改变单元格中文字的排列方式。 .RulerStyle 指定 Word 调整表格的方式： 0 如果有选定范围，只改变所选单元格，不保留行宽；如果没有选这范围，Word 设置所选列中全部单元格的尺寸。 1 Word 通过调整选定内容右边的全部单元格与其宽度成比例来保留行宽。 2 Word 通过只调整紧邻选定内容右边的列中的单元格来保留行宽。 3 Word 通过调整选定内容右边的全部单元格来保留行宽，给它们都指定相同宽度。 4 只改变插入点所在单元格 （或选定内容中的第一个单元格）。不保留行宽。 ================================================================= EditSelectAll 选定整个文档。 ================================================================= ShadingPattern() ShadingPattern语句将一种底纹格式应用到选定段落、表单元格、或图文框中。 参数 说明 Type 所应用底纹的格式： 0 13 1 14 2 15 3 16 4 17 5 18 6 19 7 20 8 21 9 22 10 23 11 24 12 25 ShadingPattern() 函数返回下列值： 值 说明 0 （零） 不存在加了底纹的选定内容（底纹图案为“清除”） -1 选定内容中包含混合的底纹图案 1到25或35到61 所有选定内容用同一种底纹图案格式化 ================================================================= TableInsertRow [.NumRows = number] 在所选定或插入点所在行的上方插入一行。如果插入点或选定内容不在表格中，就会出错。如果插入点紧接表格之后， TableInsertRow 在该表格末尾插入一行。 参数 解释 .NumRows 要添加的行数。如果 .NumRows 是 0 或忽略，TableInsertRow 在选定内容上方插入与选定内容行数相同的行。 ================================================================= AppMaximize [WindowName$] [, State] AppMaximize([WindowName$]) 在 Windows 中，AppMaximize 语句指定应用程序窗口最大化或恢复原来大小。 参数 说明 WindowName$ 应用程序窗口名开头部分的字符串。该窗口名一般出现在窗口的标题栏或“任务栏”中。忽略则假设为 Word， WIndowsName$ 的详细内容请参阅 AppActivate。 State 指定将应用程序窗口最大化还是恢复原来大小： 0 恢复应用程序窗口原来大小 1 将应用最大程序窗口化忽略 切换恢复和最大化两种状态。如果应用程序的状态发生变化，它就被激活，如果状态不发生变化（例如运行了指令 AppMaximize“Microsoft Excel”，1，而 Microsoft Excel 已最大化了），应用程序则不被激活。 AppMaximize()函数返回下列值。 值 说明 -1 应用程序窗口最大化 0 (zero) 应用程序窗口没有最大化 ================================================================= TableInsertTable [.ConvertFrom = number] [, .NumColumns = number] [, .NumRows = number] [, .InitialColWidth = number or text] [, .Wizard] [, .Format = number] [, .Apply = number] 将一系列选定的段落转换为表格，若没有选定内容，插入空表格。如果插入点已经在表格内，就会出错。 参数 解释 .ConvertFrom 指定用于将文字项分隔为单元格内容的字符。 0 段落标记（Word 将相隔的段落放入第二列） 1 制表符 2 逗号 .NumColumns 表格的列数。 .NumRows 表格的行数。 .InitialColWidth 按磅或文字尺寸度量的各列初始宽度。如果忽略，就会计算列宽以便表格充满页面。 .Wizard 运行“表格”向导。 .Format “表格”菜单的“表格自动套用格式”对话框列出的某种预定义格式：0 相当于“格式”框中所列的第一种格式（“无”），1 相当于第二种格式，依此类推。 .Apply 指定表格将应用的 .Format 指定的格式属性。可用下列值的任意组合之和。 0 无 1 边框 2 底纹 4 字体 8 颜色 16 自动匹配 32 标题行 64 末行 128 首列 256 末列 ================================================================= FilePageSetup [.Tab = number] [, .TopMargin = number or text] [, .BottomMargin = number or text] [, .LeftMargin = number or text] [, .RightMargin = number or text] [, .Gutter = number or text] [, .PageWidth = number or text] [, .PageHeight = number or text] [, .Orientation = number] [, .FirstPage = number] [, .OtherPages = number] [, .VertAlign = number] [, .ApplyPropsTo = number] [, .Default] [, .FacingPages = number] [, .HeaderDistance = number or text] [, .FooterDistance = number or text] [, .SectionStart = number] [, .OddAndEvenPages =