studentmanger.frm

用java编写的学生信息管理系统

Private Sub Command6_Click()
Shell "hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub

Private Sub CourseSet_Click()
CourseManage.Show
End Sub

Private Sub DatabaseConn_Click()
DatabaseConn2.Show
End Sub

Private Sub DataSystemFirst_Click()
CreateDatabase.Show
End Sub

Private Sub Exit_Click()
If Not MsgBox("你确实要离开本系统吗？", vbOKCancel + vbExclamation, "学生信息管理系统 v.1.0") <> vbOK Then
Unload Me
End If
End Sub

Private Sub Login_Click()
StudentLogin.Show
Call Icon_Del(Me.hwnd, 0)
'Me.Visible = False
'Me.Enabled = False
'Me.Hide
Unload Me
End Sub

Private Sub LoginOut_Click()
'将相关登录信息删除
 sysusername = ""
sysuserPWD = ""
Unload Me
StudentLogin.Show

End Sub

Private Sub MDIForm_Load()
StatusBar1.Panels(1).Width = 4000
LoginOut.Enabled = False
DataBaseConn.Enabled = False
If Dir(App.Path & "\psite.psite") <> "" Then '存在
DataSystemFirst.Enabled = False
Else
DataSystemFirst.Enabled = True
Login.Enabled = False
End If

DataBaseManger.Enabled = False
InfoManger.Enabled = False
InfoSelect.Enabled = False
PasswordChange.Enabled = False
Toolbar1.Enabled = False
Toolbar1.Visible = False
 Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
'Call Icon_Add(Me.hwnd, Me.Caption, Me.Icon, 0)



End Sub


Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Call Shell_NotifyIcon(NIM_DELETE, nfIconData)

    End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

      Dim lMsg As Single

      lMsg = X / Screen.TwipsPerPixelX

      Select Case lMsg

        Case WM_LBUTTONUP
        ShowWindow Me.hwnd, SW_RESTORE
End Select

    End Sub
    
    Private Sub MDIForm_Resize()
    

  '判断窗口是否最小化状态，并且是按最小化按纽后第一次发生Resize事件
  If IsIconic(Me.hwnd) <> 0 And MinFlag = False Then
   MinFlag = True
    'Me.Visible = False '隐藏窗口
    Me.Visible = False
   
    '将窗口图标加入通知栏
   ' MsgBox "最小化", , "fddfdf"
   
    Call Icon_Add(Me.hwnd, Me.Caption, Me.Icon, 0)
  End If
End Sub
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 Dim L
 L = X \ 15
  '点击通知栏图标，用鼠标右键时调出弹出菜单
 If L = WM_LBUTTONDOWN Then
 If Not Me.Visible <> True Then
  Me.Visible = False
  Me.WindowState = 0
 Else
Me.WindowState = 2
 Me.Visible = True
 

End If
  ' MsgBox "我出来了", , "注意"

 End If
  
  If Hex(X) = "1E3C" Then
      Me.PopupMenu m_Main
      End If

End Sub

  Private Sub m_Menu_Click(Index As Integer)
  Select Case Index
    Case 0: '当单击"显示窗口"菜单时

    ' MsgBox "显示窗口，我执行了", , "注意"
  
   Me.WindowState = 2
      Me.Show
     ' Me.Show '调出窗口
    Case 1: '当单击"退出"菜单时
      Call Icon_Del(Me.hwnd, 0) '删除通知栏图标
    '  MsgBox "确实要退出本系统吗", 32 + 4, "注意"
      End '退出程序
  End Select
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Call Icon_Del(Me.hwnd, 0)
End Sub

Private Sub PasswordChange_Click()
UserPWDChange.Show
End Sub

Private Sub PayManger_Click()
PayManage.Show
End Sub

Private Sub PaySelect_Click()
PaySelect2.Show
End Sub

Private Sub RestoreDataBase_Click()
If Not conn <> True Then
'检验SQL备份文件是否存在
If Not Dir(App.Path & "\a.bak") <> "" Then '不存在
MsgBox "SQL数据库还未备份，请先备份数据库！", , "提示"
Exit Sub
End If
Dim iDb  As ADODB.Connection
          Dim iConc  As String
    
          iConc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=."
            
          Set iDb = New ADODB.Connection
          iDb.Open iConc
          iDb.Execute "use master"
    iDb.Execute "RESTORE   DATABASE   student   FROM   DISK   =   '" & App.Path & "\a.bak'"
    iDb.Close
    MsgBox "SQL还原成功!", , "数据库"
    


Else
'检验ACCESS备份文件是否存在
If Not Dir(App.Path & "\DB\备份.mdb") <> "" Then '不存在
MsgBox "ACCESS数据库还未备份，请先备份数据库！", , "提示"
Exit Sub
End If
FileCopy App.Path & "\DB\备份.mdb", App.Path & "\Student.mdb"
MsgBox "ACCESS还原成功!", , "数据库"

End If
End Sub

Private Sub ResultManger_Click()
ResultManage.Show
End Sub

Private Sub RusultSelect_Click()
ResultSelect.Show
End Sub

Private Sub SetDataBaseNull_Click()
Dim iDb  As ADODB.Connection
          Dim iConc     As String
      If Not MsgBox("清空数据库后，您以前的信息将全部没有，确认要继续吗？", vbOKCancel + vbExclamation, "敬告！") <> vbOK Then
If Not conn <> True Then

iConc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Data Source=."
            
          Set iDb = New ADODB.Connection
          iDb.Open iConc
   
    
          '打开刚刚创建的数据库
          iDb.DefaultDatabase = "student"
    
          '在刚创建的数据库中创建表
         iDb.Execute "delete  ClassTable"
           iDb.Execute "delete  StudentTable"
           iDb.Execute "delete  CourseTable"
           iDb.Execute "delete  SelectCourseTable"
           iDb.Execute "delete  UserTable where Username <> 'admin'"
            MsgBox "SQL初始化完毕！！", , "数据库"
          '处理完成后关闭数据库
          iDb.Close
          Set iDb = Nothing
Else


    
        iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Student.mdb" & ";Persist Security Info=False;Jet OLEDB:Database password=psite"
            
          Set iDb = New ADODB.Connection
          iDb.Open iConc
    
          '创建数据库
          iDb.Execute "delete * from ClassTable"
          iDb.Execute "delete * from StudentTable"
          iDb.Execute "delete * from CourseTable"
          iDb.Execute "delete * from SelectCourseTable"
          iDb.Execute "delete * from UserTable where UserName <> 'admin' "
         ' iDb.Execute "insert UserTable values('admin','admin',2,)"
          MsgBox "ACCESS初始化完毕！！", , "数据库"
    
          '打开刚刚创建的数据库
          
            
          '处理完成后关闭数据库
          iDb.Close
          Set iDb = Nothing
End If
MsgBox "请重新登录！！", , "提示"
Unload Me
StudentLogin.Show
End If
End Sub

Private Sub StuManger_Click()
StudentManage.Show
End Sub

Private Sub TermSelect_Click()
Select123.Show
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = "今天是：" & Format(Date, "dddddd") & "  北京时间：" & Format(Time, "ttttt")
End Sub

Private Sub 关于我们_Click()
AbortMe.Show
End Sub
Private Sub 层叠_Click()
StudentManger.Arrange vbCascade
End Sub
Private Sub 平铺_Click()
StudentManger.Arrange vbTileHorizontal
End Sub

Private Sub 使用帮助_Click()
Shell "hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub

Private Sub 用户管理_Click()
UserManage.Show
End Sub

Private Sub 纵铺_Click()
StudentManger.Arrange vbTileVertical
End Sub