报销管理系统学习笔记_第五章_1
时 间:2009-03-14 14:02:46
作 者:rcylbx ID:3459 城市:保定
摘 要:一、建查询_qryBxmx
二、基础数据界面 frmBxmx_child 说明为“报销明细”
三、新增窗体 frmBxmx_child_Add
正 文:
第五章 报销明细窗体的设计
一、建查询_qryBxmx
字段为: tblBxmx中的mxId,bxrq tblCodeBxlb中的lbmc
tblCodeyg中的ygxm tblBxmx中的bxje ,bxrq
添加中文标签:要与字段说明书一致 标签后冒号 用英文
二、基础数据界面 frmBxmx_child 说明为“报销明细”
与基础资料类似,只是多了查找、导出、打印功能
1、 数据源为qryBxmx 的所有字段(Select qryBxmx.* FROM qryBxmx )
2、 去掉标签中的冒号
3、 默认视图_数据表 记录集类型_快照
4、 导航菜单,权限
三、新增窗体 frmBxmx_child_Add
前提是,将frmBxmx_child记录集类型设为快照
1、 关闭工具箱向导,拖拽5个文本框及标签
2、 标签依次为:报销日期 报销类别 员工姓名 报销金额 报销摘要
3、 文本框名称依次为:bxrq lbId ygId bxje bxzy (属性-其他选项卡-名称)
4、 窗体的布局调整和界面美化 标题(属性):报销明细新增
5、 输入代码:
Option Compare Database
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.bxrq) Then
MsgBox "请输入报销日期!", vbCritical, "提示:"
Me.bxrq.SetFocus
Exit Sub
End If
If IsNull(Me.lbId) Then
MsgBox "请输入报销类别!", vbCritical, "提示:"
Me.lbId.SetFocus
Exit Sub
End If
If IsNull(Me.ygId) Then
MsgBox "请输入员工姓名!", vbCritical, "提示:"
Me.ygId.SetFocus
Exit Sub
End If
If IsNull(Me.bxje) Then
MsgBox "请输入报销金额!", vbCritical, "提示:"
Me.bxje.SetFocus
Exit Sub
End If
Me.Refresh
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
Set rst = CurrentDb.OpenRecordset("tblBxmx", dbOpenDynaset)
rst.AddNew
rst("mxId") = acchelp_autoid("M",10, "tblBxmx", "mxId")
rst("bxrq") = Me.bxrq
rst("lbId") = Me.lbId
rst("ygId") = Me.ygId
rst("bxje") = Me.bxje
rst("bxzy") = Me.bxzy
rst.Update
rst.Close
Set rst = Nothing
'刷新数据
If IsLoaded("usysfrmMain") Then
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child"
DoCmd.Echo True
End If
MsgBox "保存成功!", vbInformation, "提示"
Me.bxrq = Null
Me.lbId = Null
Me.ygId = Null
Me.bxje = Null
Me.bxzy = Null
End If
End Sub
6、 报销类别 员工姓名 都更改为组合框,背景样式_透明
7、 报销类别 行来源_ Select tblCodeBxlb.* FROM tblCodeBxlb
绑定列:1 列数:2 列宽:0cm;2cm 列表宽度:2cm
8、 员工姓名 行来源表 设为tblCodeyg,其他格式同上
9、 窗体说明,导航 ,分配权限
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)
学习心得
最新文章
- 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)
- 【Access Call用法学习】...(05.06)