vb家庭理财管理系统.ppt

家庭理财管理,本系统模块 1 登录系统（密码管理） 2 系统管理(窗体，代码) 3 退出系统,2019/4/23,总体结构,2019/4/23,一.举例 新建一个窗口，窗口的下部有3个命令按钮，其中左边按钮中标有“谢谢”，中间按钮中标有“你好”，右边按钮中标有“结束程序”。当鼠标单击左边按钮时，屏幕上显示问候语“谢谢”，当鼠标单击中间按钮时，屏幕上显示问候语“你好”，当鼠标单击右边按钮时，结束程序。屏幕上显示的问候语通过标签label来实现 。如图,2019/4/23,二.基本操作 首先启动VB6.0，新建一个VB应用程序；然后在控件箱中拖入三个命令按钮，一个标签；再用鼠标拖动排列三个命令按钮在窗口的底部，拖动标签在窗口的中间部位；再选中左边的命令按钮，在属性窗口中修改命令按钮的Caption属性为“谢谢”，同样修改其它命令按钮的Caption属性为“你好”、“结束程序”。修改标签的属性为空；最后在三个命令按钮中编写代码实现程序的功能。,2019/4/23,一、建立用户界面,2019/4/23,二、设置控件属性,2019/4/23,三、编写代码,2019/4/23,四、保存和运行程序 保存,运行,2019/4/23,VB语言通过事件来触发执行相应的事件过程，这就是事件驱动。 所谓事件，就是对操作对象（比如窗体，控件等）进行操作（比如鼠标单击），从而产生的相应的响应。 VB的主要特点： 1可视化编程 2事件驱动 3面向对象 4数据库管理功能 5结构化程序设计语言,2019/4/23,三 从简单到复杂,本课程设计包含的窗体：,2019/4/23,1 登录系统,1.1界面如图：,2019/4/23,1 登录系统,1.2 添加属性修改caption 1.3 添加按钮button 1.4 添加编辑框textbox 1.5 添加代码 Dim Mydb As New ADODB.Recordset Dim Mydb1 As New ADODB.Recordset Dim Str_text As String Private 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_name = txt_name.Text Str_password = txt_password.Text Set Mydb = ExeCutesql(“select user from user1 where user=“ & Str_name & “, Str_text),2019/4/23,If Mydb.EOF Then MsgBox “你输入的用户名不存在，请重新输入！“, vbOKOnly + 32, “注意“ L = L + 1 txt_name.SetFocus If L = 4 Then MsgBox “你四次输入用户名都没有正确，如果你只是纯属玩耍，请不要再继续尝试，本系统主人将会追究你刑事责任！“, 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 = Trim(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 “密码两次都不正确，本系统将关闭,警察将跟踪你调查！“, vbOKOnly + 48, “注意“ End End If Exit Sub End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub txt_name_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then txt_password.SetFocus End Sub Private Sub txt_password_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End Sub Private Sub txt_name_LostFocus() Cname = txt_name.Tex