📄 studentmis.frm

📁 简单的数据库系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      Begin VB.Menu MENUMODLEG 
         Caption         =   "修改团员信息"
      End
      Begin VB.Menu DELLEA 
         Caption         =   "删除团员信息"
      End
      Begin VB.Menu GOLEAGUE 
         Caption         =   "转出团员组织关系"
      End
   End
   Begin VB.Menu ROOMGOOD 
      Caption         =   "宿舍管理(&R)"
      Begin VB.Menu QUERYROOM 
         Caption         =   "查询宿舍信息"
      End
      Begin VB.Menu line100 
         Caption         =   "-"
      End
      Begin VB.Menu addstudinfor 
         Caption         =   "添加学生宿舍信息"
      End
      Begin VB.Menu modroom 
         Caption         =   "修改学生宿舍信息"
      End
      Begin VB.Menu ROOM 
         Caption         =   "卫生检查结果"
      End
   End
   Begin VB.Menu MENUEXCELENT 
      Caption         =   "毕业生管理(&G)"
      Begin VB.Menu QUERYEXCELENT 
         Caption         =   "查询毕业生信息"
      End
      Begin VB.Menu line101 
         Caption         =   "-"
      End
      Begin VB.Menu ADDEXCELENT 
         Caption         =   "添加学生信息"
      End
      Begin VB.Menu MODEXCELENT 
         Caption         =   "修改学生信息"
      End
      Begin VB.Menu DELSTUD 
         Caption         =   "删除学生信息"
      End
   End
End
Attribute VB_Name = "studentmdi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub INTOTEACHER_Click()

End Sub

Private Sub MENUADDNEWCLASS_Click()
addclass.Show
End Sub

Private Sub ADDUSER_Click()
adduser.Show
End Sub

Private Sub ADDCLASSE_Click()
addclass.Show
End Sub

Private Sub ADDCOURSETABLE_Click()
addtable.Show
End Sub

Private Sub addcouse_Click()
addcourse.Show
End Sub

Private Sub ADDEXCELENT_Click()
addstudgo.Show
End Sub

Private Sub ADDSTUDIN_Click()
addstudentin.Show
End Sub

Private Sub MENUDELSTUDENT_Click()
studentmoney.Show
End Sub

Private Sub addtable_Click()
addtable.Show
End Sub

Private Sub CREATNEWCOURSE_Click()
addcourse.Show
End Sub

Private Sub DELCLASS_Click()
modclass.Show

End Sub

Private Sub addstudinfor_Click()
addroom1.Show
End Sub

Private Sub addtablee_Click()
addtable.Show
End Sub

Private Sub backup_Click()
 studentmdi.StatusBar1.Panels.Item(1).Text = "正在备份数据库数据..."
 Set dream = Nothing 'close database
         MsgBox "请插入软盘？", vbOKCancel, "提示!"
         progressbar.Visible = True
         progressbar.Show
       ' Label1.Caption = "正在备份数据库数据...."
         On Error GoTo errprompt
         mouseponter = 11
         FileCopy "f:\schoolgroup\school.mdb", "a:\schoolgroup\school.mdb "
         mouseponter = 0
         
         MsgBox "数据库备份完成！", vbOKOnly, "提示！"
         studentmdi.StatusBar1.Panels.Item(1).Text = " "
         progressbar.Hide
         Exit Sub
         
       
 
errprompt:
          Me.MousePointer = 0
        Select Case err.Number
                Case 57
                    MsgBox "磁盘已经损坏!", vbOK, vbciritcl
                Case 70
                    MsgBox "磁盘写保护!", vbOK, vbciritcl
                Case Else
                    err.Descripation
         End Select
End Sub

Private Sub DELLEA_Click()
modleague.Show
End Sub

Private Sub delmoney_Click()
'modmoney.Show
End Sub

Private Sub delmoney1_Click()
modmoney.Show
End Sub

Private Sub delscore_Click()
modscore.Show
End Sub

Private Sub DELSTBAD_Click()
modstudgood.Show
End Sub

Private Sub DELSTBADIN_Click()
modbad.Show
End Sub

Private Sub DELSTUD_Click()
modstudgo.Show
End Sub

Private Sub DELSTUDIN_Click()
modstudinf.Show
End Sub

Private Sub DELTABLE_Click()
modtable.Show
End Sub

Private Sub goclass1_Click()
goclass.Show
End Sub

Private Sub gostudent_Click()
gostudent.Show
End Sub

Private Sub gostudent1_Click()
gostudent.Show
End Sub

Private Sub MENUADDNEWLEG_Click()
addleague.Show
End Sub

Private Sub MENUADDSCORE_Click()
addscore.Show
End Sub

Private Sub menuadduser_Click()
adduser.Show
End Sub

Private Sub MENUCOUNTSCORE_Click()
queryscore.Show
End Sub

Private Sub menudeluser_Click()
deluser.Show
End Sub

Private Sub menuexit_Click()
studentmdi.Hide
login.Show
End Sub

Private Sub MENUJIAONAMONEY_Click()
addmoney.Show
End Sub

Private Sub MENUMODCLASS_Click()
 addclass.Show
End Sub

Private Sub MENUMODIFYSCORE_Click()
modscore.Show
End Sub

Private Sub menumodifyuser_Click()
moduser.Show
End Sub

Private Sub menumoduser_Click()
'modifyuserpass.Show
End Sub

Private Sub MENUMODLEG_Click()
modleague.Show
End Sub

Private Sub MENUQUERYCLASS_Click()
'queryclass.Show
End Sub

Private Sub MENUQUERYLEG_Click()
queryleague.Show
End Sub



Private Sub MODCOURSETABLE_Click()
modtable.Show
End Sub

Private Sub modcourse_Click()
addcourse.Show
End Sub

Private Sub MODEXCELENT_Click()
modstudgo.Show
End Sub

Private Sub modmoney_Click()
End Sub

Private Sub modmoney1_Click()
modmoney.Show
End Sub

Private Sub modroom_Click()
addroom1.Show
End Sub

Private Sub MODSTBAD_Click()
modbad.Show
End Sub

Private Sub MODSTUDBAD_Click()
modstudgood.Show
End Sub

Private Sub MODSTUDIN_Click()
modstudinf.Show
End Sub

Private Sub motable_Click()
modtable.Show
End Sub

Private Sub QUERYSTUDIN_Click()
querystudent.Show
End Sub

Private Sub rerurndata_Click()
    Set dream = Nothing
    MsgBox "    请插入数据源软盘？", vbOKCancel, "提示!"
    studentmdi.StatusBar1.Panels.Item(1).Text = "正在还原数据库数据..."
    On Error GoTo errprompt
    mouseponter = 11
    
    progressbar.Show
     Label1.Caption = "正在还原数据库数据...."
    FileCopy "A:\schoolgroup\school.mdb", "F:\schoolgroup\school.mdb"
    mouseponter = 0
    
    MsgBox "   数据库更新完成！", vbOKOnly, "提示！"
     studentmdi.StatusBar1.Panels.Item(1).Text = " "
    progressbar.Hide
    Exit Sub
    
     
errprompt:
          Me.MousePointer = 0
        Select Case err.Number
                Case 57
                    MsgBox "磁盘已经损坏!", vbOK, vbciritcl
                Case 70
                    MsgBox "磁盘写保护!", vbOK, vbciritcl
                Case Else
                    Resume Next
                    'Err.Descripation
         End Select

    
End Sub

Private Sub ROOM_Click()
checkroom.Show
End Sub

Private Sub STUDBADIN_Click()
addstudbad.Show
End Sub

Private Sub STUDGOOD_Click()
querystgood.Show
End Sub

Private Sub STUDGOODIN_Click()
addstudgood.Show
End Sub

 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

 'dream.Close
Select Case Button.Key
        
       Case Is = "open"
         Set dream = Nothing
         MsgBox "    请插入数据源软盘？", vbOKCancel, "提示!"
         On Error GoTo errprompt
         mouseponter = 11
         progressbar.Show
         Label1.Caption = "正在还原数据库数据...."
         FileCopy "A:\schoolgroup\school.mdb", "F:\schoolgroup\school.mdb"
        
         mouseponter = 0
         
         MsgBox "   数据库更新完成！", vbOKOnly, "提示！"
        progressbar.Hide
         Exit Sub
        Case Is = "save"
         studentmdi.StatusBar1.Panels.Item(1).Text = "正在备份数据库数据..."
         Set dream = Nothing
         
         MsgBox "请插入软盘？", vbOKCancel, "提示!"
         On Error GoTo err
         Label1.Caption = "正在备份数据库数据...."
         
         progressbar.Visible = True
         progressbar.Show
         i = 1
         On Error GoTo errprompt
         mouseponter = 11
         FileCopy "f:\schoolgroup\school.mdb", "a:\schoolgroup\school.mdb "
          i = 30
         For i = 1 To 30
            i = i + 1
            If i = 30 Then
              progressbar.Hide
            End If
         Next i
         mouseponter = 0
         
         MsgBox "数据库备份完成！", vbOKOnly, "提示！"
         studentmdi.StatusBar1.Panels.Item(1).Text = " "
         progressbar.Hide
         Exit Sub
         
err:
    MsgBox "确认软盘是否准备好!", vbQuestion + vbOKCancel, "提示!"
 
errprompt:
        Me.MousePointer = 0
        Select Case err.Number
                Case 57
                    MsgBox "磁盘已经损坏!", vbOK, vbciritcl
                Case 70
                    MsgBox "磁盘写保护!", vbOK, vbciritcl
                Case Else
                    MsgBox "磁盘没有准备好!", vbOKCancel, vbciritcl
                  'err.Descripition
         End Select

       Case Is = "cut"
           Clipboard.SetText studentmdi.ActiveForm.ActiveControl.SelText
           studentmdi.ActiveForm.ActiveControl.Text = " "
       Case Is = "copy"
           Clipboard.Clear
           Clipboard.SetText studentmdi.ActiveForm.ActiveControl.SelText
       Case Is = "paste"
           studentmdi.ActiveForm.ActiveControl = Clipboard.GetText(vbCFText)
       Case Is = "zongxiang"
           'window hengxiang
           Me.Arrange vbTileHorizontal
       Case Is = "zongxian"
           Me.Arrange vbTileVertical
       Case Is = "cengdei "
           Me.Arrange vbCascade
       Case Is = "help"
           'help.show
       Case Is = "stop"
        Unload Me
 End Select
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -