《数据库原理与应用(Access)》第10章：应用系统开发实例.pptVIP

选项组单击事件代码为： Private Sub Frame0_Click() Dim i As Integer i = Me.Controls(frame0) If i = 1 Then DoCmd.OpenQuery (按书名查询) Else If i = 2 Then DoCmd.OpenQuery (按条码查询) Else If i = 3 Then DoCmd.OpenQuery (按作者查询) Else DoCmd.OpenQuery (按出版社查询) End If End If End If End Sub 【关闭】命令按钮单击事件代码为： Private Sub Command1_Click() DoCmd.Close End Sub 10.3.6 图书借阅情况查询窗体设计 该模块主要通过窗体完成某读者借书情况查询和某一图书借阅情况查询。该窗体如图10-25所示。 窗体设计过程： 1）在“tushu”数据库窗口选择“窗体”模块下的“在设计视图中创建窗体”选项。新建一窗体。 2）在窗体右侧的“工具箱”中单击“文本框”按钮，并在窗体“主体”中添加两个“文本框”，设置后标签的标题为“输入借书证号”和“输入图书名称”。 3）在窗体中添加两个矩形控件。调整标签、文本框的位置和大小，效果如图10-25所示。 4）在“工具箱”中单击“命令按钮”，并在窗体“主体”的适当位置拖动鼠标。在弹出的“命令按钮”向导对话框中单击【取消】按钮。 5）在窗体“主体”中选择新建的命令按钮，击右键，在弹出的快捷菜单中选择“属性”，对该命令按钮的属性进行设置。其中“名称”为“command1”，标题为“查询”。以同样的步骤添加两个命令按钮，其中一个“名称”设置为“command2”，“标题”设置为“查询”，另一个设置名称为“command3”，“标题”设置为“关闭”。 6）设置窗体属性。在窗体中击右键，在弹出的快捷菜单中选择“属性”，弹出“属性”设置对话框，在上面的组合框中选择“窗体”。其中“滚动条”设为“两者均无”，“记录选择器”设为“否”，“导航按钮”设为“否”，“分隔线”设为“否”，“最大化最小化按钮”为“无”，“自动调整”为“是”，“自动居中”为“是”，“标题”为“借书情况：”。运行结果如图10-25所示。 图10-25 借图情况查询窗体 输入借书证号，单击【查询】按钮，将打开“读者借阅情况”查询窗体，显示该读者借书情况，同时统计已经归还的图书信息和正在借阅的图书信息。如图10-26所示。 【查询】按钮的“单击”事件中调用“读者借阅情况”窗体，这里使用宏命令。设计步骤如下： 打开【查询】按钮属性对话框，选择“单击”事件，创建宏。 在“宏设计器”的“操作”项中选择“OpenForm”，“窗体名称”项输入“读者借阅情况”，“视图”项选择为“窗体”。 “读者借阅情况”窗体的设计过程： 1）通过设计视图创建一窗体 2）窗体“记录源”为：SELECT DISTINCT 读者.xm, 读者.xb, 图书.sm, 借还记录.jsrq, 借还记录.jszh, 借还记录.hsrq FROM 图书 INNER JOIN (读者 INNER JOIN 借还记录 ON 读者.jszh=借还记录.jszh) ON 图书.tstm=借还记录.tstm WHERE (((借还记录.jszh)=forms!借书情况!text1)); 3）“记录源”输入后，出现select查询窗口，其中包含所查询输出的各字段，将产生查询中的字段拖放到窗体上。这里选择xm（姓名）、xb（性别）、sm（书名）、jsrq（借书日期）和hsrq（还书日期）。如图10-27所示。 4）窗体属性中设置：“默认视图”为“连续窗体”，“记录选择器”、“导航器”、“分隔线”均为“否”。 图10-26 读者借阅情况查询窗体 图10-27 窗体记录源设计 图10-28 窗体设计视图 5）选择菜单栏【视图】下的【窗体页眉/页脚】选项，在窗体上添加两个节，结果如图10-28所示。 选择主体节中的标签，按Ctrl+X组合键执行剪切操作，然后单击“窗体页眉”节，再按Ctrl+V组合键执行粘贴操作。将所有标签移到页眉节中。调整窗体中各控件的位置和大小。 6）在页眉和页脚中分别添加一直线控件。 7）在页脚节中添加四个标签，标签标题分别为“共借书”、“本”、“共有”和“本未还”。添加一个文本框，放置在标签“共借书”、“本”之间，该文本框的“控制来源”设置为“ =Count([jszh])”，目的是计算该读者已