ACCESS代码Word格式文档下载.docx

ACCESS代码Word格式文档下载.docx

《ACCESS代码Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《ACCESS代码Word格式文档下载.docx（8页珍藏版）》请在冰豆网上搜索。

保存窗体，切换到”窗体视图”,点击窗体上”输出”命令按钮。

关闭窗体。

第3套:

（3）在窗体加载事件中实现代码重置窗体标题为标签"

bTitle"

的标题内容。

（4）"

计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为"

的文本框内并输出到外部文件保存。

点击”查看代码”按钮

2.n=1229

mn=9973

3.DoCmd.RunMacro"

1.Me.Caption=bTitle.Caption

关闭代码窗口，保存窗体，切换到”窗体视图”，点击”输出”按钮，关闭

第4套:

在窗体加载事件中，实现重置窗体标题为当前年月加标签“tTitle”的标题内容，如“2013年06月xxxx”。

其中，当前年月要求用函数获得，xxxx部分是标签“tTitle”的标题内容。

在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail”；

有两个标签控件，名称分别为“Label3”和“Ldetail”；

还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。

在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：

”。

在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！

！

”，提示框中只有一个“确定”按钮；

单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；

单击“CmdClear”命令按钮，将清空控件“cItem”和“TxtDetail”中的值。

点击”查看代码”按钮，打开代码窗口：

1.Ldetail.Caption=CItem&

”内容：

”

2.fDetail.Form.RecordSource="

tStud"

3.MsgBox"

查询项目或查询内容不能为空！

vbOKOnly,"

注意"

4.Caption=Year（Date）&

年"

&

Month（Date）&

月"

tTitle.Caption

第5套:

在窗体加载时，“tPass”文本框的内容以密码形式显示。

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。

在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示框；

如果输入不正确，则提示框显示内容为“密码错误！

”，同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中。

当单击窗体上的“退出”按钮后，关闭当前窗体。

2.Ifpass="

1234"

Andname="

cueb"

Then

3.tUser.SetFocus

4.DoCmd.Close

1.tPass.InputMask="

PassWord"

第6套:

在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，单击该按钮，弹出提示框。

提示框标题为“提示”，提示框内容为“确认退出？

”，并显示问号图标；

提示框中有两个按钮，分别为“是”和“否”，单击“是”按钮，关闭消息框和当前窗体，单击“否”按钮，关闭消息框。

IfMsgBox（"

确认退出？

vbYesNo+vbQuestion,"

提示"

）=vbYesThen

第7套:

（1）打开窗体时设置窗体标题为“XXXX年信息输出”显示，其中“XXXX”为系统当前年份（要求用相关函数获取），例如，2013年信息输出。

（4）单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方式打开报表“rEmp”。

1.Me.Caption=Year（Date（））&

"

年信息输出"

2.DoCmd.OpenReport"

rEmp"

acViewPreview

第8套:

在窗体中还有"

修改"

和"

保存"

两个命令按钮，名称分别"

CmdEdit"

CmdSave"

，其中"

命令按钮在初始状态为不可用，当单击"

按钮后，"

按钮变为可用。

当单击"

按钮后，输入焦点移到"

按钮。

1.CmdSave.Enabled=True

2.DoCmd.GoToControl"

cmdedit"

第9套:

按照以下窗体功能，补充事件代码设计。

在窗体中有一个组合框控件和一个文本框控件，名称分别“CItem”和“TxtDetail"

；

在“TxtDetail"

文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail"

两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空！

”，消息框中只有一个“确定”按钮；

单击“CmdList”命令按钮，在子窗体中显示“tStud"

表中的全部记录；

单击“CmdClear”命令按钮，将“cItem”和“TxtDetail"

两个控件中的值清空。

1.Ldetail.Caption=cItem&

内容:

查询项目和查询内容不能为空！

第10套:

（3）在窗体加载事件中，实现重置窗体标题为标签“tTitle”的标题内容。

（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。

在窗体中有一个组合框控件和一个文本框控件名称分别“CItem”和“TxtDetail”；

在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！

4.Me.Caption=tTitle.Caption

第11套:

单击命令按钮bList，要求运行宏对象m1；

窗体加载时，将“Tda”标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份（要求使用相关函数获取），例如，2013年雇员信息。

m1"

1.Tda.Caption=Year（Date（））&

年雇员信息"

第12套:

（3）在窗体加载事件中，实现重置窗体标题为标签"

男性最大年龄"

）查找表对象"

tEmp"

中男性员工的最大年龄，将其输出显示在控件tData内；

统计年龄在30以下（不含30）男性员工的人数，将其值写入外部文件"

out.dat"

中。

单击"

打开员工报表"

btnQ"

），通过代码调用宏对象"

以打开报表"

。

2.MAgeMax=rs.Fields（"

年龄"

）

3.rs.MoveNext

4.DoCmd.RunMacro"

1.Me.Caption=bTitle.Caption

注意:

关闭代码窗口，保存窗体，切换到”窗体视图”，点击”男性最大年龄”按钮，最后保存并运行该窗体。

第13套:

在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。

单击“刷新”按钮，窗体记录源为查询对象“qEmp”；

单击“退出”按钮，关闭窗体。

1.Me.recordSource="

qEmp"

2.DoCmd.Close

第14套:

（3）在窗体加载事件中实现代码重置窗体标题为"

**年度报表输出"

显示，其中**为两位的当前年显示，要求用相关函数获取。

（4）单击"

报表输出"

按钮（名为"

bt1"

），调用事件代码先设置"

退出"

按钮标题为粗体显示，然后以预览方式打开报表"

1.Me.Caption=year（date（））mod100&

年度报表输出"

2.bt2.FontBold=True

3.DoCmd.OpenReport"

acViewPreview

4.ErrHanle:

第15套:

（3）窗体加载事件实现的功能是显示窗体标题，显示内容为"

****年度报表输出"

，其中四位****为系统当前年份

（4）窗体中"

按钮的功能是单击"

）后，首先将"

按钮标题变为红色，然后以预览方式打开报表"

1.Me.Caption=Year（Date（））&

2.bt2.ForeColor=255

3.DoCmd.OpenReport"

4.ErrHanle:

第16套:

（3）在"

fStud"

窗体中有一个年龄文本框和一个退出命令按钮，名称分别为"

tAge"

CmdQuit"

年龄文本框的功能是显示学生的年龄，对年龄文本框进行适当的设置，使之能够实现此功能；

退出命令按钮的功能是关闭"

窗体，

（5）在"

窗体和"

fScore子窗体"

子窗体中各有一个平均成绩文本框控件，名称分别为"

txtMAvg"

txtAvg"

，对两个文本框进行适当设置，使"

窗体中的"

文本框能够显示出每名学生所选课程的平均成绩。

点击”查看代码”按钮，

DoCmd.Close

5.选择"

文本框，设置"

控件来源"

属性为:

=[fScore子窗体]!

txtavg；

选择"

=Avg（[成绩]），保存关闭窗体。

第17套:

窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。

三个命令按钮，名称分别"

、"

cmdquit"

按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时"

按钮变为可用；

在"

口令"

确认口令"

文本框中输入口令信息后，单击"

按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将"

命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；

若在两个文本框中输入的信息不同，则显示提示框，显示内容为"

请重新输入口令！

，提示框中只有一个"

确定"

单击窗体上的"

按钮，关闭当前窗体。

4.DoCmd.Close

1.CmdSave.Enabled=False

2.tUser_1.Enabled=False

vbOKquit

第18套:

），事件代码会弹出以下图例显示的消息框提示，选择是否进行预览报表"

点击“查看代码”按钮

IfMsgBox（"

报表预览"

vbYesNo+vbQuestion,"

确认"

第19套:

窗体加载时设置窗体标题属性为"

****年职工信息输出"

，其中****为系统当前年。

Me.Caption=Year（Date（））&

年职工信息输出"

第20套:

（4）窗体加载时将考生文件夹下的图片文件"

test.bmp"

设置为窗体"

的背景。

要求背景图像文件当前路径必须用CurrentProject.Path获得。

Me.Picture=CurrentProject.Path+"

\test.bmp"

第21套:

刷新"

），事件过程动态设置窗体记录源为查询对象"

，实现窗体数据按性别条件动态显示退休职工的信息

Me.RecordSource="

第22套:

在窗体"

的"

加载"

事件中设置标签"

以红色文本显示；

预览"

）或"

打印"

bt2"

），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；

bt3"

），调用设计好的宏"

来关闭窗体。

1.bTitle.ForeColor=255

2.mdPntacViewPreview

第23套:

窗体加载时设置窗体标题属性为系统当前日期。

点击”查看代码”按钮Me.Caption=Date

第24套:

在“fEmp”窗体的窗体页眉节区有一个文本框控件和一个命令按钮，名称分别为“TxtDetail”和“CmdRefer”；

在主体节区有多个文本框控件，显示“tBook”表中的相关信息。

在“TxtDetail”文本框中输入具体值后，单击“CmdRefer”命令按钮。

如果“TxtDetail”文本框中没有值，则显示提示框，提示文字为“对不起!

未输入雇员姓名，请输入！

”；

如果“TxtDetail”文本框中有值，则在“tBook”表中进行查找，如果找到了相应记录，则显示在主体节对应的文本框控件中，如果没有找到，则显示提示框，提示框显示标题为“查找结果”，提示文字为“对不起!

没有这个雇员!

”，提示框中只有一个“确定”按钮，然后清除“TxtDetail”文本框中的内容，并将光标置于“TxtDetail”文本框中。

1.Setrs=NewADODB.Recordset

2.Ifrs.EOFThen

3.Me.TxtDetail="