报销管理系统学习笔记_第四章_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、界面美化

文本框 背景：黄  特殊效果：平面  边框：深灰  背景：透明

代码格式化的工具

上一课  下一课