资源描述：
《vb个人财务管理界面》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、摘要：此VB软件实现对个人财务管理的功能，能实现对各项收入、支出的管理。为保护个人隐私，同时具有密码验证和密码更改的功能。对于数据的管理运用了小型数据库ACCESS，VB能对ACCESS方便的进行管理。一．软件结构软件分为密码登陆界面，收入录入界面，支出录入界面，密码更改界面，和主界面。密码登陆界面支出录入界面密码更改界面收入录入界面主界面二．各界面功能1．密码登陆界面：实现对登陆密码的验证代码：yearsmortgagehousing;4.mortgageregistrationformalities
2、arecompleted.(D)pledge1.borrower(includingthepledgor)between18-65yearsofage,withfullcivilcapacity;2.collateralPrivateSubCommand1_Click()'登陆按键IfText1.Text<>""Then'检查密码栏是否为空IfText1.Text=passwordThen'密码正确则登陆main.Show'显示主界面UnloadMeElseMsgBox"您输入密码错误,请重新输入!",
3、,"错误提示"'密码错误，则密码栏清空重新登陆Text1.Text=""Text1.SetFocusEndIfElseMsgBox"请输入密码!",,"错误提示"Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()'退出按键EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'功能和登陆按键相同，实现在输入密码后可以按回车键登陆IfKeyAscii=13ThenIfText1.Text<>""ThenI
4、fText1.Text=passwordThenmain.ShowUnloadMeElseMsgBox"您输入密码错误,请重新输入!",,"错误提示"Text1.Text=""Text1.SetFocusEndIfElseMsgBox"请输入密码!",,"错误提示"Text1.SetFocusEndIfEndIfEndSubPrivateSubForm_Load()'打开数据库myfirst.mdb,从中读取存在其中的密码赋值全局变量passwordcn.Open"Provider=Microsoft.
5、Jet.OLEDB.4.0;DataSource=myfirst.mdb"rs.Open"Select*FromusersWhere编号=1",cn,3,3yearsmortgagehousing;4.mortgageregistrationformalitiesarecompleted.(D)pledge1.borrower(includingthepledgor)between18-65yearsofage,withfullcivilcapacity;2.collateralpassword=rs(
6、"密码").Valuecn.CloseEndSub2.密码更改界面：实现对密码的管理更改操作PrivateSubCommand1_Click()'密码修改按钮IfText1.Text<>""AndText2.Text<>""AndText3.Text<>""Then'三个text是否有输入IfText1.Text=passwordThen'旧密码输入是否正确IfText2.Text=Text3.TextThenpassword=Text2.Textcn.Open"Provider=Microsoft.J
7、et.OLEDB.4.0;DataSource=myfirst.mdb"'打开数据库进行读取rs.Open"Select*FromusersWhere编号=1",cn,3,3rs("密码").Value=password'新密码录入数据库users表中rs.Update‘录入后进行更新cn.Close‘关闭数据库MsgBox"密码修改成功"UnloadMe'返回主界面main.ShowElseMsgBox"两词密码输入不一样",,"错误提示"EndIfElseMsgBox"原密码错误",,"错误提示"E
8、ndIfElseMsgBox"输入不能为空",,"错误提示"yearsmortgagehousing;4.mortgageregistrationformalitiesarecompleted.(D)pledge1.borrower(includingthepledgor)between18-65yearsofage,withfullcivilcapacity;2.collateralEndIfEndSubPrivateSubCommand
