.Enabled=FalsecmdUpdate.Enabled=TruecmdReport.Caption="取消"''更改cmdReport标题cmdReport.Enabled=TruembClose=False'出于编辑状态,则用户不能关闭窗口EndSubPrivateSubcmdFirst_Click()'移动到记录的头部,并改变各个浏览按钮的状态DataEnv.rssqlSeek.MoveFirstDataEnv.rssqlSeek.MovePreviousCallChangeBrowseStateEndSubPrivateSubcmdLast_Click()'移动到记录的尾部,并改变各个浏览按钮的状态DataEnv.rssqlSeek.MoveLastDataEnv.rssqlSeek.MoveNextCallChangeBrowseStateEndSubPrivateSubcmdList_Click()'针对所选的班级,列出班级中所有的学籍信息DimstrSQLIfcboClass.Text="全部"ThenstrSQL="fromstudentorderbyserial"ElsestrSQL="fromstudentwhereclass='"&cboClass&"'orderbyserial"EndIfDataEnv.rsStudent.CloseDataEnv.rsStudent.Open"select*"&strSQLDataEnv.rssqlSeek.CloseDataEnv.rssqlSeek.Open"selectserial,name"&strSQL'刷新用户导航的网格控件,并且根据记录集中记录的数目,来改变各个浏览按钮的状态。CallRefreshGridCallChangeBrowseStateCallgrdScan_ChangeEndSub