我的课程设计(Access/VB)

1、登陆界面

代码为如下：

 

 11 Private Sub quit_Click()
 2 2     On Error GoTo Err_quit_Click
 3 3        DoCmd.quit
 4 4     Err_quit_Click:
 5 5        MsgBox Err.Description
 6 6        Resume Exit_quit_Click    
 7 7 End Sub
 8 8 
 9 9 Private Sub reset_Click()
10    On Error GoTo Err_reset_Click
11       DoCmd.quit
12     Exit_reset_Click:
13        Exit Sub
14 Err_reset_Click:
15     MsgBox Err.Description
16     Resume Exit_reset_Click    
17 End Sub
18 
19 Private Sub submit_Click()
20 On Error GoTo Err_submit_Click    
21     Dim rs As New ADODB.Recordset
22     Dim str As String
23     Dim num As Integer    
24     'str = "select count(*) from admin where admin.sno='" & Me.username & "' and admin.password = '" & Me.password & "'"
25     Set rs = New ADODB.Recordset
26    
27     If IsNull(Me.username) Then
28         MsgBox ("请输入用户名称!")
29     ElseIf IsNull(Me.password) Then
30         MsgBox ("请输入用户密码!")
31        ' Me.Visible = False        
32     Else
33         str = "select * from admin where admin.sno='" & Me.username & "' and admin.password = '" & Me.password & "'"
34         rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
35        ' MsgBox (str)
36         'MsgBox (rs.RecordCount)        
37             If rs.RecordCount > 0 Then            
38                 'start 登陆到另一个对话框
39                   Dim stDocName As String
40                 Dim stLinkCriteria As String    
41                 stDocName = "main"
42                 DoCmd.OpenForm stDocName, , , stLinkCriteria
43                 ''''''''''''''''''''''''' end
44                 Else
45                     MsgBox "你输入的用户和密码有误", vbOKOnly, "警告信息"
46              End If        
47      End If 
48 Exit_submit_Click:
49     Exit Sub
50 Err_submit_Click:
51     MsgBox Err.Description
52     Resume Exit_submit_Click
53 End Sub
54 

 

 2.添加删除，修改。代码如下：

 

  1 Option Compare Database
  2 
  3 Private Sub Command17_Click()
  4 On Error GoTo Err_Command17_Click
  5 
  6 
  7     Screen.PreviousControl.SetFocus
  8     DoCmd.FindNext
  9 
 10 Exit_Command17_Click:
 11     Exit Sub
 12 
 13 Err_Command17_Click:
 14     MsgBox Err.Description
 15     Resume Exit_Command17_Click
 16     
 17 End Sub
 18 
 19 
 20  
 21 
 22 
 23 
 24 Private Sub Command12_Click()
 25     Dim rs As ADODB.Recordset
 26     Dim temp As String
 27     
 28     Set rs = New ADODB.Recordset
 29     
 30     If IsNull(Me.username) Then
 31         MsgBox ("你输入的数据不能为空,请你重新输入!")
 32         Me.username.SetFocus
 33     Else
 34         temp = "select * from admin where sno ='" & Me.username & "'"
 35         rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 36         If rs.RecordCount > 0 Then
 37             rs.Delete adAffectCurrent
 38             rs.Update
 39             Me.subTable.Requery ' 子表中的内容更新
 40             MsgBox ("用户信息已经删除!")
 41             Me.username = Null
 42             Me.password = Null
 43             Me.confirmPassword = Null
 44             Me.username.SetFocus
 45         Else
 46             MsgBox ("你输入的用户没有发现,请重新输入!")
 47             Me.username.SetFocus
 48         End If
 49     End If
 50            
 51         
 52 
 53 End Sub
 54 
 55 Private Sub Command13_Click()
 56     If IsNull(Me.username) Then
 57         MsgBox ("请你先输入要修改的用户名称!")
 58     Else
 59         If (Me.password = Me.confirmPassword) Then
 60             Dim rs As ADODB.Recordset
 61             Dim temp As String
 62             Set rs = New ADODB.Recordset
 63             
 64             temp = "select * from admin where sno ='" & Me.username & "'"
 65             rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 66             If (rs.RecordCount > 0) Then
 67                 rs("sno") = Me.username
 68                 rs("password") = Me.password
 69                 rs.Update
 70                 Me.subTable.Requery
 71                 MsgBox ("用户信息修改成功!")
 72                 
 73                 Me.username = Null
 74                 Me.password = Null
 75                 Me.confirmPassword = Null
 76             End If
 77             rs.Close
 78         Else
 79             MsgBox ("两次输入的密码不一致或不能为空!")
 80             Me.username = Null
 81             Me.password = Null
 82             Me.confirmPassword = Null
 83             Me.username.SetFocus
 84         End If
 85         
 86             
 87     End If
 88     
 89 End Sub
 90 
 91 Private Sub Command14_Click()
 92     DoCmd.Close
 93 End Sub
 94 
 95 Private Sub Form_Load()
 96     Dim rs As ADODB.Recordset
 97     Dim temp As String
 98     
 99     Set rs = New ADODB.Recordset
     temp = "select * from admin"
     rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        
     rs.Close
 End Sub
 
 Private Sub Command11_Click()
     Dim rs As ADODB.Recordset
     Dim temp As String
     
     Set rs = New ADODB.Recordset
     
     If IsNull(Me.username) Or IsNull(Me.password) Then
         MsgBox ("你输入的数据不能为空,请重新输入!")
         Me.username.SetFocus
     Else
         If (Me.password = Me.confirmPassword) Then
             'rs.Close
             temp = "select * from admin where sno = '" & Me.username & "'"   'UCase(ME.USERNAME) 转换成大写
             rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
             
             If rs.RecordCount > 0 Then
                 MsgBox ("你输入的用户名已经存在,请重新输入!")
             Me.username.SetFocus
         Else
             rs.AddNew
             rs("sno") = Me.username
             rs("password") = Me.password
             rs.Update
             Me.subTable.Requery
             
             MsgBox ("用户信息已经加入!")
             Me.username = Null
             Me.password = Null
             Me.confirmPassword = Null
         End If
         rs.Close
         
     Else
         MsgBox ("用户密码不一次,请你重新输入!")
         Me.username.SetFocus
     End If
 End If
 End Sub