If rs.RecordCount=0 Then ; tAge=sage
120305：将 tStudent 表中的全部记录显示出来： Select * From tStudent 130305：窗体加载时窗体标题属性为系统当前日期： Form.Caption=Date 140305：消息框： MsgBox \请重新输入口令！\150304：输入框： k=InputBox (\请输入大于0的整数值\
预览输出报表对象\： DoCmd.OpenReport \160304： Case Is>=3
预览输出报表对象\： DoCmd.OpenReport \
170304： Dim f(19) As Integer f(i)=f(i-1)+f(i-2) tData=f(19)
180304：单击\刷新\按钮，窗体记录源改为查询对象\： Form.RecordSource=\
单击\退出\按钮，关闭窗体： DoCmd.Close
190303：窗体\的\加载\事件中设置标签\以红色文本显示：bTitle.Caption=vbRed
实现报表预览输出: mdPnt acViewPreview
200304：消息框： MsgBox \报表预览\确认\
210304：动态设置窗体记录源为查询对象\： Form.RecordSource=\280304：将考生文件夹下的图片文件\设置为窗体\的背景：
Form.Picture=CurrentProject & \
320305：CDID文本框内内容显示颜色改为红色： CDID.ForeColor=vbRed
- 11 -
330304：动态设置窗体记录源为查询对象\： Form.RecordSource=\ 关闭窗体： DoCmd.Close 380304： 关闭窗体： DoCmd.Close 400305： 关闭窗体： DoCmd.Close
410305：使“保存”按钮CmdSave变为可用： CmdSave.Enabled=True 420203：将文本框中输入的内容与文本串\等级考试测试\连接，并消除连接串的前导和尾随空白字符，用标签\显示连接结果： bTitle.Caption=Trim(tText) & \等级考试测试\420303：关闭窗体： DoCmd.Close
440304：动态设置窗体记录源为查询对象\： Form.RecordSource=\450304,：预览输出报表对象\： DoCmd.OpenReport \460305：关闭窗体： DoCmd.Close
470305：用户名和密码正确： If name = \Then
光标置于用户名文本框中： Me!tUser.SetFocus
点退出按钮关闭窗体： DoCmd.Close
480305：单击“退出”按钮，关闭当前窗体 DoCmd.Close 单击“保存”按钮，“修改”按钮不可用 CmdEdit.Enable=False Me!用户名_1.Enabled = False
MsgBox \请重新输入口令！\
- 12 -