ADO应用代码(精).pdf

11.2 窗体及代码 11.2.1 系统参数与自定义函数 1．系统参数： Option Compare Database Public 数据正确 As Boolean Public 操作员代码 As String Public 操作员姓名 As String Public sys_dbs As Database Public sys_rst As DAO.Recordset Public sys_act As DAO.Recordset 2 ．自定义函数： Public Function 取数据(table, d_field, s_field, s_value As String) As String Dim dbs As Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset(table) If rst.RecordCount 0 Then rst.MoveFirst End If With rst Do While Not .EOF If .Fields(s_field) = s_value Then 取数据 = .Fields(d_field) Exit Function End If .MoveNext Loop End With 取数据 = MsgBox 在表 《 table 》中取 [ s_field ]等于[ s_value ]时[ d_field ] 的数据错误！, vbOKOnly, 提示！ End Function —————————————————————————————————————— Public Sub 写流水表(设备编号1, 日期1, 操作员代码1, 备注1, 经办人1, 部门代码1, 设备用途1) Set sys_dbs = CurrentDb Set sys_act = sys_dbs.OpenRecordset(设备流水表) If sys_act.RecordCount 0 Then sys_act.MoveLast End If With sys_act .AddNew .Fields(设备编号) = 设备编号1 .Fields( 日期) = 日期1 .Fields(操作员代码) = 操作员代码 1 .Fields(备注) = 备注1 .Fields(经办人) = 经办人1 .Fields(部门代码) = 部门代码1 .Fields(设备用途) = 设备用途1 .Update End With End Sub 11.2.2 登录窗口 本模块界面见图11-5。 图11-5 登录窗口 Private Sub 确认_Click() On Error GoTo Err_确认_Click Dim dbs As Database Dim rst1 As DAO.Recordset Set dbs = CurrentDb Set rst1 = dbs.OpenRecordset(操作管理员) If Me.代码.Value = Or Me.密码.Value = Then MsgBox 编号或密码不能为空！ Exit Sub End If If rst1.RecordCoun