Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > 源码示例

三步学做首页-滚动公告

时 间: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群 (群号:115120150)       access源码网店

最新评论 查看更多评论(5)

2018/4/3 22:46:12lmqlt
谢谢分享,已借鉴到开发平台。还可以扩展一下,点击text2(“公告内容”)可调用公告信息明细界面,程序如下: Private Sub text2_Click() If Me.id = "" Then Exit Sub DoCmd.OpenForm FormName:="frmzngg_Edit", _ DataMode:=IIf(HasPermission("公告信息", "Edit"), acFormEdit, acFormReadOnly), _ OpenArgs:=Me.[id] End Sub

2018/3/29 9:23:24谢玉青
赞!感谢分享!

2018/3/28 12:39:03xlb
请分享下源码

2018/3/27 11:08:44黄生
自己顶一下,虽然介绍不是很完美!毕竟不是演讲家!献丑了!

2018/3/27 11:08:17麥田
学习

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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