数据库连接与Web应用开发实践

50、悉尼工业公司将其每种产品的商品编号、名称和价格记录在一个名为Products的数据库中。Products数据库存储在Products.accdb文件中，该文件位于ClearlyVB2010\Chap24\Access Databases文件夹中。该数据库包含一个名为tblProducts的表。该表包含10条记录，每条记录由三个字段组成。ItemNum和ItemName字段包含文本；Price字段包含数字。现在需要完成以下操作：打开位于ClearlyVB2010\Chap24\Sydney Solution文件夹中的Sydney Solution（Sydney Solution.sln）文件；将应用程序连接到Products数据库；将适当的对象绑定到现有的标签控件上；打开代码编辑器窗口，为“下一条记录”和“上一条记录”按钮编写Click事件过程；保存解决方案，然后启动并测试应用程序；最后关闭代码编辑器窗口，然后关闭解决方案。

1. 打开位于 ClearlyVB2010\Chap24\Sydney Solution 文件夹中的 Sydney Solution（Sydney Solution.sln） 文件。
2. 将应用程序连接到位于 ClearlyVB2010\Chap24\Access Databases 文件夹中 Products.accdb 文件里的 Products 数据库。
3. 把合适对象绑定到现有标签控件。
4. 打开代码编辑器窗口，为“下一条记录”和“上一条记录”按钮编写 Click 事件过程。
5. 保存解决方案，启动并测试应用程序。
6. 关闭代码编辑器窗口和解决方案。

51、在本次练习中，你要修改一个应用程序。使用Windows系统复制Playhouse Solution文件夹，将副本保存到ClearlyVB2010\Chap24文件夹中，将副本重命名为Modified Playhouse Solution。打开Modified Playhouse Solution文件夹中的Playhouse Solution (Playhouse Solution.sln)文件。打开设计器窗口，在界面中添加另一个按钮，将该按钮命名为btnRecordNumber，将按钮的Text属性更改为&Record Number。按钮的Click事件过程应要求用户输入1到20之间的记录编号，然后将记录指针移动到指定的记录。编写该过程的代码。保存解决方案，然后启动并测试应用程序。关闭代码编辑器窗口，然后关闭解决方案。

1. 使用Windows系统复制 Playhouse Solution 文件夹，并将副本保存到 ClearlyVB2010\Chap24 文件夹，重命名为 Modified Playhouse Solution 。
2. 打开 Modified Playhouse Solution 文件夹中的 Playhouse Solution.sln 文件。
3. 打开设计器窗口，添加一个按钮，设置其名称为 btnRecordNumber ， Text 属性为 &Record Number 。
4. 编写 btnRecordNumber 按钮的 Click 事件过程代码，要求用户输入1 - 20的记录编号，并将记录指针移动到指定记录。
5. 保存解决方案，启动并测试应用程序。
6. 关闭代码编辑器窗口和解决方案。

52、打开位于Morgan Industries Solution - ListBox文件夹中的Morgan Industries Solution (Morgan Industries Solution.sln)文件。将应用程序连接到Employees数据库，该数据库存储在Employees.accdb文件中，此文件位于ClearlyVB2010\Chap24\Access Databases文件夹中。将Last_Name、Status和Code字段对象拖到相应的标签控件上。将lstNumber控件的DataSource和DisplayMember属性分别设置为TblEmployBindingSource和Emp_Number。为上一条记录和下一条记录按钮编写代码。保存解决方案，然后启动并测试应用程序。关闭解决方案。

1. 打开 Morgan Industries Solution - ListBox 文件夹中的 Morgan Industries Solution.sln 文件。
2. 把应用程序连接到位于 ClearlyVB2010\Chap24\Access Databases 文件夹的 Employees.accdb 数据库。
3. 拖动 Last_Name 、 Status 和 Code 字段对象到合适的标签控件。
4. 设置 lstNumber 控件的 DataSource 属性为 TblEmployBindingSource ， DisplayMember 属性为