原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 连接对象 Dim rs As New ADODB.Recordset 记录集对象 Dim ZhiCheng As ADODB.Field 职称字段 Dim I_JiaoShou As Integer, I_FuJiaoShou As Integer, I_JiangShi As Integer, I_ZhuJiao As Integer 定义存放各类职称人数的变量 Set cn = CurrentProject.Connection rs.Open 教师, cn, adOpenDynamic, adLockOptimistic, adCmdTable Set ZhiCheng = rs.Fields(职称) 初始化存放各类职称人数的变量 I_JiaoShou = 0 I_FuJiaoShou = 0 I_JiangShi = 0 I_ZhuJiao = 0 rs.MoveFirst Do While Not rs.EOF 遍历教师表 If ZhiCheng = 教授 Then I_JiaoShou = I_JiaoShou + 1 End If If ZhiCheng = 副教授 Then I_FuJiaoShou = _____________________ End If If ZhiCheng = 讲师 Then I_JiangShi = _________________ End If If ZhiCheng = 助教 Then I_ZhuJiao = I_ZhuJiao + 1 End If rs ________________ 记录指针向下移动 Loop 将各类职称人数的数据填入文本框中 Text_jiaoshou =___________________ Text_fujiaoshou =____________________ Text_jiangshi =_________________ Text_zhujiao =_____________________ rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub M 考生文件夹下有一个Sample4.mdb数据库，已经设计“学生”表和“信息统计”窗体。 如下图所示： 请按以下要求设计相关程序： 1、当单击窗体中的“统计”按钮时，则从学生表中统计出男、女生平均年龄，然后将统计结果分别填入文本框中； 提示：代码已经部分设计，请先删除下划线然后在该处补充完整。 2、单击“退出”按钮，退出Access。 Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 连接对象 Dim rs As New ADODB.Recordset 记录集对象 Dim SEX As ADODB.Field 性别字段 Dim AGE As ADODB.Field 年龄字段 Dim I_NanSheng As Integer, I_NvSheng As Integer 定义存放男、女生人数的变量 Dim I_NanShengSum As Integer, I_NvShengSum As Int
文档评论（0）