vb家庭理财管理系统.ppt

家庭理财管理,本系统模块1登录系统（密码管理）2系统管理(窗体，代码)3退出系统,2019/12/5,总体结构,2019/12/5,一.举例新建一个窗口，窗口的下部有3个命令按钮，其中左边按钮中标有“谢谢”，中间按钮中标有“你好”，右边按钮中标有“结束程序”。当鼠标单击左边按钮时，屏幕上显示问候语“谢谢”，当鼠标单击中间按钮时，屏幕上显示问候语“你好”，当鼠标单击右边按钮时，结束程序。屏幕上显示的问候语通过标签label来实现。如图,2019/12/5,二.基本操作首先启动VB6.0，新建一个VB应用程序；然后在控件箱中拖入三个命令按钮，一个标签；再用鼠标拖动排列三个命令按钮在窗口的底部，拖动标签在窗口的中间部位；再选中左边的命令按钮，在属性窗口中修改命令按钮的Caption属性为“谢谢”，同样修改其它命令按钮的Caption属性为“你好”、“结束程序”。修改标签的属性为空；最后在三个命令按钮中编写代码实现程序的功能。,2019/12/5,一、建立用户界面,2019/12/5,二、设置控件属性,2019/12/5,三、编写代码,2019/12/5,四、保存和运行程序保存,运行,2019/12/5,VB语言通过事件来触发执行相应的事件过程，这就是事件驱动。所谓事件，就是对操作对象（比如窗体，控件等）进行操作（比如鼠标单击），从而产生的相应的响应。VB的主要特点：1可视化编程2事件驱动3面向对象4数据库管理功能5结构化程序设计语言,2019/12/5,三从简单到复杂,本课程设计包含的窗体：,2019/12/5,1登录系统,1.1界面如图：,2019/12/5,1登录系统,1.2添加属性修改caption1.3添加按钮button1.4添加编辑框textbox1.5添加代码DimMydbAsNewADODB.RecordsetDimMydb1AsNewADODB.RecordsetDimStr_textAsStringPrivateSubCommand1_Click()OnErrorResumeNextStaticIAsInteger记数器StaticLAsInteger记数器DimStr_nameAsStringDimStr_passwordAsStringDimStr_usernameAsStringDimStr_userpasswordAsStringDimRemaindayAsLongStr_name=txt_name.TextStr_password=txt_password.TextSetMydb=ExeCutesql(selectuserfromuser1whereuser=&Str_name&,Str_text),2019/12/5,IfMydb.EOFThenMsgBox你输入的用户名不存在，请重新输入！,vbOKOnly+32,注意L=L+1txt_name.SetFocusIfL=4ThenMsgBox你四次输入用户名都没有正确，如果你只是纯属玩耍，请不要再继续尝试，本系统主人将会追究你刑事责任！,vbOKOnly+48,注意EndEndIfExitSubElseSetMydb1=ExeCutesql(selectuser,passfromuser1whereuser=&Str_name&,Str_text)Str_username=Trim(Mydb1.Fields(0)Str_userpassword=Trim(Mydb1.Fields(1)IfTrim(Str_password)=Str_userpasswordThenfrm_main.ShowMydb.CloseMydb1.CloseSetMydb=NothingSetMydb1=NothingUnloadMeElseMsgBox你输入的密码错误，请重新输入！,vbOKOnly+32,注意I=I+1txt_password.SetFocusIfI=2ThenMsgBox密码两次都不正确，本系统将关闭,警察将跟踪你调查！,vbOKOnly+48,注意EndEndIfExitSubEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubtxt_name_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Thentxt_password.SetFocusEndSubPrivateSubtxt_password_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndSubPrivateSubtxt_name_LostFocus()Cname=txt_name.TextEnd