找出其存在的问题,并提出解决方案。
针对要开发的系统进行人事系统调研,提出开发系统的可行性分析。
在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。
在系统的设计中,详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。
在系统的实现中,给出了系统的界最近正好有空,看到不少人对VFP控制EXCEL有兴趣,现将上次的“精华贴”重新整理一下,供各位爱好者参考!oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式1、对象的创建与关闭 *******************************eole=CREATEOBJECT('Excel.application') && 创建Excel对象eole.Workbooks.add && 添加新工作簿eole.Worksheets("sheet3").Activate && 设置第3个工作表为激活工作表eole.Workbooks.Open("D:\ABC\11.xls") && 打开指定工作簿eole.visible=.t. && 显示Excel窗口eole.visible=.F. && 不显示Excel窗口eole.Caption="VFP应用程序调用Microsoft Excel" && 更改Excel标题栏eole.ActiveWorkbook.SaveAs("D:\ABC\22.xls") && 工作表另为eole.ActiveWorkbook.saved=.t. && 放弃存盘页脚内容1找出其存在的问题,并提出解决方案。
针对要开发的系统进行人事系统调研,提出开发系统的可行性分析。
在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。
在系统的设计中,详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。
在系统的实现中,给出了系统的界edRange.Copy && 拷贝整个工作表eole.ActiveSheet.Range("A1:E2").Copy && 拷贝指定区域eole.WorkSheet("Sheet2").Range("A1").PasteSpecial && 粘贴eole.ActiveWorkbook.Save && 存盘(自动存盘不提问)eole.Workbooks.close && 关闭工作簿eole.quit && 退出Excel2、单元格的设置 ***********************************eole.ActiveSheet.Columns("D:D").Delete && 删除列eole.ActiveSheet.Columns("A:B").Delete && 删除列eole.ActiveSheet.Columns(1).ColumnWidth=20 && 列的宽度(单位:字符个数)eole.ActiveSheet.Columns(2).ColumnWidth=30页脚内容2找出其存在的问题,并提出解决方案。
针对要开发的系统进行人事系统调研,提出开发系统的可行性分析。
在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。
在系统的设计中,详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。
在系统的实现中,给出了系统的界eole.ActiveSheet.Columns("C:BE").ColumnWidth=9.5eole.Selection.Columns.AutoFit && 最适合的列宽eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3 && 指定边框线宽度(其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)eole.ActiveSheet.Range("A1:BE29").Borders(1).LineStyle=1 && 设置四个边框线条的类型eole.ActiveSheet.Range("A1:BE29").Borders(2).LineStyle=1 && 设置四个边框线条的类型eole.ActiveSheet.Range("A1:BE29").Borders(3).LineStyle=1 && 设置四个边框线条的类型eole.ActiveSheet.Range("A1:BE29").Borders(4).LineStyle=1 && 设置四个边框线条的类型eole.ActiveSheet.Rows(1).Insert && 在第1行之前插入一行eole.ActiveSheet.Columns(2).Insert && 在第2列之前插入一列页脚内容3找出其存在的问题,并提出解决方案。
针对要开发的系统进行人事系统调研,提出开发系统的可行性分析。
在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。
在系统的设计中,详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。
在系统的实现中,给出了系统的界eole.cells(1,2).value="ABTMC" && 给单元格赋值eole.cells(2,2).value="&BBBB" && 给单元格赋值eole.ActiveSheet.Cells(1,4).ClearContents && 清除单元格公式eole.ActiveSheet.Rows(1).RowHeight=1/0.035 && 设置指定行的高度(单位:磅)*(行高为1厘米,1磅=0.035厘米)eole.ActiveSheet.ROWS(1)="黑体" && 设置字体eole.ActiveSheet.ROWS(1).Font.Size=14 && 设置字体大小eole.ActiveSheet.ROWS(1).Font.Bold=.t. && 设置整行字体为粗体eole.ActiveSheet.Cells(1,1).Font.Italic=.t. && 设置字体为斜体eole.Range("A3:BE3").selecteole.selection.WrapText = .T. && 自动换行eole.selection.HorizontalAlignment=3 && 水平方向2左对齐,3居中,4右对齐eole.selection.VerticalAlignment = 2 && 垂直方向1靠上,2居中,3靠下页脚内容4找出其存在的问题,并提出解决方案。
针对要开发的系统进行人事系统调研,提出开发系统的可行性分析。
在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。
在系统的设计中,详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。
在系统的实现中,给出了系统的界eole.Range("A2:B2").selecteole.selection.MergeCells = .T. && 合并单元eole.selection.HorizontalAlignment=2 && 水平方向2左对齐,3居中,4右对齐eole.selection.VerticalAlignment = 2 && 垂直方向1靠上,2居中,3靠下eole.Range("A5:M5").selecteole.Selection.Interior.ColorIndex = 34 && 设置行颜色为[淡兰]eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal = ;"_ * #,##0.00_ ; _ * -#,##0.00_ ;_ * "+"-"+"??_ ;_ @_ " && 指定区域内的数字显示格式3、打印页面的设置 *********************************eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 && 设置页眉到顶端边距为2厘米页脚内容5找出其存在的问题,并提出解决方案。
针对要开发的系统进行人事系统调研,提出开发系统的可行性分析。
在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。
在系统的设计中,详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。
在系统的实现中,给出了系统的界eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 && 设置页脚到底边距为3厘米eole.ActiveSheet.PageSetup.TopMargin=4/0.035 && 设置顶边距为4厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 && 设置底边距为4厘米eole.ActiveSheet.PageSetup.LeftMargin=2/0.035 && 设置左边距为2厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.035 && 设置右边距为2厘米eole.ActiveSheet.PageSetup.CenterHorizontally=.t. && 设置页面水平居中eole.ActiveSheet.PageSetup.CenterVertically=.t. && 设置页面垂直居中eole.ActiveSheet.PageSetup.PaperSize=8 && 设置页面纸张大小(1-窄行8 5 11 39-宽行14 11)eole.ActiveSheet.PageSetup.Orientation=2 && 横向eole.ActiveSheet.PageSetup.PrintTitleRows="$1:$3" && 定义固定行eole.ActiveSheet.PageSetup.PrintTitleColumns="$A:$C" && 定义固定列eole.ActiveSheet.PageSetup.CenterHeader= "&14&BTMC" && 设置页眉eole.ActiveSheet.PageSetup.CenterFooter="表__第&P页" && 设置页脚页脚内容6找出其存在的问题,并提出解决方案。