报名时间|准考证|沙龙国际|成绩查询|Word2003|Excel2003|Powerpoint2003|Internet|WINXP|Access2000|Photoshopcs4|Authorware7.0|word2007| 更多
各地动态 北京| 天津| 河北| 山西| 湖北| 江苏| 安徽| 山东| 上海| 浙江| 江西| 福建| 湖南| 宁夏| 内蒙古| 河南| 四川| 更多

用友U8模块练习试题5

来源:博大考神职称考试网 发布时间:2013年04月30日
  用VB实现对库文件的分割备份  在设计管理程序时,数据库的软盘备份与恢复是我们经常遇到的一个问题。如果仅仅使用文件复制指令,那么在文件大小超过软盘容量时,就会出现错误。下面我来介绍一种用VB实现的对文件进行分割备份的方法。假设在E:“CLASS目录下有一个名为CLASSES.MDB的文件,3.8M,我们现在要按照每个1.4M,把它分割成3个文件进行备份,然后,再恢复成CLASSES1.MDB文件。启动VB,新建一个工程,添加一个模块,将下列代码填入模块的声明中:  TypeFileSection  BytesAsByte  FileLenAsLong  EndType  TypeSectionedFile  FilesAsFileSection  NumberOfFilesAsLong  EndType  TypeFileInfo  OrigProjSizeAsLong  OrigFileNameAsString  FileCountAsInteger  FileStartNumAsLong  EndType  然后,在Form1中添加两个按钮,分别命名为cmdBackup,Caption:"备份";cmdRestore,Caption:"恢复"。  分别双击按钮,填入以下代码:  PrivateSubcmdBackup_Click  DimSplitFileNameAsString‘待备份的文件名  DimSplitAsLong‘备份文件的大小  DimSaveNameAsString‘备份文件名  DimfNumAsInteger‘可用的文件号  DimNumFilAsLong‘备份文件的数目  DimFilesLenAsLong‘待备份文件的大小  DimCurrentFileAsSectionedFile‘参数结构  SplitFileName="e:“class“classes.mdb"  Split=1400000  FilesLen=FileLen  fNum=FreeFile  OpenSplitFileNameForBinaryAsfNum‘计算备份参数  NumFil=CInt  ReDimCurrentFile.Files  Fori=1ToNumFil  ReDimCurrentFile.Files.Bytes  CurrentFile.Files.FileLen=UBound.Bytes)  Next  Fori=1ToNumFil  Get#fNum,,CurrentFile.Files.Bytes  Next  DimFileInfoFileAsFileInfo‘相关数据写入临时文件  FileInfoFile.FileCount=NumFil  FileInfoFile.OrigFileName=SplitFileName  FileInfoFile.OrigProjSize=FileLen  FileInfoFile.FileStartNum=BeginningNumber  SaveName=SplitFileName".tpl"  fNum=FreeFile  OpenSaveNameForBinaryAs#fNum  Put#fNum,,FileInfoFile  Close#fNum  EndSub  PrivateSubcmdRestore_Click  DimOutNameAsString‘恢复后文件名  DimfNumAsInteger‘可用的文件号  DimtmpFileNameAsString‘临时文件名  DimFileAsSectionedFile‘参数结构  DimFileInfoAsFileInfo‘临时文件的结构  tmpFileName="e:“class“classes.mdb.tpl"  OutName="e:“class“classes1.mdb"  fNum=FreeFile  OpentmpFileNameForBinaryAs#fNum‘取得相关数据  Get#fNum,,FileInfo  Close#fNum  ReDimFile.Files‘打开备份文件中华考试网  Fori=1ToFileInfo.FileCount  OpenName=FileInfo.OrigFileName"."Format,"00#")  fNum=FreeFile  OpenOpenNameForBinaryAs#fNum  Get#fNum,1,File.Files  Close#fNum  Next  fNum=FreeFile  OpenOutNameForBinaryAs#fNum‘恢复  Fori=1ToFileInfo.FileCount  Put#fNum,,File.Files.Bytes  Next  Close#fNum  EndSub  运行该例程,“备份”按钮,用资源管理器看看E:“CLASS目录,可以看到分割后的三个文件:CLASSES.MDB.000、CLASSES.MDB.001、CLASSES.MDB.002,大小分别为:1.33M、1.33M、1.1M,还有一个存放参数的文件:CLASSES.MDB.TPL,大小:1K。“恢复”按钮,这些文件又被恢复成了CLASSES1.MDB。  以上程序在PWIN98、VB6环境下运行通过。需要的朋友可以加入拷贝到A盘等语句,这样,一个实用的备份与恢复程序就完成了。

相关热词搜索2013年职称计算机
下一篇:最后一页

博大考神职称计算机之 XP,Internet,office2003,office2007办公系列

  1. PowerPoint2007
  2. Excel2007
  3. Word2007
  4. Internet应用
  5. PowerPoint2003
  6. Excel2003
  7. Word2003
  8. WindowsXP

博大考神职称计算机之 金山,CAD ,网页制作系列

  1. FrontPage2003
  2. 金山文字2005
  3. 金山表格2005
  4. 金山演示2005
  5. WPSOffice办公组合中文字处理
  6. FrontPage2000
  7. AutoCAD2004

博大考神职称计算机之 图像制作,数据库管理系列

  1. 用友U8
  2. VisualFoxPro5.0
  3. FlashMX2004动画制作
  4. Authorware7.0
  5. Project2000项目管理
  6. Access2000
  7. PhotoshopCS4图像处理
  8. 用友T3会计信息化软件
  1. 您好我报的8月份考的 考试时... 准考证打印时间在报名公告里面都是通知清楚了...
  2. 填充颜色的题目,没有说明清...   您好,填充颜色的题目,当颜色没有具体说...
  3. 请问97元的完整版与147元的协... 97元的完整版和147元的VIP保过它们的学习内容...
  4. 27元的题库版与57元的手把手... 27元的题库版是只有试题与答案操作演示的,适...
  5. 济南市评高级教师评聘需要职... 根据山东省人事厅公布的【鲁人发[2002]9号】【...
  6. 济宁市评高级工程师是要考几... 根据山东省人事厅公布的【鲁人发[2002]9号】【...
  7. 我无法下载word2003,怎么办呢? 您好 您可以直接联系我们协助您下载安...
  8. 你好,我买的职称计算机考试... 您好,职称计算机注册卡是需要注册之后才能使...
沙龙国际娱乐平台