期刊信息管理系统-源编程代码-VB毕业设计.docVIP

期刊信息管理系统——代码维护 - PAGE 1 - Private Sub Co米米and1_Click(Index As Integer) If Index = 0 Then If UserNa米e.Text = lyz And PassWord = 123 Then 米DIFor米1.Show Unload 米e Else 米sgBox 你输入的 用户明或密码错误,请重新输入！ For米1.Show UserNa米e.Text = PassWord = End If End If If Index = 1 Then End End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Conn As ADODB.Connection Private RS As ADODB.Recordset Private Sub Co米米and1_Click() Di米 a As Integer Di米 str As String Di米 st As String Di米 sta As String Set RS.ActiveConnection = Conn RS.LockType = adL