vb家庭理财管理系统ppt课件

1、家庭理财管理本系统模块本系统模块 1 登录系统密码管理）登录系统密码管理） 2 系统管理系统管理(窗体，代码窗体，代码) 3 退出系统退出系统 目 录上一页下一页 结 束VB程序设计2021-12-17 总体结构 目 录上一页下一页 结 束VB程序设计2021-12-17 一一.举例举例 新建一个窗口，窗口的新建一个窗口，窗口的下部有下部有3个命令按钮，其中个命令按钮，其中左边按钮中标有左边按钮中标有“谢谢谢谢”，中，中间按钮中标有间按钮中标有“你好你好”，右边，右边按钮中标有按钮中标有“结束程序结束程序”。当。当鼠标单击左边按钮时，屏幕鼠标单击左边按钮时，屏幕上显示问候语上显示问候语“谢谢谢

2、谢”，当鼠，当鼠标单击中间按钮时，屏幕上标单击中间按钮时，屏幕上显示问候语显示问候语“你好你好”，当鼠标，当鼠标单击右边按钮时，结束程序。单击右边按钮时，结束程序。屏幕上显示的问候语通过标屏幕上显示的问候语通过标签签label来实现来实现 。如图。如图 目 录上一页下一页 结 束VB程序设计2021-12-17二二. .基本操作基本操作 首先启动首先启动VB6.0VB6.0，新建一个，新建一个VBVB应用程序；然后在控件箱中应用程序；然后在控件箱中拖入三个命令按钮，一个标签；拖入三个命令按钮，一个标签；再用鼠标拖动排列三个命令按再用鼠标拖动排列三个命令按钮在窗口的底部，拖动标签在钮在窗口的底部

3、，拖动标签在窗口的中间部位；再选中左边窗口的中间部位；再选中左边的命令按钮，在属性窗口中修的命令按钮，在属性窗口中修改命令按钮的改命令按钮的CaptionCaption属性为属性为“谢谢谢谢”，同样修改其它命令按，同样修改其它命令按钮的钮的CaptionCaption属性为属性为“你好你好”、“结束程序结束程序”。修改标签的属性。修改标签的属性为空；最后在三个命令按钮中为空；最后在三个命令按钮中编写代码实现程序的功能。编写代码实现程序的功能。 目 录上一页下一页 结 束VB程序设计2021-12-17 一、建立用户界面一、建立用户界面 目 录上一页下一页 结 束VB程序设计2021-12-17

4、二、设置控件属性二、设置控件属性 目 录上一页下一页 结 束VB程序设计2021-12-17三、编写代码三、编写代码 目 录上一页下一页 结 束VB程序设计2021-12-17四、保存和运行程序四、保存和运行程序 保管保管运转 目 录上一页下一页 结 束VB程序设计2021-12-17VB语言通过事件来触发执行相应的事件语言通过事件来触发执行相应的事件过程，这就是事件驱动。过程，这就是事件驱动。 所谓事件，就是对操作对象比如窗体，所谓事件，就是对操作对象比如窗体，控件等进行操作比如鼠标单击），控件等进行操作比如鼠标单击），从而产生的相应的响应。从而产生的相应的响应。VB的主要特点：的主要特点：

5、 1可视化编程可视化编程 2事件驱动事件驱动 3面向对象面向对象 4数据库管理功能数据库管理功能 5结构化程序设计语言结构化程序设计语言 目 录上一页下一页 结 束VB程序设计2021-12-17三 从简单到复杂 本课程设计包含的窗体： 目 录上一页下一页 结 束VB程序设计2021-12-171 登录系统1.1界面如图：界面如图： 目 录上一页下一页 结 束VB程序设计2021-12-171 登录系统1.2 添加属性修改添加属性修改caption1.3 添加按钮添加按钮button1.4 添加编辑框添加编辑框textbox1.5 添加代码添加代码Dim Mydb As New ADODB.R

6、ecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringPrivate Sub Command1_Click() On Error Resume Next Static I As Integer 记数器记数器 Static L As Integer 记数器记数器 Dim Str_name As String Dim Str_password As String Dim Str_username As String Dim Str_userpassword As String Dim Remainday As Long Str_

7、name = txt_name.Text Str_password = txt_password.Text Set Mydb = ExeCutesql(select user from user1 where user= & Str_name & , Str_text) 目 录上一页下一页 结 束VB程序设计2021-12-17 If Mydb.EOF Then MsgBox 你输入的用户名不存在，请重新输入！你输入的用户名不存在，请重新输入！, vbOKOnly + 32, 留意留意 L = L + 1 txt_name.SetFocus If L = 4 Then MsgB

8、ox 你四次输入用户名都没有正确，如果你只是纯属玩耍，请不要再继续尝试，本系统主人将会追究你刑事责任！你四次输入用户名都没有正确，如果你只是纯属玩耍，请不要再继续尝试，本系统主人将会追究你刑事责任！, vbOKOnly + 48, 留意留意 End End If Exit Sub Else Set Mydb1 = ExeCutesql(select user,pass from user1 where user= & Str_name & , Str_text) Str_username = Trim(Mydb1.Fields(0) Str_userpassword = Tri

9、m(Mydb1.Fields(1) If Trim(Str_password) = Str_userpassword Then frm_main.Show Mydb.Close Mydb1.Close Set Mydb = Nothing Set Mydb1 = Nothing Unload Me Else MsgBox 你输入的密码错误，请重新输入！你输入的密码错误，请重新输入！, vbOKOnly + 32, 留意留意 I = I + 1 txt_password.SetFocus If I = 2 Then MsgBox 密码两次都不正确，本系统将关闭密码两次都不正确，本系统将关闭,警察

10、将跟踪你调查！警察将跟踪你调查！, vbOKOnly + 48, 留意留意 End End If Exit Sub End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub txt_name_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then txt_password.SetFocusEnd SubPrivate Sub txt_password_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocusEnd SubPrivate Sub txt_name_LostFocus() Cname = txt_name.TextEnd Sub