数据库制作参考5.docVIP

实验七 窗体设计 实验目的 设计几种常用的窗体。 实验准备 了解各式窗体的特性。 掌握常用窗体控件的属性。 掌握常用窗体控件的事件与方法。 掌握各式窗体的常用布局。 熟练掌握窗体设计的方法与步骤。 实验内容 实验5－1 设计一个“关于”窗体，介绍数据库应用系统的相关内容，如图1-7-1所示。 操作步骤如下： 打开数据库文件（“英才学校数据库”）。 在“数据库”窗口，选择“窗体”选项。 在“数据库”窗口，单击“新建”按钮，进入“新建窗体”对话框。 在“新建窗体”对话框中，选择“设计视图”选项，单击“确定”按钮，进入“窗体”窗口。 窗体及主要控件的布局参照图1－7－1设计。 图 1－7－1 窗体及主要控件的属性参照表1－7－1设计。 对象 对象名 属性 事件 窗体 关于 标题：关于 无 滚动条：两者均无 记录选择器：否 导航按钮：否 自动居中：是 边框样式：对话框边框 图片：无 图片缩放模式：拉伸 标签 Lbl1 标题：英才学校信息管理系统 无 背景样式:透明 字体名称：略 字号：略 字体粗细：略 Lbl2 标题:软件版本：V2.0 略 Lbl3 标题:网站： 略 Lbl4 标题:警告：未经授权不得将本软件… 表：1－7－1 在“窗体”窗口，打开文件菜单，选择“保存”命令，进入“另存为”对话框，输入窗体名称“关于”，窗体创建完成。 实验5－2 设计一个窗体“登陆”，用以限制用户使用“英才学校信息管理系统”的权限，如图1－7－2所示。 若用户名与密码正确，启动主窗体，如图1－7－3所示。 若用户名与密码错误，弹出对话框，警告密码错误。 图1－7－2 图1－7－3 操作步骤如下： 参照实验5－1操作步骤，打开“英才学校数据库”，开始新建窗体操作。 窗体及主要控件的布局参照图1－7－2设计。 窗体及主要控件的属性参照表1－7－2设计。 对象 对象名 属性 事件 窗体 登陆 标题：登陆 无 同表1-7-1 图象 Img1 图片类型：嵌入 无 缩放模式：拉伸 图片：略 Img2 同上 标签 LblUser 标题：用户名 无 LblPwd 标题：密码 Lbl1 标题：英才 Lbl2 标题：学校 命令按钮 CmdOK 标题：确定 Click CmdCancel 标题：取消 Click 组合框 CboUser 行来源：Select 用户表.用户名 From 用户表 NotInList 控件来源：无 文本框 TxtPwd 输入掩码：密码 无 表 1-7-2 在“窗体”窗口，打开“视图”菜单，选择“代码”命令，进入“代码”窗口。 在“代码”窗口输入各控件事件的代码如下： Public Function login() As Boolean Dim RS As New ADODB.Recordset Dim StrSql As String StrSql = Select * From 用户 Where 用户名= Me.CboUser RS.Open StrSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly If RS.RecordCount 0 Then If RS!密码 = Me.TxtPwd Then login = True End If End If RS.Close Set RS = Nothing End Function Private Sub CboUser_NotInList(NewData As String, Response As Integer) Response = acDataErrContinue 必须从组合框中选择用户 End Sub Private Sub CmdCancel_Click() On Error GoTo Err_CmdCancel_Click DoCmd.Close Exit_CmdCancel_Click: Exit Sub Err_CmdCancel_Click: M