数据库上机指导实验六vba程序设计

1、VBA程序设一实验目二、实验内实验VBA程序设一实验目二、实验内实验6-1实验步骤如下：（1） txt半径、txt周长、txt择”项，转到VBE DimrAs DimrAsSingle DimsAsSingle DimlAsSingleConstPIAsSingle=给变量rr=Me!txt半s= PI* r l = 2 * PI * r Me!txts Me!txt= End 实验6-2用VBA程序实现窗体“系统登录（VBA）”实验步骤如下：（1） ” PrivateSubCmd确定DimnameAsString,passAsDim PrivateSubCmd确定DimnameAsStrin

2、g,passAsDimrnameMe!txtpassMe!txtIfpass=1234Andname=cuebMsgBox欢迎使用本系统vbOKOnlyvbCritical欢迎MsgBox错误！Me!txt 用户名 = Me!txt 口令 = Me!txt用户名.SetFocusEnd End 或 “确定”ClickPrivateSubcmd确定DimnameAsString,passAsDimr nameMe.txtpassMe.txtIfpass=1234Andname=cuebMsgBox欢迎进入学生管理模块vbOKOnlyvbCritical欢迎rr = vbYes Then Me.t

3、xt 用户名 = Me.txt 口令 = End IfEnd End 分为“良好”，7079分为“中等”，6069分为“及格”，60分以下“不合格”实验步骤如下：分为“良好”，7079分为“中等”，6069分为“及格”，60分以下“不合格”实验步骤如下： PublicSubDimxIfx =90ElseIfx=80ElseIfx=70ElseIfx=60End IfEnd 6-实验步骤如下： Publiceger,iFori=1To10Step1 s = s + iNext End Subs制作一个“记时器”窗体,。实验要求:该窗体运行后首先单击“设置”按钮，然后在制作一个“记时器”窗体,。实

4、验要求:该窗体运行后首先单击“设置”按钮，然后在输入框中输入计时的实验步骤如下：Dim f定义全局变量Private Sub Form_Load()erval 属性为End Suberval=PrivateSubSics定义静态变量s= s+ If s = f Then s = 0 End erval=Me.txt显示s End Sub按钮“cmd 设置”的单击事PrivateSubcmd设置End Sub按钮“cmd 开始”的单击事PrivateSubcmd开始End Suberval=按钮“cmd 开始”的单击事PrivateSubcmd开始End Suberval=开始计。实验要错误。操

5、作步（5） 在“代码”窗口输入各控件事件的代码如下参考Private Sub cmdOK_Click() Dim strSQL As StringDimnameAsString,passAsString Set RS = New ADODB.RecordsetIfIsNull(Trim(Me.CboUser)OrIsNull(Trim(Me.TxtPwd)Then 操作步（5） 在“代码”窗口输入各控件事件的代码如下参考Private Sub cmdOK_Click() Dim strSQL As StringDimnameAsString,passAsString Set RS = New

6、ADODB.RecordsetIfIsNull(Trim(Me.CboUser)OrIsNull(Trim(Me.TxtPwd)Then pass = Trim(Me.TxtPwd) strSQL= Where 用户名&Me.CboUser &strSQL = Select * from pass& where 用户名= & name & = RS.OpenstrSQL,sConnection,IfRS.RecordCount=0Then Me.CboUser = Me.TxtPwd = 无无行来源：Select户表.用户名From户无MsgBox欢迎进入学生管理模块vbOKOnlyvbCri

7、tical欢迎 End IfEnd If EndSubMsgBox欢迎进入学生管理模块vbOKOnlyvbCritical欢迎 End IfEnd If EndSubEnd 实据 ，。操作步骤如下：Private Sub Form_Load()Me.学生成绩输入_子窗体.Form.RecordSource = Select * From 边框样式框边BOX1-略无无无行来源：SelectfromPrivate Sub Form_Load()Me.学生成绩输入_子窗体.Form.RecordSource = Select * From 边框样式框边BOX1-略无无无行来源：Selectfrom行

8、来源无无学号&Me.Cbo1.RowSourceSelect 学院.End Sub+学院.From 学院Private Sub Cbo1_AfterUpdate()Me.Cbo2.RowSource = select 系.+系.系名称 from 系 where 系.院学号&Me.Cbo1.RowSourceSelect 学院.End Sub+学院.From 学院Private Sub Cbo1_AfterUpdate()Me.Cbo2.RowSource = select 系.+系.系名称 from 系 where 系.院& Left(Cbo1.Text, 2) & End Private S

9、ub Cbo2_AfterUpdate() Me.Cbo5.RowSource = select 班级.班级+班级.from where =&Left(Cbo2.Text,4)&End SubPrivate Sub Cbo3_AfterUpdate() Me.Cbo4.RowSource = select 课程.课程 where 学期= & Left(Cbo3.Text, 1) & End Sub+课程.from Private Sub Cbo4_AfterUpdate() Dim RS As New ADODB.RecordsetStrSql = select 学分 from 课程 wher

10、e 课程= & Left(Cbo4.Text, 3) & RS.OpenStrSql,CurrentProject.Connection,adOpenS Me.Txt1.Value = RS!学分Set RS = ic,Me.学生成绩输入_子窗体.Form.RecordSource = select * from &Left(Cbo4.Text, 3) &order by 学号from 学生成绩Me.Cbo6.RowSource = select 学生学号+学生End =& Left(Cbo4.Text,3)& Private Sub Cbo5_AfterUpdate()Me.Cbo6.Row

11、Source = select 学生学号+学生from 学生成绩where 学生.=& Left(Cbo5.Text, 2) & 成绩.=Left(Me.Cbo4,3)&and End SubPrivate Sub Cbo6_AfterUpdate() Dim RS As New ADODB.RecordsetStrSql = SELECT FROM Left(Me.Cbo4,3)&and End SubPrivate Sub Cbo6_AfterUpdate() Dim RS As New ADODB.RecordsetStrSql = SELECT FROM WHERE 学号= & Lef

12、t(Cbo6.Text, & 成绩.=&Left(Me.Cbo4,3) &RS.OpenStrSql,CurrentProject.Connection,adOpenS Me.Txt2.Value = RS!成绩SetRS=Nothing End Subic,Private Sub cmd1_Click()Dim RSAsNewStrSqlSELECT FROM WHERE 学号& Left(Me.Cbo6, & and =& Left(Me.Cbo4,3)& RS.OpenStrSql,CurrentProject.Connection,ic, RS.Open成绩CurrentProject

13、.Connection,adOpenS If IsNull(Me.Cbo1.Value) Thenic, End If , End If End IfEnd IfEnd If End If End IfEnd IfSet RS = Me.学生成绩输入_子窗体.Form.RecordSource = select * =&Left(Me.Cbo4,3)&orderby 学号 End SubPrivate Sub cmd2_Click()End SubPrivate Sub Cmd3_Click()Me.学生成绩输入_子窗体.Form.RecordSourceselect*from 成绩 End

14、Sub实验 。设计一个“学生成绩查询”窗体操作步骤如下：）边框样式框边BOX1-略无无操作步骤如下：）边框样式框边BOX1-略无无无Private Sub From_Load()Me.学生成绩查询_子窗体.Form.RecordSourceSelect*From 学院_系_班级_学生_课程_成绩 Where 学号 = & Me.Cbo1.RowSourceSelect 学院.Frame1.Value=-1 End SubFrom 学院Private Sub Cbol_AfterUpdate() Me.Cbo2.RowSource = select 系.系号= & Left(Cbo1.Text,

15、 2) & End +系Private Sub From_Load()Me.学生成绩查询_子窗体.Form.RecordSourceSelect*From 学院_系_班级_学生_课程_成绩 Where 学号 = & Me.Cbo1.RowSourceSelect 学院.Frame1.Value=-1 End SubFrom 学院Private Sub Cbol_AfterUpdate() Me.Cbo2.RowSource = select 系.系号= & Left(Cbo1.Text, 2) & End +系.from where 系.Private Sub Cbo2_AfterUpdate

16、() Me.Cbo4.RowSource = select 班级.班级from 班级 班级.End =& Left(Cbo2.Text,4)& 行来源：Selectfrom行来源略无无Private Sub Cbo3_AfterUpdate() Me.Cbo5.RowSourceselect 课程.课程学期= & Left(Cbo3.Text, 1) & End Private Sub Chk1_Click()Private Sub Cbo3_AfterUpdate() Me.Cbo5.RowSourceselect 课程.课程学期= & Left(Cbo3.Text, 1) & End Pr

17、ivate Sub Chk1_Click()Cbo5.Enabled = False Cbo5.Enabled=True End If Private Sub Cmd1_Click()DimStrSqlAsString , StrSqlWhere =&Left(Cbo1.Value, 2)&StrSql = StrSql &And 系 End If =&Left(Cbo2.Value,4)& StrSqlStrSql&And 学期&Left(Cbo3.Value,1)& End If StrSqlStrSql&And End IfChk1.Value=0StrSql = StrSql &And

18、 课程 End IfEnd If Frame1.Value = 1Then =&Left(Cbo4.Value,2)&=&Left(Cbo5.Value,3)& , Exit , StrSql = StrSql & And , StrSql = StrSql & And 成绩 & Val(Txt1.Value) & EndIf EndIf EndIf End And 成绩 StrSql = Select 学号,学期,课程名称,成绩,From 学院系_班级_学生_课程_成绩 & Me.学生成绩查询_子窗体.Form.RecordSourceStrSql End SubPrivate Sub Cm

19、d2_Click()End SubPrivate SubMe.学生成绩查询_子窗体.Form.RecordSourceSelect 学号,学期,课程名称,成绩,From 学院_系_班级_学生_课程_成绩 在列表中显示已输入成绩学生的成绩 End SubPrivate Sub Frame1_Click()IfFrame1.Value=-1Then Txt1.Enabled = False Txt2.Enabled = FalseTxt1.Enabled=True Txt2.Enabled=True End IfEnd 69（*）。操作步骤如下：边框样式框边略略无69（*）。操作步骤如下：边框样式

20、框边略略无无略前景色 在“属性”窗口设置ImageList、ToolBarTreeview前景色 在“属性”窗口设置ImageList、ToolBarTreeview前景色无Dim objtree As TreeView Private Sub Form_Load() Dim nodx As nodeDimrs1AsNewADODB.Recordset Dimrs2AsNewADODB.Recordset Dimrs3AsNewADODB.Recordset Dim strsql As StringDim i Dim num1 As String Dimnum11AsDim objtree A

21、s TreeView Private Sub Form_Load() Dim nodx As nodeDimrs1AsNewADODB.Recordset Dimrs2AsNewADODB.Recordset Dimrs3AsNewADODB.Recordset Dim strsql As StringDim i Dim num1 As String Dimnum11AsString Dim num2 As String Dim num22AsSetnodxobjtree.Nodes.Add( strsql = select * from 学院学院学院, rs1.Openstrsql,Curr

22、entProject.Connection,adOpenS Do While Not rs1.EOFic,Set nodx = 学院, rs1!学院名称, 学院, tvwChild, Trim(rs1!)+ num1Trim(rs1!学院 num11 = rs1!学院学院strsqlselect * from where =&num11 &rs2.Openstrsql,CurrentProject.Connection,adOpenS Do While Not rs2.EOFic,Set nodx = objtree.Nodes.Add(num1, tvwChild, Trim(rs2!系 T

23、rim(rs2!系名称) + -系, 2)num22 = rs2!) + 系num2 = Trim(rs2!系 strsqlselect*from系班级where =&num22 &rs3.Openstrsql,CurrentProject.Connection,adOpenS Do While Not rs3.EOFic,Set nodx = objtree.Nodes.Add(num2, tvwChild, Trim(rs3!班级 Trim(rs3!班级名称) + -班, 2) + 班Set rs1 = Nothing Setrs2=Nothing Setrs3 = 管理_子窗体.Form

24、.RecordSourceSet rs1 = Nothing Setrs2=Nothing Setrs3 = 管理_子窗体.Form.RecordSourceselect* 学院_系_objtree.Nodes(1).Expanded=True End Sub)事件代码如下：Private SubDim strsql As String strsql=select * from 学院_系_班级_where 学号= & Me.Txt1.Text rs.Openstrsql,CurrentProject.Connection,ic,管理_子窗体.Form.RecordSourceSetrs=Nothing End SubPrivateSubToolbar1_buttonclick(ByValbuttonAsObject) Select Case button