慢性肾衰的尿量变化其发病机制临床意义如何？

    里不明白，发留言问我。   Private Sub 确认_Click()  On Error GoTo Err_确认_Click '容错处理，出错后，转到 GoTo Err_确认_Click  Dim dbs As Database '定义数据表变量  Dim rst1 As DAO。
    Recordset '设置rst1 为dao。recordset的引用  Set dbs = CurrentDb 'dbs变量指向CurrentDb Database对像  Set rst1 = dbs。
  OpenRecordset("操作管理员") 'rst1指向dbs对像的"操作管理员"表格  If Me。  代码。Value = "" Or Me。密码。Value = " " Then '下面四行判断是否在“代码”文本框中输入内容  MsgBox "编号或密码不能为空！"  Exit Sub  End If  If rst1。
  RecordCount <> 0 Then '"操作管理员"数据表不为空的话，指向其第一条记录  rst1。  MoveFirst  End If  With rst1  Do While Not 。
  EOF '循环至数据表最后一条记录  If Me。代码。Value = 。Fields("代码") And Me。密码。Value = 。Fields("密码") '如果输入的代码和密码均与数据库中的一致  Then  操作员代码 = Me。
    代码。Value '保存"代码"到操作员代码变量  操作员姓名 = 。Fields("姓名") '读取数据表中的"姓名"，存入操作员姓名变量  Dim stDocName As String  Dim stLinkCriteria As String  DoCmd。
    Close '关闭DoCmd  stDocName = "系统菜单"  DoCmd。OpenForm stDocName, , , stLinkCriteria '说明一下DoCmd是什么控件，这里不知是什么无法解释  'MsgBox " 操作成功！", vbOKOnly, "提示！"  Exit Sub  End If  MoveNext  Loop  End With  MsgBox "密码错误"  Exit_确认_Click: '终止程序代码段  Exit Sub  Err_确认_Click: '错误处理代码段  MsgBox Err。
    Description '显示错误信息代码  Resume Exit_确认_Click '处理完错误后转向 终止程序代码段  End Sub  —————————————————————————————————————  Private Sub 退出_Click()  On Error GoTo Err_退出_Click '出错转向 Err_退出_Click  DoCmd。
    Close  Exit_退出_Click:  Exit Sub  Err_退出_Click: '错误处理  MsgBox Err。Description。[收起]