frmaddcj.frm

这是一个VB+ACCESS开发的学生信息管理系统,我是用了一个多月才弄出来的嘎,界面美观,功能使用,你感觉好的话,那你要支持我的嘎!

         Width           =   360
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "班级"
         Height          =   180
         Left            =   120
         TabIndex        =   9
         Top             =   4245
         Width           =   360
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "专业"
         Height          =   180
         Left            =   120
         TabIndex        =   7
         Top             =   3840
         Width           =   360
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "姓名"
         Height          =   180
         Left            =   2640
         TabIndex        =   6
         Top             =   4260
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "学号"
         Height          =   180
         Left            =   2640
         TabIndex        =   4
         Top             =   3840
         Width           =   360
      End
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   120
      Top             =   5760
      Visible         =   0   'False
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   4
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=student_data\student_massage.mdb;Persist Security Info=False"
      OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=student_data\student_massage.mdb;Persist Security Info=False"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.Label Label3 
      Caption         =   "选择专业，班级"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   1455
   End
End
Attribute VB_Name = "frmaddcj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Adodc2.RecordSource = " select * from 学籍 where 专业名称='" & Trim(Combo1.Text) & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Combo2.Clear
Combo2.Text = "请选择"
With Adodc2.Recordset
    .MoveFirst
    b = ""
    Do While Not .EOF
    a = .Fields(4)
    If a <> b Then
    Combo2.AddItem .Fields(4)
    End If
    b = a
    .MoveNext
    Loop
    End With
    End If
End Sub

Private Sub Combo2_Click()
Adodc2.RecordSource = " select * from 学籍 where 班级名称='" & Trim(Combo2.Text) & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Combo4.Clear
Combo4.Text = "请选择"
With Adodc2.Recordset
    .MoveFirst
    Do While Not .EOF
    Combo4.AddItem .Fields(1)
    .MoveNext
    Loop
    End With
    End If
 Adodc4.RecordSource = "select * from 各班课程 where 班级名称='" & Trim(Combo2.Text) & "'"
 Adodc4.Refresh
 If Adodc4.Recordset.RecordCount > 0 Then
 Combo3.Clear
 Combo3.Text = "请选择"
With Adodc4.Recordset
   .MoveFirst
   Do While Not .EOF
   Combo3.AddItem .Fields(0)
   .MoveNext
   Loop
   End With
   End If
End Sub

Private Sub Combo4_Click()
Adodc3.RecordSource = " select * from 学籍 where 姓名='" & Trim(Combo4.Text) & "'"
Adodc3.Refresh
If Adodc3.Recordset.RecordCount > 0 Then
With Adodc3.Recordset
Text1.Text = .Fields(0)
End With
End If
End Sub

Private Sub Command1_Click()
If Combo1.Text = "请选择" Then
MsgBox "你还没有选择专业", vbOKOnly, "提示"
Combo1.SetFocus
Exit Sub
End If
If Combo2.Text = "请选择" Then
MsgBox "你还没有选择班级", vbOKOnly, "提示"
Combo2.SetFocus
Exit Sub
End If
If Combo3.Text = "请选择" Then
MsgBox "你还没有选择课程", vbOKOnly, "提示"
Combo3.SetFocus
Exit Sub
End If
If Combo4.Text = "请选择" Then
MsgBox "你还没有选择姓名", vbOKOnly, "提示"
Combo4.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "你输入分数", vbOKOnly, "提示"
Text3.SetFocus
Exit Sub
End If
     Adodc5.RecordSource = "select * from 成绩 where 课程名称='" & Trim(Combo3.Text) & "' and 姓名='" & Trim(Combo4.Text) & "'"
     Adodc5.Refresh
     With Adodc5.Recordset
     If Not .EOF Then
     MsgBox "已经存在“" & Trim(Combo4.Text) & "”的“" & Trim(Combo3.Text) & "”了，请到修改成绩里修改", vbOKOnly, "询问"
     Text3.Text = ""
     Exit Sub
     Else
    .AddNew
    .Fields(0) = Text1.Text
    .Fields(1) = Combo4.Text
    .Fields(2) = Combo3.Text
    .Fields(3) = Text3.Text
    .Fields(4) = Combo2.Text
    .UpdateBatch
    MsgBox "添加成绩成功", vbOKOnly, "提示"
    Text3.Text = ""
    DataGrid1.Refresh
    End If
    End With
    Adodc1.Refresh
    End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Dim intRsp As Integer
Dim strSQL As String
strSQL = "是否删除“" & Adodc1.Recordset("姓名") & "”的“" & Adodc1.Recordset("课程名称") & "”的成绩?"
intRsp = MsgBox(strSQL, vbQuestion + vbYesNo, "询问")
If intRsp = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub

Private Sub Command4_Click()
Adodc1.Recordset("分数") = Text2.Text
Adodc1.Recordset.UpdateBatch
MsgBox "修改成功", vbOKOnly, "提示"
DataGrid2.Refresh
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.CancelBatch
Adodc1.Refresh
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.UpdateBatch
Unload Me
End Sub

Private Sub Command7_Click()
Dim intRsp As Integer
Dim strSQL As String
strSQL = "是否删除“" & Adodc1.Recordset("班级名称") & "”所有学生的成绩?"
intRsp = MsgBox(strSQL, vbQuestion + vbYesNo, "询问")
If intRsp = vbYes Then
Do While Not Adodc1.Recordset.EOF
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Loop
MsgBox "全部删除成功", vbOKOnly, "提示"
End If
End Sub

Private Sub Form_Load()
SSTab1.Tab = 0
Adodc1.RecordSource = "select * from 班级 order by 专业名称"
Adodc1.Refresh
Dim a As String
Dim b As String
Dim mNode As Node
With Adodc1.Recordset
     .MoveFirst
     Set mNode = TreeView1.Nodes.Add(, , .Fields(1), .Fields(1), 1, 2)
     a = .Fields(1)
     .MoveNext
     .MovePrevious
     Do Until .EOF
     b = a
     a = .Fields(1)
     If a <> b Then
     Set mNode = TreeView1.Nodes.Add(b, tvwLast, a, a, 1, 2)
     mNode.Tag = "专业"
     .MovePrevious
     Else
     Set mNode = TreeView1.Nodes.Add(b, tvwChild, .Fields(0), .Fields(0), 1, 2)
     mNode.Tag = "班级"
     End If
     .MoveNext
     Loop
    End With
Adodc2.RecordSource = " select * from 学籍 "
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Combo1.Clear
b = ""
Combo1.Text = "请选择"
With Adodc2.Recordset
    .MoveFirst
    Do While Not .EOF
    a = .Fields(5)
    If a <> b Then
    Combo1.AddItem .Fields(5)
    End If
    b = a
    .MoveNext
    Loop
    End With
    End If

End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If SSTab1.Tab = 0 Then
If Node.Tag = "班级" Then
  Adodc1.RecordSource = "select * from 成绩 where 班级名称='" & Node.Key & " ' order by 学号"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  Else
  Adodc1.RecordSource = "select * from 成绩 where 班级名称=''"
  Adodc1.Refresh
  End If
  DataGrid1.Caption = TreeView1.SelectedItem.FullPath & "--学生成绩"
  Text3.SetFocus
  End If
If SSTab1.Tab = 1 Then
If Node.Tag = "班级" Then
  Adodc1.RecordSource = "select * from 成绩 where 班级名称='" & Node.Key & " ' order by 学号"
  Adodc1.Refresh
  Set DataGrid2.DataSource = Adodc1
  Else
  Adodc1.RecordSource = "select * from 成绩 where 班级名称=''"
  Adodc1.Refresh
  End If
  DataGrid2.Caption = TreeView1.SelectedItem.FullPath & "--学生成绩"
  Text2.SetFocus
  End If
  If Adodc1.Recordset.RecordCount > 0 Then
  Command7.Enabled = True
  Else
  Command7.Enabled = False
  End If
  End Sub
Private Sub Form_Initialize()
ChDrive App.Path
ChDir App.Path
End Sub