vb家庭理财管理系统.ppt

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