frmsetschinfo.frm

数据库管理系统的实习内容

VERSION 5.00
Begin VB.Form frmSetschinfo 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "山东大学校区设置"
   ClientHeight    =   5295
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5760
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5295
   ScaleWidth      =   5760
   Begin VB.CommandButton cmdModify 
      Caption         =   "确认(&O)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2400
      TabIndex        =   7
      Top             =   4680
      Width           =   1095
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出(&X)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   4440
      TabIndex        =   6
      Top             =   4680
      Width           =   1095
   End
   Begin VB.CommandButton cmdSet 
      Caption         =   "设置"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   360
      TabIndex        =   5
      Top             =   4680
      Width           =   1095
   End
   Begin VB.ListBox listAlldepart 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1860
      ItemData        =   "frmSetschinfo.frx":0000
      Left            =   480
      List            =   "frmSetschinfo.frx":0007
      TabIndex        =   4
      Top             =   1800
      Width           =   1695
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加到 ->"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2280
      TabIndex        =   3
      Top             =   2160
      Width           =   1095
   End
   Begin VB.ListBox listSelectdepart 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1860
      ItemData        =   "frmSetschinfo.frx":001A
      Left            =   3600
      List            =   "frmSetschinfo.frx":0021
      TabIndex        =   2
      Top             =   1800
      Width           =   1695
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "<- 去除到"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2280
      TabIndex        =   1
      Top             =   3000
      Width           =   1095
   End
   Begin VB.ComboBox comboSchool 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   2040
      TabIndex        =   0
      Top             =   720
      Width           =   1935
   End
   Begin VB.Frame Frame1 
      Caption         =   "校区院系设置"
      Height          =   4095
      Left            =   240
      TabIndex        =   8
      Top             =   240
      Width           =   5295
      Begin VB.Label Label1 
         Caption         =   "选择校区"
         Height          =   375
         Left            =   720
         TabIndex        =   11
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "所有院系号"
         Height          =   375
         Left            =   600
         TabIndex        =   10
         Top             =   1200
         Width           =   1455
      End
      Begin VB.Label Label3 
         Caption         =   "已属院系"
         Height          =   375
         Left            =   3960
         TabIndex        =   9
         Top             =   1200
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frmSetschinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim flagSet As Boolean
Dim flagSchool As Boolean

Private Sub cmdAdd_Click()
    If listAlldepart.ListIndex <> -1 Then
        listSelectdepart.AddItem listAlldepart.List(listAlldepart.ListIndex)
        
    End If
        
    
End Sub

Private Sub cmdDelete_Click()
    If listSelectdepart.ListIndex <> -1 Then
        listSelectdepart.RemoveItem listSelectdepart.ListIndex
    End If
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdModify_Click()
    Dim i As Integer
    Dim mrc As ADODB.Recordset
    Dim mrcc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Dim myBookmark As Variant
    
    If Not Testtxt(comboSchool.Text) Then
        MsgBox "请先选择校区！", vbOKOnly + vbExclamation, "提示您"
        Exit Sub
    End If
    
    If Not Testtxt(listSelectdepart.List(0)) Then
        MsgBox "请选择院系！", vbOKOnly + vbExclamation, "提示您"
        Exit Sub
    End If
    
    txtSQL = "select * from  schcol_Info where school_No = '" & Trim(comboSchool.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF Then
        For i = 1 To listSelectdepart.ListCount
            mrc.AddNew
            mrc.Fields(0) = comboSchool.Text
            mrc.Fields(1) = listSelectdepart.List(i - 1)
            mrc.Update
        Next i
        mrc.Close
        MsgBox "院系设置成功！", vbOKOnly + vbExclamation, "恭喜"
        
    Else
        mrc.Close
        txtSQL = "delete  from schcol_Info where school_No = '" & Trim(comboSchool.Text) & "'"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        
        
        txtSQL = "select * from schcol_Info "
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        For i = 1 To listSelectdepart.ListCount
            mrcc.AddNew
            mrcc.Fields(0) = comboSchool.Text
            mrcc.Fields(1) = listSelectdepart.List(i - 1)
            mrcc.Update
        Next i
        mrcc.Close
        MsgBox "院系设置成功！", vbOKOnly + vbExclamation, "提示您"
    End If
        
        
    
    
End Sub

Private Sub cmdSet_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
   listAlldepart.Enabled = True
    listSelectdepart.Enabled = True
    cmdModify.Enabled = True
    
    txtSQL = "select * from college_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    While (mrc.EOF = False)
       listAlldepart.AddItem mrc.Fields(1)
        mrc.MoveNext
    Wend
    mrc.Close
    flagSet = True
End Sub

Private Sub comboSchool_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Dim i As Integer
    
    
    listSelectdepart.Clear
    txtSQL = "select * from schcol_Info where  school_No= '" & comboSchool.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
        For i = 1 To mrc.RecordCount
            listSelectdepart.AddItem mrc.Fields(1)
            mrc.MoveNext
        Next i
    End If
    mrc.Close
End Sub

Private Sub Form_Load()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Dim i As Integer
    
    flagSet = False
    flagSchool = False
    listAlldepart.Enabled = False
    listSelectdepart.Enabled = False
    cmdModify.Enabled = False
    
    txtSQL = "select * from school_Info "
     Set mrc = ExecuteSQL(txtSQL, MsgText)
     For i = 1 To mrc.RecordCount
        comboSchool.AddItem mrc.Fields(0)
        mrc.MoveNext
    Next i
End Sub

Private Sub listAlldepart_Click()
    If listAlldepart.ListIndex <> -1 Then
        listSelectdepart.ListIndex = -1
    End If
End Sub

Private Sub listSelectdepart_Click()
    If listSelectdepart.ListIndex <> -1 Then
       listAlldepart.ListIndex = -1
    End If
End Sub