关 键 词：

毕业设计论文

资源描述：

JSJ06-301@VB考试分析评价系统设计(论文+源代码+开题报告+外文翻译+文献综述+答辩PPT),毕业设计论文

内容简介：

Excel、Access、VB的结合应用作者：杨伟民 微软公司的Office系列办公软件相信已是众所周知，其中Excel强大的统计制表功能、Access功能完备的数据处理能力深受众多用户所喜爱。Visual Bsaic更是微软公司又一有力的产品，它简单易学，在Windows编程中的应用十分广泛。本文通过介绍数据处理及复杂表格的打印，来讨论VB与Excel及Access的结合运用。 由于笔者所在的公司员工众多，在进行职工养老保险缴费的计算工作时，若使用劳动局编制的软件（用Foxbase编写），无论是在管理或维护方面均显得力不从心。于是在公司领 的强 ， 由笔者 编制。 本 是：1. 所有员工 Access进行处理， 于维护。2.在Excel中 制 有表 的 表（Access相 处理复杂表格的能力）， 进行 或其运算的单格 公。3.在VB中编写程currency1，从Access中“数据 Excel 应表格相应的单格， fifl打印 。 分及程currency1 ： 1程 ”Excel、Access ，显 系统动 面，进 系统程面。强一 ，在编写程 Excel及Access数的 用，作是： 单工程 用， 使用的 用列表 Microsoft Access 8.0 Object Library Microsoft Excel 8.0 Object Library 的复 中， 。 mdsMain.bas ”数据 及Excel Public ex As New Excel.ApplicationPublic exwbook As Excel.WorkbookPublic exsheet As Excel.WorksheetPublic mydatabase As DatabasePublic myrecordset1 As Recordset ” Public Opt As Integer 表 Opt frmSelreport.frm Public isYN As BooleanSub Main()Load frmSplashfrmSplash.ShowfrmSplash.Label2.Caption = 系统在 Access数据.Set mydatabase = OpenDatabase(c:sbdasbda.mdb)Set myrecordset1 = mydatabase.OpenRecordset( 表打印(一) 处 frmSplash.Label2.Caption = 系统在 Excel 表格.Set ex = CreateObject(excel.application)Set exwbook = ex.Workbooks.Open(c:sbdasbda.xls)Load FrmInput 数据 中Unload frmSplashLoad FrmMain 程面 中End Sub 2 表打印 nts 其中ExcelDoForVB1()是一 程，由prnProess()用，作用是从Access中“所 数据 ， Excel 应工作表（Worksheet）的相应单格（Cells）中，打印已 数据的表格 prnProess() VB通用 （Commom Dialog）中打印功能的 制。 mdlPrint.basOption Explicit ” 计数Public nRow As Integer, nCol As Integer, nBtoE As Integer ” 打印 Public BeginPage, EndPage, NumCopies程运行时 进行 的 Public nflag, Flag, ifNum数据 中 动数Public PageN As Integer, n As Integerbar1 进 条 Public bar1 As ObjectSub prnProess() 制通用 打印功能Set bar1 = FrmPrint.PgsBar1进 条On Error GoTo errhandle:If Flag = 0 Then当打印 中 全时Select Case Opt 打印的表格Case 1nflag = 1myrecordset1.MoveFirstmyrecordset1.MovePreviousPageN = 1Do While nflag = 1Call ExcelDoForVB1 数据 Excel单格打印PageN = PageN + 1LoopCase 2End SelectElseIf Flag = 2 Then当打印 中 页时If End BeginPage = 0 ThenifNum = 0ElseIf End BeginPage 0 ThenifNum = 1ElseifNum = 2End IfEnd IfSelect Case ifNumCase 2Exit SubCase 0ntsSelect Case Opt 打印的表格Case 1myrecordset1.MoveFirstn = (Begin 1) * (49 - 4 + 1) - 1myrecordset1.Move nPageN = BeginPageCall ExcelDoForVB1 数据 Excel单格打印Case 2End Select Case 1Select Case Opt 打印的表格Case 1myrecordset1.MoveFirstn = (Begin 1) * (49 - 4 + 1) - 1myrecordset1.Move nPageN = BeginPageFor nBtoE = BeginPage To EndPageCall ExcelDoForVB1 Excel单格打印PageN = PageN + 1Next nBtoECase 2End SelectEnd SelectEnd IfEnd IfFrmMain.Visible = TrueExit Suberrhandle:FrmPrint.Visible = FalseFrmMain.Visible = TrueEnd Sub 注意， 段仅通过ExcelDoForVB1() 表（一）的处理，来说明数据 Excel打印的整个过程。 Sub ExcelDoForVB1() 打印 表（一）FrmPrint.Visible = TrueSet exsheet = exwbook.Worksheets(sheet1)ex.Sheets(Sheet1).Selectex.Range(A4:U49).Selectex.Selection.ClearContentsex.Range(A4).Selectbar1.Min = 0bar1.Max = 45 For nRow = 4 To 49bar1.Value = nRow - 4 进 显 进程ntsmyrecordset1.MoveNextIf myrecordset1.EOF Thennflag = 0Exit ForEnd IfFor nCol = 1 To 21exsheet.Cells(nRow, nCol) = myrecordset1.Fields(nCol - 1)Next nColNext nRowexsheet.Cells(52, 21) = 第 + CStr(PageN) + 页FrmPrint.Visible = Falsebar1.Value = 0ActiveWindow.SelectedSheets.PrintOut Copies:=NumCopies End Sub 虽本文 的是大多数已熟练掌握数据技术，且精通编程道的朋友们。但笔者认 仍有必 “一“ 数据 Access的过程，因 编fi来的软件更多是面向类普通用户， 们来说最 紧的是好用，而其间的一系列关联不想深究。所 设计一个好的 面十分有必