Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

三步学做首页-滚动公告

时 间:2018-03-27 10:59:10
作 者:黄生   ID:65150  城市:中山
摘 要:看大家热情高涨,那我就来分享下我做的滚动公告(借鉴大神的作品),思路就不发出来了,自己体会哈!
正 文:

      看大家热情高涨,那我就来分享下我做的滚动公告(借鉴大神的作品),思路就不发出来了,自己体会哈!

点击图片查看大图

点击图片查看大图



1. 进入数据库创建公告信息表,建字段名称:接收部门,公告内容,发布时间。(根据自己实际建),接收部门设置---查阅-组合框-/查询-行来源(添加部门的连接选择),用平台开发的直接用这段代码(如果不会,不建议直接用):Select Sys_Roles.RoleName FROM Sys_Roles; ,公告内容设置文本框即可,字段大小可自由定。发布时间中默认值输入:Now() 在窗体创建公告时会自动生成时间。到此表创建完成。下面是表图。

点击图片查看大图

2.       进入窗体设计,创建一个公告栏字样,两个未绑定对象,调整好位置大小字体颜色等,如图

点击图片查看大图

进入查看代码,输入下面代码:

Option Compare Database

Dim rs As New ADODB.Recordset

Private Sub showDatas()

    Text1 = rs!接收部门 'Text1是刚创建未绑定对象1,意思是给该对象绑定到接收部门。

    Text2 = rs!公告内容 'Text2是刚创建未绑定对象2,意思是给该对象绑定到公告内容。

End Sub

Private Sub Form_Open(Cancel As Integer)

    Me.TimerInterval = 0

    Dim strSQL As String

    Dim cn As ADODB.Connection

    Set cn = CurrentProject.Connection

    rs.CursorLocation = adUseClient

    strSQL = "select * from 公告信息" '连接表中的公告信息库

    rs.Open strSQL, cn, adOpenStatic, adLockReadOnly

    Set cn = Nothing

    If rs.RecordCount > 0 Then showDatas

    Me.TimerInterval = 3600  '每秒显示一条记录时间长短

End Sub

Private Sub Form_Timer()

    If Not rs.BOF And Not rs.EOF Then

        If Not rs.EOF Then rs.MoveNext

        If rs.EOF Then rs.MoveFirst

        If Not rs.EOF Then showDatas

    End If

End Sub


图:

点击图片查看大图

到此窗体设置完毕。


3.创建公告创建编辑页面,这个应该不用说了,在平台先连接表,一键生成即可,自编辑直接创建窗体添加表的字段即可。文采不好,介绍不是很完美 ,步骤就这么多!自己看看,想想,做做。不明白或有更好的欢迎留言探讨。

点击图片查看大图



我借鉴于:

https://zhidao.baidu.com/question/711674506586241005.html




Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助