关 键 词：

毕业设计论文

资源描述：

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

内容简介：

用EXCEL组件简化VB编程的一种方法 具体使用编辑器步骤如下：进入EXCEL97后，用鼠标点击菜单栏中的“工具”按钮，选择“宏”，再选择“VB编辑器”。即出现类似于VB的标准窗口。由于“VB编辑器”的编辑界面非常类似于“Visual Basic”的界面。所以我们可以从它的控件“工程资源管理器”中插入需要的“添加用户窗体、添加模块、添加类模块”，并且从“属性窗口”中加入属性。例如，我们可以制定一个表格处理定位的窗体，通过程序来实现数据定位和循环调用过程。Public decide As BooleanPrivate Sub CommandButton1_Click()exchangeIf decide ThenUnload MeElseTextBox1.Text = End IfEnd SubSub exchange()If Not decideday(TextBox1.Text) Then GoTo errordecide = TrueDim sql As StringDim db As DatabaseDim rs As Recordsetsql = SELECT * From 数据表sql = sql + WHERE (数据表.日期)=# + TextBox1.Text + #)Set db = OpenDatabase(Application.ThisWorkbook.Path + gl.mdb)Set rs = db.OpenRecordset(sql, dbOpenDynaset)If rs.EOF ThenMsgBox (此日期无数据)Exit SubEnd Ifdaima1 = rs.Fields(代码)nts （以下为数据在表格中的定位及调用）Sheet1.Range(e5).Value = rs.Fields(日期)Sheet1.Range(f7).Value = rs.Fields(数据表记录)Sheet1.Range(d12).Value = rs.Fields(实数100)Sheet1.Range(d14).Value = rs.Fields(实数50)Sheet1.Range(d16).Value = rs.Fields(实数10)Sheet1.Range(d18).Value = rs.Fields(实数5)Sheet1.Range(d20).Value = rs.Fields(实数2)Sheet1.Range(d22).Value = rs.Fields(实数1)Sheet1.Range(h12).Value = rs.Fields(其他100)Sheet1.Range(h14).Value = rs.Fields(其他50)Sheet1.Range(h16).Value = rs.Fields(其他10)Sheet1.Range(h18).Value = rs.Fields(其他5)Sheet1.Range(h20).Value = rs.Fields(其他2)Sheet1.Range(h22).Value = rs.Fields(其他1)Sheet1.Range(d38).Value = Sheet1.Range(d12).Value * 100 + Sheet1.Range(d14).Value * 50 + Sheet1.Range(d16).Value * 10 + Sheet1.Range(d18).Value * 5 + Sheet1.Range(d20).Value * 2 + Sheet1.Range(d22).Value Sheet1.Range(h38).Value = Sheet1.Range(h12).Value * 100 + Sheet1.Range(h14).Value * 50 + Sheet1.Range(h16).Value * 10 + Sheet1.Range(h18).Value * 5 + Sheet1.Range(h20).Value * 2 + Sheet1.Range(h22).Value Dim sql1 As StringDim db1 As DatabaseDim rs1 As Recordsetsql1 = SELECT * From 代码字典sql1 = sql1 + WHERE (代码字典.代码)= & daima1 & )Set db1 = OpenDatabase(Application.ThisWorkbook.Path + gl.mdb)Set rs1 = db1.OpenRecordset(sql1, dbOpenDynaset)Sheet1.Range(h41).Value = rs1.Fields(代码字典名称)Exit Subnts error:MsgBox (日期输入错误)decide = FalseEnd SubPrivate Sub TextBox1_Change()End SubPrivate Sub UserForm_Activate()dyaaa.Top = 30dybbb.Left = 230End SubVB是标准的面 编程 可 编程， 用 件 的编程 。所以可以 调用VB编辑器所 的程序，简化以 为 的一 步骤。由于用户的需 ，VB可以通过 调用OFFICE组件EXCEL，进 调用VB编辑器实现表格处理，以简化程序的编 。VB程序中 调用EXCEL 的格 如下：Private Sub menudy_Click(Index As Integer) 是一个 菜单Select Case IndexCase 0On Error GoTo Last diaoyong = Shell(D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgl.xls, 1)Case 1On Error GoTo Last1 为 表处理diaoyong = Shell(D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgly.xls, 1)Case 3EXIT End SelectExit SubLast:diaoyong = Shell(EXCEL.EXE c:glgl.xls, 1)nts Exit SubLast1:d