数据库

注册

 

发新话题 回复该主题

手把手教你ACCESS窗体实例设计 [复制链接]

1#

今天我们做一个学生信息窗体的实例,来回顾和温习之前学习的内容,通过实例使大家掌握窗体的实际应用。

首先,我们通过窗体向导来创建一个空白窗体,并通过“窗体设计工具”的设计选项下,在窗体的页眉处添加徽标和标题,同时在窗体页眉上适当的位置,再放置一个按钮,标题和按钮都写上相应的内容,并通过窗体设计工具设计选项在窗体主体中添加“子窗体”控件,在属性表中设置子窗体源对象,将学生信息表与子窗体进行关联,在窗体页眉上设置“学生信息录入”按钮:

此时运行窗体进入到窗体视图,看一下我们设计的界面效果,可以看到学生信息表在子窗体中显示:

下一步如何对学生信息表添加新的记录呢?首先,创建学生信息录入界面窗体,该窗体界面之前我们已经创建完成,但是需要通过属性表删除我们需要录入信息的控件来源项,则在设计视图下显示未绑定,我们暂时录入班级,姓名和性别项,对该窗体进行简单的界面设计,并在页眉处添加一个“输入信息后录入”按钮:

完成后,右键点击刚刚添加的“输入信息后录入”按钮,点击事件生成器进入到代码窗口,并在代码窗口键入信息录入代码:

VBA程序代码:

PrivateSubCommand73_Click()DimrstAsADODB.RecordsetDimstrsqlAsStringstrsql="select*from学生信息"Setrst=NewADODB.Recordsetrst.Openstrsql,CurrentProject.Connection,adOpenKeyset,adLockOptimisticrst.AddNewrst!班级.Value=Me.班级.Valuerst!姓名.Value=Me.姓名.Valuerst!性别.Value=Me.性别.Valuerst.Updaterst.CloseSetrst=NothingMsgBoxMe.姓名.Value"录入成功"EndSub

保存并运行窗体进入到窗体视图后,可以输入班级,姓名和性别等项进入学生信息的录入啦,录入完信息后点击“输入信息后录入”按钮,会显示录入信息成功:

前面我们还缺少一步,就是在主窗体界面的学生信息录入按钮加入代码,以此来显示“学生信息表”窗体:

点击事件生成器后进入到代码窗口,输入代码后,再次点击主窗体界面按钮,则弹出学生信息表窗体:

代码:

PrivateSub录入_cmd_Click()DoCmd.OpenForm"学生信息表"EndSub

点击主窗体界面“学生信息录入”按钮后:

会弹出学生信息录入窗体,这样就可以录入信息了:

以上讲的只是一个小小的实例切入点,应用access窗体来制作属于自己的管理系统很灵活,很方便,也很实用,难度系数较小,适合各种中小型公司及中小型数据库管理系统。

结语:喜欢的请

分享 转发
TOP
发新话题 回复该主题