三步学做首页-滚动公告

时　间: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