frmroommodify.frm

教务管理系统,用VB 完成,以SQL SERVER 2000作为后台数据库

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmRoomModify 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "卫生成绩修改"
   ClientHeight    =   6540
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   9510
   Icon            =   "FRMROOMMODIFY.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6540
   ScaleWidth      =   9510
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdExit 
      BackColor       =   &H00C0C000&
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7620
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   5460
      Visible         =   0   'False
      Width           =   1005
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0FF&
      Caption         =   "蓝天软件开发室，立足交大，为您开发实用软件！"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "ZBQKB"
      Top             =   6165
      Width           =   9504
   End
   Begin MSDBGrid.DBGrid dbgrdStudent 
      Align           =   1  'Align Top
      Bindings        =   "FRMROOMMODIFY.frx":0442
      Height          =   4485
      Left            =   0
      OleObjectBlob   =   "FRMROOMMODIFY.frx":0452
      TabIndex        =   0
      Top             =   0
      Width           =   9510
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   0
      X2              =   9600
      Y1              =   6810
      Y2              =   6810
   End
   Begin VB.Menu MNUFILE 
      Caption         =   "文件[&F]"
      Begin VB.Menu MNUEXIT 
         Caption         =   "退出[&X]"
      End
   End
   Begin VB.Menu MNUHELP 
      Caption         =   "帮助[&H]"
      Begin VB.Menu MNUNOTE 
         Caption         =   "使用说明[&N]"
      End
   End
End
Attribute VB_Name = "frmRoomModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdExit_Click()
On Error Resume Next
Unload Me
'Frmstart.Show

End Sub

Private Sub dbgrdStudent_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
On Error Resume Next
If dbgrdStudent.Col = 0 Then
    MsgBox ("不能修改宿舍号")
    Cancel = 1
    Exit Sub
End If
If MsgBox("您同意改变吗!", vbQuestion + vbOKCancel, "警告") = vbOK Then
    Cancel = 0
Else
    Cancel = 1
End If
End Sub

Private Sub dbgrdStudent_BeforeDelete(Cancel As Integer)
On Error Resume Next
If MsgBox("您同意删除吗!", vbQuestion + vbOKCancel, "警告") = vbOK Then
    Cancel = 0
Else
    Cancel = 1
End If
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim sqlForModify As String
Dim recForModify As Recordset

sqlForModify = "select ssh as 宿舍号,one as 一月,two as 二月,three as 三月,four as 四月,five as 五月,six as 六月,seven as 七月,eight as 八月,nine as 九月,ten as 十月,eleven as 十一月,twelve as 十二月 from room"
Set recForModify = Dbstudent.OpenRecordset(sqlForModify, dbOpenDynaset)
Set Data1.Recordset = recForModify
Data1.DatabaseName = App.Path + "\DATABASE\STUDENT.MDB"
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Me
'frmRoomMDI.Show
'frmRoomMDI.Enabled = True

End Sub

Private Sub MNUEXIT_Click()
On Error Resume Next
Call cmdExit_Click
End Sub