学生学籍成绩管理系统源程序分享.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 = True .DisplayHeadings = True .DisplayOutline = True .DisplayZeros = True .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With End Sub 模块3: Sub Macro1() Range(D2:D60000).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 群众,预备党员,党员,团员汸敂睴敥??牯畭慬?尽 .IgnoreBlank = True .InCellDropdown = True .InputTitle = \ .ErrorTitle = \ .InputMessage = \ .ErrorMessage = \ .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With End Sub Sub Macro2() Range(J2:J60000).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 汸敂睴敥??牯畭慬?尽本科,专科 .IgnoreBlank = True .InCellDropdown = True .InputTitle = \ .ErrorTitle = \ .InputMessage = \ .ErrorMessage = \ .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With End Sub Sub Macro3() Range(K2:K60000).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _