报销管理系统学习笔记_第四章_1
时 间:2009-03-14 09:43:07
作 者:rcylbx ID:3459 城市:保定
摘 要: 一、基础数据界面的制作_制作不含子窗体的简单窗体
二、新增窗体制作_frmyg_child_add
正 文:
第四章 基础资料窗体的设计
一、基础数据界面的制作_制作不含子窗体的简单窗体
1、 工具箱定位:鼠标定位空白区,按住向左侧拖动
2、 新建窗体:数据源,tblCodeyg 名称:frmyg_child 默认视图:数据表 记录集类型:快照
3、 导航按钮设置
系统管理_导航按钮设置_选中窗格内记录_修改
指向对象:frmyg_child 对象类型:子窗体
4、 设置权限
系统管理_部门及组权限_双击管理员_管理员组_修改_常规权限_确定
选择基础资料_员工姓名
二、新增窗体制作_frmyg_child_add
1、添加 标签:员工姓名 文本框:ygxm
2、页眉页脚_隐藏页脚
3、复制Activex中一区的控件
4、格式设置
标题:无默认值,输入以下字符:员工姓名新增;
滚动条:默认值为两者都有,修改为:两者均无;
记录选定器:默认为是,修改为:否;
导航按钮:默认为是,修改为:否;
分隔线:默认是为,修改为:否;
自动调整:默认为是,修改为:否;
自动居中:默认是否,修改为:是;
边框样式:默认为可调边框,修改为:对话框边框;
最大化最小化按钮:默认为两者都有,修改为:无。
之后再选择其他选项卡,分别执行以下属性修改:
弹出方式:默认为否,修改为:是;
模式:默认为否,修改为:是。
5、 加入代码
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
Select Case Button
Case "保存"
cmd_Save
Case "关闭"
DoCmd.Close
End Select
End Sub
Private Sub cmd_Save()
Dim rst As DAO.Recordset
If IsNull(Me.ygxm) Then
MsgBox "请输入员工姓名!", vbCritical, "提示:"
Me.ygxm.SetFocus
Exit Sub
End If
Me.Refresh
If Acchelp_StrDataIsExist("tblCodeyg", "ygxm", Me.ygxm) = True Then
MsgBox "你输入的数据已经存在,请重新输入", vbCritical, "警告"
Me.ygxm.SetFocus
Exit Sub
End If
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
Set rst = CurrentDb.OpenRecordset("tblCodeyg", dbOpenDynaset)
rst.AddNew
rst("ygId") = acchelp_autoid("Y",2, "tblCodeyg", "ygId")
rst("ygxm") = Me.ygxm
rst.Update
rst.Close
Set rst = Nothing
'刷新数据
If IsLoaded("usysfrmMain") Then
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
End If
MsgBox "保存成功!", vbInformation, "提示"
Me.ygxm = Null
End If
End Sub
6、设置权限
系统_导航按钮设置_基础资料_按钮(员工姓名)_对象属性_新增
系统管理_部门和组权限 _双击管理员_选中管理员组_选中“员工姓名”条目_权限设置_新增
7、界面美化
文本框 背景:黄 特殊效果:平面 边框:深灰 背景:透明
代码格式化的工具
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
学习心得
最新文章
- 精美简单实用的系统面板_完善版(改...(05.18)
- Access提示方法成员未找到的解...(05.17)
- Access运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)