第五章    报销明细窗体的设计

一、建查询_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、  窗体说明，导航 ，分配权限

 

上一课  下一课