北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
以Access开发平台专业版报销教程中的报销明细的新增修改删除查找为例来详细说明下各代码的作用
以下代码是制作完成后的各个窗体的所有代码,具体哪一部分代码负责新增,哪一部分代码负责修改,可以在前面的教程中找到
首先是frmBxmx_child窗体,所有功能都做好以后窗体中的代码应该是如下所示:
Private Sub报销编号_GotFocus() -------机型代码获得焦点事件
On Error GoTo Err_报销编号_GotFocus: -------错误处理语句,出错的时候转到Err_机型代码_GotFocus:执行
strSelectID = Me. 报销编号 -------给变量赋值,使strselectID等于控件机型代码的值
Forms!usysfrmMain!btnEdit.Tag = 999 -------这是个判断条件,当其大于1时点击"修改"按钮时,平台就会自动打开"_Edit"窗体
Forms!usysfrmMain!labFind.Tag = 1 -------同上,当其等于1时点击查询按钮时,打开平台内的查询窗体
Exit_报销编号_GotFocus:
Exit Sub
Err_机型代码_GotFocus:
Resume Exit_机型代码_GotFocus
End Sub
Private Sub Form_Timer() ------窗体计时器事件
Acchelp_FindStrRecord (g_CurrentSelectStrID) ------利用平台函数acchelp_findstrrecord找到修改前鼠标所选择的记录
'计时器执行一次后不再执行
Me.TimerInterval = 0 ------设定刷新时间为0
End Sub
Public Sub btnDel() ------删除代码
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then -----判断提示框的值,当值为vbyes的时候执行下面代码,vbno的时候跳出代码
DoCmd.Echo False ------防止屏幕闪动
Call acchelp_deletefldstrrow("tblBxmx ", " mxId ", selectstr) ------调用平台自定义函数AccHelp_DeleteFldStrRow,函数的详细说明请看平台帮助第九章
Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child" ------重新加载子窗体frmBxmx_child,以刷新数据子窗体数据
DoCmd.Echo True ------打开屏幕闪动
End If
End Sub
Public Sub btnFind() -------查询按钮单击事件
DoCmd.OpenForm "usysfrmFind" -------打开查询窗体
'文本型对应 3 ,日期型对应 1 ,数值型对于 2 -------查询不同的字段类型的时候,对应不同的数字来表示
Forms!usysfrmFind!cobfldName.RowSource = "报销日期;1;类别名称;3;员工姓名;3;报销金额;2;报销摘要;3;" -------设置需要查询的字段,已经设定该查询字段的数据类型
'指定查询数据来源
Forms!usysfrmFind!labDataSource.Caption = "qryBxmx"
End Sub
Public Sub FindEnd() ----------------查询结束后执行的过程
Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "报销编号", True) -----------刷新子窗体数据
strRptReSource = Forms!usysfrmMain!frmChild.Form.RecordSource ---------让定义的变量变量等于当前查询结束后子窗体的数据源
End Sub