mainfrm.frm

用VB编写的简单的学生成绩管理系统

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "成绩管理程序客户端"
   ClientHeight    =   3975
   ClientLeft      =   3945
   ClientTop       =   4005
   ClientWidth     =   7110
   BeginProperty Font 
      Name            =   "微软雅黑"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "mainfrm.frx":0000
   MaxButton       =   0   'False
   ScaleHeight     =   3975
   ScaleWidth      =   7110
   Begin VB.Frame frmDB 
      Caption         =   "数据库操作"
      Height          =   975
      Left            =   360
      TabIndex        =   6
      Top             =   2880
      Width           =   6375
      Begin VB.CommandButton cmdRestore 
         Caption         =   "数据库恢复(&R)"
         Height          =   495
         Left            =   3600
         TabIndex        =   8
         Top             =   360
         Width           =   1935
      End
      Begin VB.CommandButton cmdBack 
         Caption         =   "数据库备份(&B)"
         Height          =   495
         Left            =   720
         TabIndex        =   7
         Top             =   360
         Width           =   1935
      End
   End
   Begin VB.CommandButton cmdChangeUserInfo 
      Caption         =   "修改密码(&P)"
      Height          =   495
      Left            =   4920
      TabIndex        =   3
      Top             =   360
      Width           =   1575
   End
   Begin VB.CommandButton cmdAbout 
      Caption         =   "关于(&A)"
      Height          =   495
      Left            =   4920
      TabIndex        =   4
      Top             =   1200
      Width           =   1575
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出(&E)"
      BeginProperty Font 
         Name            =   "微软雅黑"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4920
      TabIndex        =   5
      Top             =   2040
      Width           =   1575
   End
   Begin VB.CommandButton cmdSCmanage 
      Caption         =   "课程成绩管理(&G)"
      BeginProperty Font 
         Name            =   "微软雅黑"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   360
      TabIndex        =   2
      Top             =   2040
      Width           =   3375
   End
   Begin VB.CommandButton cmdCmanage 
      Caption         =   "课程信息管理(&C)"
      BeginProperty Font 
         Name            =   "微软雅黑"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   360
      TabIndex        =   1
      Top             =   1140
      Width           =   3375
   End
   Begin VB.CommandButton cmdSmanage 
      Caption         =   "学生名单管理(&S)"
      BeginProperty Font 
         Name            =   "微软雅黑"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   3375
   End
   Begin VB.Menu muF 
      Caption         =   "文件(&F)"
      Begin VB.Menu muE 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu muM 
      Caption         =   "学生信息管理(&M)"
      Begin VB.Menu muN 
         Caption         =   "学生名单管理(&N)"
      End
      Begin VB.Menu muC 
         Caption         =   "课程信息管理(&C)"
      End
      Begin VB.Menu muG 
         Caption         =   "课程成绩管理(&G)"
      End
   End
   Begin VB.Menu muS 
      Caption         =   "系统(&S)"
      Begin VB.Menu muP 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu muA 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dbBR As Boolean
Private Sub cmdAbout_Click()
    frmAbout.Show
End Sub
Private Sub cmdChangeUserInfo_Click()
    frmChangePwd.Show
    frmChangePwd.txtOld.SetFocus    '这个可以用来设置取得焦点。
End Sub
Private Sub cmdRestore_Click()  '数据库恢复
    Call killDP
    Dim restore As String
    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    con.ConnectionString = "Provider=SQLOLEDB;server=(local);UID=sa;PWD=lsc;"
    restore = "restore database 成绩管理 from disk='d:\backup\mydb.bak'"
    con.Open
    con.Execute "use master"
    'If dbBR = False Then
     '   MsgBox "您尚未备份数据库，请先备份数据库。", vbCritical, "错误"
    'Else
        con.Execute (restore)       '这行代码有很大的问题。(已修复.)
        MsgBox "数据库恢复成功!", vbInformation, "数据库恢复"
    'End If
    con.Close
End Sub
Private Sub Cmdback_Click()     '数据库备份
    Dim conn As New ADODB.Connection
    Dim rec As New ADODB.Command
    conn.ConnectionString = "Provider=SQLOLEDB;server=(local);UID=db4;PWD=lsc;"
    conn.ConnectionTimeout = 30
    conn.Open
    rec.CommandText = "BACKUP DATABASE 成绩管理 TO DISK = 'd:\Backup\mydb.bak'"
    rec.CommandType = 1     '值为1表示执行T-SQL语句
    Set rec.ActiveConnection = conn     '建立连接
    rec.Execute
    conn.Close
    MsgBox "数据库备份成功! 请按时备份数据库。", vbInformation, "数据库备份"
    dbBR = True
End Sub
Private Sub cmdSmanage_Click()
    studentmanage.Show
End Sub
Private Sub cmdCmanage_Click()
    coursemanage.Show
End Sub
Private Sub cmdSCmanage_Click()
    scoremanage.Show
End Sub
Private Sub cmdExit_Click()
    End
End Sub
Private Sub killDP()    '杀死被恢复数据库的进程
    Dim iDb As New ADODB.Connection
    Dim isql As String, connString As String
    Dim iRe As ADODB.Recordset
    Set iDb = New ADODB.Connection
    Set iRe = New ADODB.Recordset
    connString = "Provider=SQLOLEDB;server=(local);UID=sa;PWD=lsc;"
    iDb.Open connString
    isql = "select spid from master..sysprocesses where dbid=db_id('成绩管理')"
    iRe.Open isql, iDb, adOpenKeyset, adLockReadOnly    'adOpenKeyset表示键集游标，adLockReadOnly默认值，只读。无法更改数据。
    While iRe.EOF = False
        isql = "kill " & iRe(0)
        iDb.Execute isql
        iRe.MoveNext
    Wend
    iDb.Close
    'MsgBox "Kill DB4's ID success!", vbInformation, "Kill Success"
End Sub
Private Sub Form_Load()
    dbBR = False
End Sub
Private Sub muA_Click()
    frmAbout.Show
End Sub
Private Sub muC_Click()
    coursemanage.Show
End Sub
Private Sub muE_Click()
    End
End Sub
Private Sub muG_Click()
    scoremanage.Show
End Sub
Private Sub muN_Click()
    studentmanage.Show
End Sub
Private Sub muP_Click()
    frmChangePwd.Show
End Sub