学生学籍成绩管理系统源程序.docVIP

模块1: Option Explicit Public con As ADODB.Connection Public rs As ADODB.Recordset Public username As String Public usergrade As String Public userpwd As String Public cmd As ADODB.Command 模块2 Option Explicit Sub hidewindow() With ActiveWindow .DisplayGridlines = False .DisplayHeadings = False .DisplayOutline = False .DisplayZeros = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False End With End Sub Sub showwindow() With ActiveWindow .DisplayGridlines = T