欢迎来到天天文库
浏览记录
ID:42477273
大小:128.00 KB
页数:4页
时间:2019-09-15
《实验九__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.NoM5、on)Iftl-1ThenDoCmd.CloseEl“MscBox■你己经取消操作"诸継续输入?*TextLSetFocusEndIfEndSub
5、on)Iftl-1ThenDoCmd.CloseEl“MscBox■你己经取消操作"诸継续输入?*TextLSetFocusEndIfEndSub
此文档下载收益归作者所有