资源描述：
《学生学籍成绩管理系统源程序.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、模块1:OptionExplicitPublicconAsADODB.ConnectionPublicrsAsADODB.RecordsetPublicusernameAsStringPublicusergradeAsStringPublicuserpwdAsStringPubliccmdAsADODB.Command模块2OptionExplicitSubhidewindow()WithActiveWindow.DisplayGridlines=False.DisplayHeadings=False.DisplayOutli
2、ne=False.DisplayZeros=False.DisplayHorizontalScrollBar=False.DisplayVerticalScrollBar=False.DisplayWorkbookTabs=FalseEndWithEndSubSubshowwindow()WithActiveWindow.DisplayGridlines=True.DisplayHeadings=True.DisplayOutline=True.DisplayZeros=True.DisplayHorizontalScroll
3、Bar=True.DisplayVerticalScrollBar=TrueEndWithEndSub模块3:SubMacro1()Range("D2:D60000").SelectWithSelection.Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,Formula1:="团员,党员,预备党员,群众".IgnoreBlank=True.InCellDropdown=True.InputT
4、itle="".ErrorTitle="".InputMessage="".ErrorMessage="".IMEMode=xlIMEModeNoControl.ShowInput=True.ShowError=TrueEndWithEndSubSubMacro2()Range("J2:J60000").SelectWithSelection.Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,F
5、ormula1:="本科,专科".IgnoreBlank=True.InCellDropdown=True.InputTitle="".ErrorTitle="".InputMessage="".ErrorMessage="".IMEMode=xlIMEModeNoControl.ShowInput=True.ShowError=TrueEndWithEndSubSubMacro3()Range("K2:K60000").SelectWithSelection.Validation.Delete.AddType:=xlVali
6、dateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,Formula1:="在校,休学,毕业".IgnoreBlank=True.InCellDropdown=True.InputTitle="".ErrorTitle="".InputMessage="".ErrorMessage="".IMEMode=xlIMEModeNoControl.ShowInput=True.ShowError=TrueEndWithEndSubUserForm1代码:OptionEx
7、plicitPrivateSubCommandButton1_Click()OnErrorGoTodoerrorDimsqlAsStringSetcon=NewADODB.ConnectionSetrs=NewADODB.Recordsetcon.Open"Provider=Microsoft.Jet.OLEDB.4.0;Datasource="&ThisWorkbook.Path&"xjcj.mdb"sql="select*from用户数据表where用户名='"&UserForm1.ComboBox1.Text&"'"r
8、s.Opensql,con,adOpenKeyset,adLockOptimisticIfUserForm1.ComboBox1.Text=""ThenMsgBox"用户名不能为空！"UserForm1.ComboBox1.SetFocusExitSubEndIfIfUser
