学生状况.frm

学生档案管理系统

VERSION 5.00
Begin VB.Form 学生状况界面 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "学生状况"
   ClientHeight    =   5295
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7470
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5295
   ScaleWidth      =   7470
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "学生档案表："
      Height          =   4815
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   6735
      Begin VB.CommandButton Command6 
         Caption         =   "关闭"
         Height          =   375
         Left            =   5520
         TabIndex        =   10
         Top             =   4200
         Width           =   975
      End
      Begin VB.CommandButton Command5 
         Caption         =   "取消"
         Enabled         =   0   'False
         Height          =   375
         Left            =   4230
         TabIndex        =   9
         Top             =   4200
         Width           =   975
      End
      Begin VB.CommandButton Command4 
         Caption         =   "删除"
         Height          =   375
         Left            =   2940
         TabIndex        =   8
         Top             =   4200
         Width           =   975
      End
      Begin VB.CommandButton Command3 
         Caption         =   "更新"
         Enabled         =   0   'False
         Height          =   375
         Left            =   1650
         TabIndex        =   7
         Top             =   4200
         Width           =   975
      End
      Begin VB.CommandButton Command2 
         Caption         =   "添加"
         Height          =   375
         Left            =   360
         TabIndex        =   6
         Top             =   4200
         Width           =   975
      End
      Begin VB.CommandButton Command1 
         Caption         =   ">|"
         Height          =   375
         Index           =   3
         Left            =   3960
         TabIndex        =   5
         Top             =   3600
         Width           =   735
      End
      Begin VB.CommandButton Command1 
         Caption         =   ">>"
         Height          =   375
         Index           =   2
         Left            =   3240
         TabIndex        =   4
         Top             =   3600
         Width           =   735
      End
      Begin VB.CommandButton Command1 
         Caption         =   "<<"
         Height          =   375
         Index           =   1
         Left            =   2520
         TabIndex        =   3
         Top             =   3600
         Width           =   735
      End
      Begin VB.CommandButton Command1 
         Caption         =   "|<"
         Height          =   375
         Index           =   0
         Left            =   1800
         TabIndex        =   2
         Top             =   3600
         Width           =   735
      End
      Begin VB.PictureBox DataGrid1 
         Height          =   3015
         Left            =   360
         ScaleHeight     =   2955
         ScaleWidth      =   6075
         TabIndex        =   1
         Top             =   360
         Width           =   6135
      End
   End
   Begin VB.PictureBox Adodc1 
      BackColor       =   &H80000005&
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   330
      Left            =   1560
      ScaleHeight     =   270
      ScaleWidth      =   4395
      TabIndex        =   11
      Top             =   4560
      Width           =   4455
   End
   Begin VB.Menu xhs 
      Caption         =   "学号升序排列"
      Visible         =   0   'False
   End
   Begin VB.Menu shj 
      Caption         =   "学号降序排列"
      Visible         =   0   'False
   End
   Begin VB.Menu xms 
      Caption         =   "姓名升序排序"
      Visible         =   0   'False
   End
   Begin VB.Menu xmj 
      Caption         =   "姓名降序排序"
      Visible         =   0   'False
   End
End
Attribute VB_Name = "学生状况界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private conn As ADODB.Connection
Private rs As ADODB.Recordset


Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
   Adodc1.Recordset.MoveFirst
End If
If Index = 1 Then
   If Adodc1.Recordset.BOF Then
   Adodc1.Recordset.MoveLast
   Else
   Adodc1.Recordset.MovePrevious
   End If
End If
If Index = 2 Then
   If Adodc1.Recordset.EOF Then
   Adodc1.Recordset.MoveFirst
   Else
   Adodc1.Recordset.MoveNext
   End If
End If
If Index = 3 Then
   Adodc1.Recordset.MoveLast
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "添加" Then
Command2.Caption = "确定"
Adodc1.Recordset.AddNew
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = True
Adodc1.Tag = 1
Else
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Adodc1.Tag = 0
End If
End Sub

Private Sub Command3_Click()
'if adodc1.Recordset.
Adodc1.Recordset.Update
MsgBox "更新成功！", , "系统提示"
Command3.Enabled = False
Adodc1.Tag = 0
End Sub

Private Sub Command4_Click()
If MsgBox("真的要删除吗?", vbYesNo, "") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
   If Adodc1.Recordset.EOF Then
   Adodc1.Recordset.MoveFirst
   End If
End If
Adodc1.Tag = 0
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.CancelBatch adAffectCurrent
Command2.Caption = "添加"
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Adodc1.Tag = 0
End Sub


Private Sub Command6_Click()
If Adodc1.Tag = 1 Then
If MsgBox("是否保存您的修改?", vbYesNo, "") = vbYes Then
Adodc1.Recordset.Update
MsgBox "更新成功！", , "系统提示"
Else
Adodc1.Recordset.CancelBatch adAffectCurrent
End If
End If
Unload Me
End Sub

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Command3.Enabled = True
End Sub

'Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'Adodc1.Caption = tablename + "---" + Str(Adodc1.Recordset.AbsolutePosition) + "/" + Str(Adodc1.Recordset.RecordCount)
'End Sub

Private Sub Form_Load()
Set rs = New Recordset

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data.MDe;Persist Security Info=False"
Adodc1.CommandType = adCmdText
SQL = "select 学号,姓名,性别,年龄,电话,QQ,地址 from data order by 学号"
Adodc1.RecordSource = SQL
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Adodc1.Tag = 0
End Sub