vb家庭理管理系统.pptVIP

家庭理财管理 本系统模块 1 登录系统（密码管理） 2 系统管理(窗体，代码) 3 退出系统 2019-4-13 总体结构 2019-4-13 一.举例 新建一个窗口，窗口的下部有3个命令按钮，其中左边按钮中标有“谢谢”，中间按钮中标有“你好”，右边按钮中标有“结束程序”。当鼠标单击左边按钮时，屏幕上显示问候语“谢谢”，当鼠标单击中间按钮时，屏幕上显示问候语“你好”，当鼠标单击右边按钮时，结束程序。屏幕上显示的问候语通过标签label来实现 。如图 2019-4-13 二.基本操作 首先启动VB6.0，新建一个VB应用程序；然后在控件箱中拖入三个命令按钮，一个标签；再用鼠标拖动排列三个命令按钮在窗口的底部，拖动标签在窗口的中间部位；再选中左边的命令按钮，在属性窗口中修改命令按钮的Caption属性为“谢谢”，同样修改其它命令按钮的Caption属性为“你好”、“结束程序”。修改标签的属性为空；最后在三个命令按钮中编写代码实现程序的功能。 2019-4-13 一、建立用户界面 2019-4-13 二、设置控件属性 2019-4-13 三、编写代码 2019-4-13 四、保存和运行程序 保存 运行 2019-4-13 VB语言通过事件来触发执行相应的事件过程，这就是事件驱动。 所谓事件，就是对操作对象（比如窗体，控件等）进行操作（比如鼠标单击），从而产生的相应的响应。 VB的主要特点： 1．可视化编程 2．事件驱动 3．面向对象 4．数据库管理功能 5．结构化程序设计语言 2019-4-13 三 从简单到复杂 本课程设计包含的窗体： 2019-4-13 1 登录系统 1.1界面如图： 2019-4-13 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-13 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 =