s_choice_frm.frm

学生选课系统。VB+Access。可进行学生信息的管理

      Width           =   2520
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "备注："
      Height          =   180
      Left            =   360
      TabIndex        =   6
      Top             =   2040
      Width           =   540
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "家庭地址："
      Height          =   180
      Left            =   4200
      TabIndex        =   5
      Top             =   1560
      Width           =   900
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "电话："
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   1440
      Width           =   540
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "出生年月："
      Height          =   180
      Left            =   4200
      TabIndex        =   3
      Top             =   960
      Width           =   900
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "性别："
      Height          =   180
      Left            =   360
      TabIndex        =   2
      Top             =   840
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "学生姓名："
      Height          =   180
      Left            =   4200
      TabIndex        =   1
      Top             =   240
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "学生学号： "
      Height          =   180
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   990
   End
End
Attribute VB_Name = "s_choice_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim con As ADODB.Connection
Dim coursename As String
Dim courseno As String

Private Sub cmdchoice_Click()
'选课
Dim rssc As New ADODB.Recordset
Dim rst As New ADODB.Recordset
Dim rstc As New ADODB.Recordset
Dim str As String
Dim query As String
Dim query1 As String
Dim query2 As String
query2 = "select * from teacherinfo where " & "tname" & " = '" & Trim(Text2.Text) & "'"
rst.Open query2, con, 3, 3
If Not rst.EOF Then
   str = rst.Fields(1)
   query = "select * from course_teacher where " & "tname" & " = '" & str & "'"
   rstc.Open query, con, 3, 3
End If
If txtid.Text = "" Then
   MsgBox "请在上方的表格中输入要选课的学生信息！", vbOKOnly, "提示"
Else
    If Combocourse.Text = "" Then
       MsgBox "请选择选修的课程！", vbOKOnly, "提示"
    Else
        query1 = "select * from choice where " & "stuno" & "  = '" & Trim(txtid.Text) & "'and " & "courseno" & "  = '" & Trim(Text1.Text) & "'"
        rssc.Open query1, con, 3, 3, 1
        If Not rssc.EOF Then
           MsgBox "您已选过此课程！", vbOKOnly, "提示"
        Else
            List1.AddItem Text3.Text
            List2.AddItem Combocourse.Text
            rssc.AddNew
            rssc.Fields(1) = Trim(txtid.Text)
            rssc.Fields(2) = Trim(txtname.Text)
            rssc.Fields(3) = Trim(Text1.Text)
            rssc.Fields(4) = Trim(Combocourse.Text)
            rssc.Fields(5) = Trim(Text2.Text)
            rssc.Fields(6) = Trim(Text3.Text)
            rssc.Fields(7) = "2007-7-20"
            rssc.Fields(8) = "二年级"
            rssc.Update
            MsgBox "选课成功！", vbOKOnly, "提示"
         End If
     End If
End If
End Sub

Private Sub cmdclean_Click()
'清空文本框
txtid.Text = ""
txtname.Text = ""
txttel.Text = ""
txtm.Text = ""
txtaddress.Text = ""
txtsex.Text = ""
txtborndate.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
List1.Clear
List2.Clear
txtid.SetFocus
End Sub

Private Sub cmdexit_Click()
'退选
Dim rs As New ADODB.Recordset
Dim query As String
If coursename <> "" Then
    query = "SELECT * FROM choice  WHERE " & "stuno" & "  = '" & txtid.Text & "'and " & " courseno " & " ='" & Text1.Text & "'"
    rs.Open query, con, 3, 3, 1
    If MsgBox("是否退选？", vbYesNo + vbCritical, "退选") = vbYes Then
       rs.Delete
       rs.Update
       List2.RemoveItem courseno
       List1.RemoveItem courseno
       MsgBox "退选成功!", vbInformation
    End If
Else
     MsgBox "请选择需要退选的课程！", vbOKOnly, "退选"
End If
End Sub

Private Sub cmdview_Click()
'添加学生信息
 Dim rss As New ADODB.Recordset
 Dim rsc As New ADODB.Recordset
 Dim i As Integer
 Dim query1 As String
 Dim query2 As String
 query1 = "SELECT * FROM choice WHERE " & "stuno" & "  = '" & Trim(txtid.Text) & "'"
 If txtid.Text <> "" Then
    query2 = "SELECT * FROM studentinfo WHERE " & "sno" & "  = '" & Trim(txtid.Text) & "'"
    rss.Open query2, con, 3, 3
    If Not rss.EOF Then
       txtname.Text = rss.Fields(1)
       txtsex.Text = rss.Fields(2)
       txtborndate.Text = rss.Fields(3)
       txttel.Text = rss.Fields(4)
       txtaddress.Text = rss.Fields(5)
       txtm.Text = rss.Fields(6)
       rsc.Open query1, con, 3, 3
       If rsc.RecordCount > 0 Then
          For i = 1 To rsc.RecordCount
              List1.AddItem rsc.Fields(3)
              List2.AddItem rsc.Fields(2)
              rsc.MoveNext
          Next
       End If
    Else
        MsgBox "该学生编号不存在！", vbOKOnly, "提示"
        txtid.Text = ""
        txtid.SetFocus
    End If
Else
    MsgBox "请在学生编号框中输入学生编号", vbOKOnly, "提示"
End If
End Sub

Private Sub Combocourse_click()
'添加课程信息
Dim rsc As New ADODB.Recordset
Dim rstc As New ADODB.Recordset
Dim rst As New ADODB.Recordset
Dim str As String
Dim query As String
Dim query1 As String
Dim query2 As String
query = "select * from courseinfo where " & "cname" & " = '" & Trim(Combocourse.Text) & "'"
rsc.Open query, con, 3, 3
Text1.Text = rsc.Fields(0)
query1 = "select * from course_teacher where " & "cno" & " = '" & Trim(Text1.Text) & "'"
rstc.Open query1, con, 3, 3
If Not rstc.EOF Then
   str = rstc.Fields(1)
   query2 = "select * from teacherinfo where " & "tno" & " = '" & str & "'"
   rst.Open query2, con, 3, 3
   Text2.Text = rst.Fields(0)
   Text3.Text = rst.Fields(1)
Else
    MsgBox "还未确定任课教师，不可选", vbOKOnly, "提示"
End If
End Sub
Private Sub Form_Load()
Dim rsc As New ADODB.Recordset
Dim query As String
Dim i As Integer

'创建连接
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\050531123贾晨微\db1.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
    
query = "select * from courseinfo"
rsc.Open query, con, 3, 3
If rsc.RecordCount > 0 Then
   For i = 1 To rsc.RecordCount
       Combocourse.AddItem rsc.Fields(1)
       rsc.MoveNext
   Next
End If
End Sub
Private Sub List2_Click()
  coursename = List2.Text
  courseno = List2.ListIndex
End Sub