VB。NET_入门课件.ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 八、A读写数据库 （1）创建数据连接 Dim strConn As String = Provider = Microsoft.Jet.OLEDB.4.0;Data Source=数据库名;jet oledb:database password=密码 Dim objConn As New OleDb.OleDbConnection(strConn) （2）定义数据适配器对象 Dim objAdap As New OleDb.OleDbDataAdapter() （3）定义数据集对象 Dim objDSet As New DataSet （4）打开连接 objConn.Open() （5）定义并执行SQL命令 Dim strSql = Select * From address（SQL命令，如：select delete等） objAdap.SelectCommand = New OleDb.OleDbCommand(strSql, objConn) objConn.Close() （6）填充数据集 objAdap.Fill(objDSet, 表名) * 八、A读写数据库 例10-4 设置数据库密码 为数据库address_book.mdb设置密码，并使用代码编程方式在DataGridView控件中显示数据库中内容。 例10-6 查询个人资料库中的数据。 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 不同窗体数据的存取 例7.18 多重窗体应用示例。输入学生五门课程的成绩，计算总分及平均分并在不同窗体内显示。 不能访问 模块： Module Module1 Public x As String End Module 本章目录 * 7.5 鼠标和键盘 7.5.1 鼠标 鼠标事件 需要注意事件发生在哪一个对象上 Click、DoubleClick事件 MouseDown 按下任意一个鼠标按钮时被触发 MouseUp 释放任意一个鼠标按钮时被触发 MouseMove 移动鼠标时被触发 本章目录 * 鼠标 鼠标事件过程中的参数e决定鼠标的当前状态。 e.X、e.Y表示当前鼠标的位置；e.Button指示按下或释放了哪个鼠标按钮，其值的意义如下表： 枚举常量 含 义 MouseButtons.Left 按下或释放了鼠标左键 MouseButtons.Right 按下或释放了鼠标右键 MouseButtons.Middle 按下或释放了鼠标中键 MouseButtons.None 没有按下鼠标按钮 本章目录 * 鼠标 例7.19 显示鼠标器指针所指的位置。 例7.20 设计一个最简单的鼠标按键和移动程序。 本章目录 * 7.5.2 键盘 1. KeyPress事件 只对会产生ACSII码的按键有响应 ，参数e包含了与KeyPress事件相关的数据。 e.KeyChar 其值为所按键相应的ASCII码值。例如，键盘输入小写a，e.KeyChar的值为“a”。 e.Handled 表示本次按键是否被处理过。若它为真，则表示已经被处理过，否则，将传送给Windows进行常规处理。设置e.Handled为真，即可怱略本次按键。利用这个特性可以在某些控件中过滤掉不允许的字符。 本章目录 * 键盘 2. KeyDown事件和KeyUp事件 当焦点在某个对象时，用户按下键盘上的任一键，便会引发该对象KeyDown事件，释放按键便触发KeyUp事件。 参数e包含了所按键信息(及Shift、Ctrl、Alt键的状态)。 e.KeyCode的值为操作的物理键。 例7.21编写一个程序应用三类键盘事件，按下Alt+F5组合键可终止程序的运行 本章目录 * 综合应用 例7.23 利用时钟和图像控件，模拟自动红绿灯 分析：改变时钟的Interval属性来延迟不同颜色的灯。例如，红灯延迟2秒，则在切换