数据库应用实训指导书..docVIP

《数据库应用实训》实训指导书 一、实训目的 对已学过Visual Basic程序设计语言、数据库等课程的计算机专业学生进行训练，以便能够系统学习Visual Basic语言与数据库技术、能够综合运用所学的SQL Server2000数据库技术阅读和独立开发具有一定实际价值的应用系统；加深对数据库技术的理解以及对以前所学技术的灵活应用。 二、具体内容及指导 实训指导1：Windows通用控件（分4 次） 包括：ImageList、ToolBar、StatusBar、ProgressBar、UpDown、MSFlexGrid和ListView。 使用方法：首先必须将通用控件添加到工具箱中，然后才能进行使用。 通用控件的添加方法： 在工具箱上单击右键，选择“部件”，打开“部件”窗体。 在该窗体的“属性”页上，选择“Microsoft Windows Common Controls 6.0”选项。 1 ImageList控件 作用：用于存储多幅图片，单独使用没有任何意义，必须与其他控件联合使用，他是不可见的。 1.1设置ImageList的图像 在设计时，可以用“ImageList控件属性”对话框的“图像”选项卡来添加或删除图片。 也可通过“通用”选项卡来规定图像的大小，但必须在添加图片之前。 说明： 关键字和索引一样可用来存取图片，标记可用来标志图片的附加说明。 关键字必须唯一。 每插入一幅图片，系统会自动对其编号，编号从1开始。 可一次性插入多张图片。（注意需从后往前插） 1.2读取ImageList的图像 ImageList控件由若干个ListImage对象构成，若要访问第二个图形对象，其关键字为“Pic”，可使用语句ImageList1.ListImages(2)（或ImageList1.ListImages(“Pic”)）。 ListImage对象具有Index（索引）、Key（关键字）、Picture（图像）、Tag（标记）四个属性，若要取出第二个图像，可使用语句：ImageList1.ListImages(2).Picture或ImageList1.ListImages(“Pic”).Picture 1.3动态加载图像 加入 格式：ImageList名.ListImages.Add 索引，关键字，图像 例如：ImageList1.ListImages.Add 2，”cc”，LoadPicture(“c:\windows\sh.gif”) 在第二个位置上导入一幅图片，原来图片的索引值（除第一个外）依次加一。 注意： 索引值可省略，省略后，默认将图像装到最后面。 关键字可省略，省略后，无法通过关键字读取相应的图像。 图像必须是Picture对象，即只能通过以下语句导入： ImageList1.ListImages.Add 1, ,Picture1.Picture ImageList1.ListImages.Add ,”cc”,Image1.Picture ImageList1.ListImages.Add , ,LoadPicture(“c:\windows\cg.gif”) 删除 ImageList名.ListImages.Remove 索引 ImageList名.ListImages.Remove 关键字 清除 ImageList名.ListImages.Clear 1.4ImageList控件的例程 效果图如下： 程序代码如下： Dim num1 As Integer ——定义一个全局变量用来存放当前图片的索引 Private Sub Command1_Click() If num1 = 1 Then num1 = 1 Else num1 = num1 - 1 End If Picture1.Picture = ImageList1.ListImages(num1).Picture End Sub ——若是第一幅图片，则仍然显示该图片，否则显示前一幅图片 Private Sub Command2_Click() If num1 = ImageList1.ListImages.Count Then num1 = ImageList1.ListImages.Count Else num1 = num1 + 1 End If Picture1.Picture = ImageList1.ListImages(num1).Picture End Sub ——若是最后一幅图片，则仍然显示该图片，否则显示后一幅图片 Private Sub Command3_Click() ImageList1.ListImages.Remove num1 If num1 = 1 Then num1 = 1 Else num1 = num