form2.frm

花图馆管理

   End
   Begin VB.Menu fdfdf 
      Caption         =   "导出管理"
      Begin VB.Menu outdata 
         Caption         =   "导出学生信息数据"
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统管理"
      Begin VB.Menu new 
         Caption         =   "重新登陆"
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
         Shortcut        =   ^Z
      End
   End
End
Attribute VB_Name = "login1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim sql As String

Private Sub adduser_Click()
login2.Show
End Sub

Private Sub banji_Click()
i = 2
login9.Show
End Sub

Private Sub cfdsf_Click()
Form1.Show
End Sub

Private Sub chengji_Click()
login8.Show
End Sub

Private Sub Command1_Click()
rs.MovePrevious
If rs.BOF = False Then
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
Else
rs.MoveLast
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
End If
End Sub

Private Sub Command2_Click()
rs.MoveNext

If rs.EOF = False Then
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
Else
rs.MoveFirst
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
End If
End Sub

Private Sub Command3_Click()
Dim rs As ADODB.Recordset
Dim sql As String
sql = "select * from students"
Set rs = TransactSQL(sql)
rs.MoveLast
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
End Sub

Private Sub Command4_Click()
Dim rs As ADODB.Recordset
Dim sql As String
sql = "select * from students"
Set rs = TransactSQL(sql)
rs.MoveFirst
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
End Sub

Private Sub Command5_Click()
Dim rs As ADODB.Recordset
Dim sql As String
Dim answer As String
answer = MsgBox("确定进行修改吗？", vbYesNo, "确认修改")
If answer = vbYes Then
sql = "select * from students where 学号='" & Text1.Text & "'"
Set rs = TransactSQL(sql)
rs.Fields(1) = Text2.Text
rs.Fields(2) = Text3.Text
rs.Fields(3) = Text4.Text
rs.Fields(4) = Text5.Text
rs.Fields(5) = Text6.Text
rs.Fields(6) = Text7.Text
rs.Fields(7) = Text8.Text
rs.Fields(8) = Text9.Text
rs.Fields(9) = Text10.Text
rs.Fields(10) = Text11.Text
rs.Fields(11) = Text12.Text
rs.Fields(12) = Text13.Text
rs.update
MsgBox "修改成功"
End If
End Sub

Private Sub Command6_Click()
Unload Me
Exit Sub
End Sub

Private Sub dd_Click()
Dim rs As ADODB.Recordset
Dim sql As String
Dim name As String
name = (InputBox$("请输入查找的记录的姓名", "查询姓名"))
If name = "" Then
MsgBox "查询记录不能为空", vbOKOnly + vbExclamation, "提示！"
Else
sql = "select * from students where 姓名='" & name & "'"
Set rs = TransactSQL(sql)
If rs.EOF = fales Then
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
Else
MsgBox "没有此记录", vbOKOnly + vbExclamation, "提示！"
End If
End If
End Sub

Private Sub delete_Click()
login6.Show
End Sub

Private Sub deleteuser_Click()
login4.Show
End Sub

Private Sub editrenyuan_Click()

login1.Show
Command5.Enabled = True
End Sub

Private Sub exit_Click()
Unload Me
Exit Sub
End Sub

Private Sub Form_Load()

Command5.Enabled = False

Text1.Enabled = False
sql = "select * from students"
Set rs = TransactSQL(sql)
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
End Sub

Private Sub gai_Click()
login7.Show
End Sub

Private Sub insert_Click()
login5.Show
End Sub

Private Sub kk_Click()
login7.Show
End Sub

Private Sub new_Click()
login.Show
Unload Me
Exit Sub
End Sub

Private Sub outdata_Click()
login10.Show
End Sub

Private Sub tt_Click()
Dim rs As ADODB.Recordset
Dim sql As String
Dim name As String
name = (InputBox$("请输入查找的记录的学号", "查询学号"))
If name = "" Then
MsgBox "查询记录不能为空", vbOKOnly + vbExclamation, "警告!"
Else
sql = "select * from students where 学号='" & name & "'"
Set rs = TransactSQL(sql)
If rs.EOF = fales Then
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
Text4.Text = rs.Fields(3)
Text5.Text = rs.Fields(4)
Text6.Text = rs.Fields(5)
Text7.Text = rs.Fields(6)
Text8.Text = rs.Fields(7)
Text9.Text = rs.Fields(8)
Text10.Text = rs.Fields(9)
Text11.Text = rs.Fields(10)
Text12.Text = rs.Fields(11)
Text13.Text = rs.Fields(12)
Else
MsgBox "没有此记录", vbOKOnly + vbExclamation, "提示！"
End If
End If
End Sub

Private Sub update_Click()
login3.Show
End Sub

Private Sub xingming_Click()
login9.Show
i = 1
End Sub