vb家庭理财管理系统

1、家庭理财管理,2021/1/9,总体结构,2021/1/9,一.举例 新建一个窗口，窗口的下部有3个命令按钮，其中左边按钮中标有“谢谢”，中间按钮中标有“你好”，右边按钮中标有“结束程序”。当鼠标单击左边按钮时，屏幕上显示问候语“谢谢”，当鼠标单击中间按钮时，屏幕上显示问候语“你好”，当鼠标单击右边按钮时，结束程序。屏幕上显示的问候语通过标签label来实现 。如图,2021/1/9,二.基本操作 首先启动VB6.0，新建一个VB应用程序；然后在控件箱中拖入三个命令按钮，一个标签；再用鼠标拖动排列三个命令按钮在窗口的底部，拖动标签在窗口的中间部位；再选中左边的命令按钮，在属性窗口中修改命令按钮

2、的Caption属性为“谢谢”，同样修改其它命令按钮的Caption属性为“你好”、“结束程序”。修改标签的属性为空；最后在三个命令按钮中编写代码实现程序的功能,2021/1/9,一、建立用户界面,2021/1/9,二、设置控件属性,2021/1/9,三、编写代码,2021/1/9,四、保存和运行程序 保存,运行,2021/1/9,VB语言通过事件来触发执行相应的事件过程，这就是事件驱动。 所谓事件，就是对操作对象（比如窗体，控件等）进行操作（比如鼠标单击），从而产生的相应的响应。 VB的主要特点： 1可视化编程 2事件驱动 3面向对象 4数据库管理功能 5结构化程序设计语言,2021/1/9

3、,三 从简单到复杂,本课程设计包含的窗体,2021/1/9,1 登录系统,1.1界面如图,2021/1/9,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 Intege

4、r 记数器 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,2021/1/9,If Mydb.EOF Then

5、 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

6、.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 密码两次都不正确，本系统将关闭,警

7、察将跟踪你调查！, 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