实验九__VBA代码编写与调试

《实验九__VBA代码编写与调试》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验九VBA代码编写与调试【实验目的】1、熟悉和掌握结构化程序设计的三种基本结构2、熟悉和掌握VBA代码的编写和调试方法3、掌握基本VBA代码编写【实验内容及操作提示】1＞设置实验六中创建的“登录窗口”的窗体数据源为“用户”表，检查输入用户名的文本框名字是否为“text1”，检查输入密码的文本框名字是否为“text2”，如果不是分别把两个文本框的改为“textl”和“text2”；设置输入密码的文本框的输入掩码属性为“密码”2、设置“登陆”按钮的事件过程，其中“登陆”按钮要根据输入的“用户名”和“密码”来进行判断，判断可分为下面几种情况：用户名和密码是

2、否输入的有值，如果没有，给出相应的提示框，提示应该输入相应的信息。＜2＞如果用户名和密码输入的有值，可数据库中的“用户”表进行比较，看用户名和密码是否正确，如果正确打开前面实验中建立的的“主窗体”（有的同学的窗体名字不一致，根据实际情况设置）；如果用户名和密码和“用户”表中的不一样，给出错误提示信息“用户名和密码错误，请重新输入！”3、设置“关闭”按钮的事件过程，单击“关闭”按钮后弹出如图所示的消息框，如果用户单击“是”，则关闭登录窗体，否则返回到窗体中。操作提示：两个按钮的相关事件代码如下图:PrivateSubCommand6_Cl1ck0Diib

3、<1AsLoneDimusernamtAsString,ustrpasswordAsStringDimrsAsRecordsetSetrs=MeRecordsetIfIsMullarimffextl.VUue))Then<1=MscBoxCiWIn入用户名；vboknoly+vbExcl&mttion)Textl.SetFocusElseI£IsNullffrimfTtxt2.Value))Then■1=MsgBoxI入用戶巒同：vboknoly+vblxclmiation)Ttxt2.S«tFocusElsers.FindFirst"［用戶名］='"

4、&Me.Textl•Ifrs.NoM

5、on)Iftl-1ThenDoCmd.CloseEl“MscBox■你己经取消操作"诸継续输入？*TextLSetFocusEndIfEndSub