End If
End Sub
Private Sub modifycinfoMenu_Click()
frmModifyclassinfo.Show
End Sub
Private Sub modifycourseMenu_Click()
frmModifycourseinfo.Show
End Sub
Private Sub modifypwdMenu_Click()
frmModifyuserinfo.Show
End Sub
Private Sub modifyresultMenu_Click()
frmModifyresult.Show
End Sub
Private Sub modifysinfo_Menu_Click()
frmModifysinfo.Show
End Sub
..........................................................................................................
............................... frmAdduser 添加用户窗口代码 .....................................
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
If Trim(Text1(0).Text) = "" Then
MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"
Exit Sub
Text1(0).SetFocus
Else
txtSQL = "select * from user_Info "
<< 上一页 [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] ... 下一页 >>