首页 理论教育 Access数据库基础应用教程学习指导

Access数据库基础应用教程学习指导

时间:2023-11-05 理论教育 版权反馈
【摘要】:标准模块main中定义了全局变量userType,当用户登录成功后,系统查找“用户”表,将当前用户的用户类别信息保存到userType中,在“主界面”窗体的模块代码中根据user-Type的值,将打开其他功能窗体的部分按钮禁用,即将按钮的Enabled属性设置为False,这样就实现了设置用户权限的功能。标准模块main中定义了3个全局函数,分别是getUserTerms()、getSysTerm()和ge-tUserTerm(),作用是实现开课学期信息格式的转换。标准模块main的代码如下:

Access数据库基础应用教程学习指导

标准模块main中定义了全局变量userType,当用户登录成功后,系统查找“用户”表,将当前用户的用户类别信息保存到userType中,在“主界面”窗体的模块代码中根据user-Type的值,将打开其他功能窗体的部分按钮禁用,即将按钮的Enabled属性设置为False,这样就实现了设置用户权限的功能。

标准模块main中定义了3个全局函数,分别是getUserTerms()、getSysTerm()和ge-tUserTerm(),作用是实现开课学期信息格式的转换。需要进行这种转换的原因是:授课计划是按照专业设置的,授课计划表中开设时间字段值的格式为“第×学年第×学期”,而在查询成绩时应该按照“××××-××××学年第×学期”的格式来选择开课学期,这样更加符合用户的使用习惯。

getSys Term(ByVal userTerm As String,ByVal beginyear As Integer)函数实现“××××-××××学年第×学期”格式到“第×学年第×学期”格式的转换。

getUserTerm(ByVal sysTerm As String,ByVal beginyear As Integer)函数实现“第×学年第×学期”格式到“××××-××××学年第×学期”格式的转换。(www.xing528.com)

getUserTerms(ByVal beginyear As Integer)函数根据班级的入学年份返回一个长字符串,用来表示选择开课学期组合框的行来源字符串。如入学年份为2010年,则开课学期组合框的行来源字符串为:“2010-2011学年第一学期;2010-2011学年第二学期;2011-2012学年第一学期;2011-2012学年第二学期;2012-2013学年第一学期;2012-2013学年第二学期;2013-2014学年第一学期;2013-2014学年第二学期”。

标准模块main的代码如下:

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

我要反馈