ad Main_Ysgl_Add
      Main_Ysgl_Add.Show
      EnaF Main_Ysgl
    End Sub
    Private Sub CmdFind_Click()
      Adodc1.RecordSource = "select * from 医生信息表 where 医生信息表." & Combo1.Text & " like'" + Text1.Text + "'+'%'order by 编号"
      Adodc1.Refresh
    End Sub
    Private Sub CmdModify_Click()
      Load Main_Ysgl_Update
      Main_Ysgl_Update.Show
      EnaF Main_Ksgl
    End Sub
    Private Sub CmdDelete_Click()
      If Adodc1.Recordset.RecordCount > 0 Then
         rs.Open "select * from 医生信息表 where 编号='" + MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) + "'", cnn, adOpenKeyset, adLockOptimistic
         If rs.RecordCount > 0 Then
           rs.Delete
           Adodc1.Refresh
         End If
         rs.Close
       Else
         MsgBox "没有要删除的数据！"
      End If
    End Sub
    Private Sub Cmdend_Click()
      EnaT Frm_Main
      Unload Me
    End Sub