第九章数据库编程.ppt

第九章 VBA数据库编程 9.1 vba数据库常见操作 一、打开和关闭操作 1打开窗体操作 docmd.openform 窗体名称 例：docmd openform “ftest” 2打开报表操作 docmd.openreport 报表名,打开模式 例： DoCmd.OpenReport remp, acViewPreview 3关闭操作 docmd.close 关闭对象类型,关闭对象名称 例：docmd.close 表示关闭当前窗体 在VBA中，实现窗体打开操作的命令是____ A)Docmd.Openform B)OpenForm C)Do.Openform D)Doopen.form 二、输入框(inputbox函数) Inputbox(提示信息[，标题][，默认值]) 提示信息是告诉用户输入什么内容 标题是输入框的标题，可省略 默认值是如果用户不输入任何值时的取值 例9.1 strname=inputbox(“请输入姓名：,msg) 执行下列语句： St=inputbox(请输入字符串,字符串对话框,aaa)，当用户输入字符串“bbbb”，按“ok”按钮后，变量st的内容是________ 三、消息框——MsgBox函数及语句 函数：MsgBox (提示内容[,对话框的按钮类型][，对话框标题]) 语句： MsgBox 提示内容[,对话框的按钮类型][，对话框标题]) 执行语句：msgbox “AAAA”,vbOKCancel +vbQuestion ,“BBBB”之后，弹出的信息框_____________ A)标题为“BBBB”，框内提示符为“惊叹号”，提示内容为“AAAA” B)标题为“AAAA”，框内提示符为“惊叹号”，提示内容为“BBBB” C)标题为“BBBB”，框内提示符为“问号”，提示内容为“AAAA” D)标题为“AAAA”，框内提示符为“问号”，提示内容为“BBBB 四、VBA编程数据验证函数 timer事件：隔一定时间自动发生的事情 timerInterval属性：时间间隔(以毫秒为单位） 工作原理：每隔timerinterval指定的时间间隔就发生timer事件 例：设计如下所示窗体，窗体上有一个标签控件(名称为lNum)动态显示计数，当单击“暂停/继续”（名称为OK），暂停计数，再单击“暂停/继续”，则继续计数。 例P250（7）：设计如下窗体界面，要求只有三次登录机会，整个登录过程要在20秒内完成，如果在20秒以内没有完成登录，则倒计时到达0秒时自动关闭窗体，窗体的右上角是显示倒计时的标签lTime.。 有“数字时钟”窗体如图所示 。在窗口中有按钮【开/关】时钟，单击该按钮可以显示或隐藏时钟。其中按钮的名称为开关，显示时间的文本框名称为时钟，计时器间隔已设置为500。 六、键盘与鼠标事件过程 （一）、鼠标事件 1、MouseUp和MouseDown Private Sub Form_MouseUp/MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 2、MouseMove Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 三个参数： （1）Button：鼠标左键——1(acleftButton)，鼠标右键——2(acrightButton) （2）shift：表示shift、Ctrl和Alt的状态 （3）x、y：鼠标光标的当前位置。 （二）、键盘事件 1、KeyPress事件 Private Sub Form_KeyPress(KeyAscii As Integer) …… End Sub KeyPress事件带有一个参数KeyAscii是所按键的ASCII码，该事件过程返回的是所按“字符”的ASCII码。 2、KeyDown和KeyUp事件 Private Sub Form_KeyDown（KeyUp)(KeyCode As Integer, Shift As Integer) …… End Sub 有两个参数，KeyCode和Shift. KeyCode是指所按键的“键”，大小写表示同一键 Shift是指shift、Ctrl和Alt的状态，这3个键分别以二进制形式表示，每个键有3位，shift键为001，Ctrl键为010，Alt键为100 9.2 VBA数据库编程 VBA是通过Microsof