vb家庭理财管理系统课件

2023/7/27总体结构2023/7/27总体结构12023/7/27

一.举例新建一个窗口，窗口的下部有3个命令按钮，其中左边按钮中标有“谢谢”，中间按钮中标有“你好”，右边按钮中标有“结束程序”。当鼠标单击左边按钮时，屏幕上显示问候语“谢谢”，当鼠标单击中间按钮时，屏幕上显示问候语“你好”，当鼠标单击右边按钮时，结束程序。屏幕上显示的问候语通过标签label来实现。如图

2023/7/27一.举例22023/7/27二.基本操作

首先启动VB6.0，新建一个VB应用程序；然后在控件箱中拖入三个命令按钮，一个标签；再用鼠标拖动排列三个命令按钮在窗口的底部，拖动标签在窗口的中间部位；再选中左边的命令按钮，在属性窗口中修改命令按钮的Caption属性为“谢谢”，同样修改其它命令按钮的Caption属性为“你好”、“结束程序”。修改标签的属性为空；最后在三个命令按钮中编写代码实现程序的功能。

2023/7/27二.基本操作32023/7/27

一、建立用户界面

2023/7/27一、建立用户界面42023/7/27二、设置控件属性

2023/7/27二、设置控件属性52023/7/27三、编写代码

2023/7/27三、编写代码62023/7/27四、保存和运行程序

保存运行2023/7/27四、保存和运行程序运行72023/7/27VB语言通过事件来触发执行相应的事件过程，这就是事件驱动。

所谓事件，就是对操作对象（比如窗体，控件等）进行操作（比如鼠标单击），从而产生的相应的响应。VB的主要特点：

1．可视化编程

2．事件驱动

3．面向对象

4．数据库管理功能

5．结构化程序设计语言

2023/7/27VB语言通过事件来触发执行相应的事件过程，82023/7/27三从简单到复杂

本课程设计包含的窗体：2023/7/27三从简单到复杂本课程设计包含的窗体：92023/7/271登录系统1.1界面如图：2023/7/271登录系统1.1界面如图：102023/7/271登录系统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)2023/7/271登录系统1.2添加属性修改capti112023/7/27IfMydb.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.TextEndSub2023/7/27IfMydb.EOFThen122023/7/27

2其他窗体添加类比登陆系统

3使用ADO控件

利