VB个人财务管理界面

摘要：此VB软件实现对个人财务管理的功能，能实现对各项收入、支出的管理。为保护个人隐私，同时具有密码验证和密码更改的功能。对于数据的管理运用了小型数据库ACCESS，VB能对ACCESS方便的进行管理。一．软件结构软件分为密码登陆界面，收入录入界面，支出录入界面，密码更改界面，和主界面。二．各界面功能1．密码登陆界面：实现对登陆密码的验证代码：密码登陆界面主界面密码更改界面收入录入界面支出录入界面PrivateSubCommand1_Click()'登陆按键IfText1.TextThen'检查密码栏是否为空IfText1.Text=passwordThen'密码正确则登陆main.Show'显示主界面UnloadMeElseMsgBox您输入密码错误,请重新输入!,,错误提示'密码错误，则密码栏清空重新登陆Text1.Text=Text1.SetFocusEndIfElseMsgBox请输入密码!,,错误提示Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()'退出按键EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'功能和登陆按键相同，实现在输入密码后可以按回车键登陆IfKeyAscii=13ThenIfText1.TextThenIfText1.Text=passwordThenmain.ShowUnloadMeElseMsgBox您输入密码错误,请重新输入!,,错误提示Text1.Text=Text1.SetFocusEndIfElseMsgBox请输入密码!,,错误提示Text1.SetFocusEndIfEndIfEndSubPrivateSubForm_Load()'打开数据库myfirst.mdb,从中读取存在其中的密码赋值全局变量passwordcn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=myfirst.mdbrs.OpenSelect*FromusersWhere编号=1,cn,3,3password=rs(密码).Valuecn.CloseEndSub2.密码更改界面：实现对密码的管理更改操作PrivateSubCommand1_Click()'密码修改按钮IfText1.TextAndText2.TextAndText3.TextThen'三个text是否有输入IfText1.Text=passwordThen'旧密码输入是否正确IfText2.Text=Text3.TextThenpassword=Text2.Textcn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=myfirst.mdb'打开数据库进行读取rs.OpenSelect*FromusersWhere编号=1,cn,3,3rs(密码).Value=password'新密码录入数据库users表中rs.Update‘录入后进行更新cn.Close‘关闭数据库MsgBox密码修改成功UnloadMe'返回主界面main.ShowElseMsgBox两词密码输入不一样,,错误提示EndIfElseMsgBox原密码错误,,错误提示EndIfElseMsgBox输入不能为空,,错误提示EndIfEndSubPrivateSubCommand2_Click()'取消更改，返回主界面UnloadMemain.ShowEndSubPrivateSubForm_Load()EndSub3.收入录入界面：实现对数据库增加一条新的收入记录PrivateSubCommand1_Click()'录入按钮cn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=myfirst.mdb'打开数据库收入表rs1.OpenSelect*From收入,cn,3,3rs1.AddNew'进行数据增加操作rs1(收入来源).Value=Text1.Textrs1(日期).Value=DTPicker1.Valuers1(收入金额).Value=Text3.Textrs1(备注).Value=Text4.Textrs1.Update'更新cn.CloseMsgBox录入成功UnloadMemain.ShowEndSubPrivateSubCommand2_Click()'放弃操作UnloadMemain.ShowEndSubPrivateSubForm_Load()'DTPICKER控件和系统时间同步DTPicker1.Value=DateEndSub4.支出录入界面：实现对数据库增加一条新的支出记录PrivateSubCommand1_Click()cn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=myfirst.mdbrs2.OpenSelect*From支出,cn,3,3rs2.AddNewrs2(学习).Value=Text1.Textrs2(交通).Value=Text2.Textrs2(通信).Value=Text3.Textrs2(其他).Value=Text7.Textrs2(娱乐).Value=Text4.Textrs2(礼品).Value=Text5.Textrs2(餐费).Value=Text6.Textrs2(备注).Value=Text9.Textrs2(日期).Value=DTPicker1.Valuers2(总支出).Value=Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text)+Val(Text4.Text)+Val(Text5.Text)+Val(Text6.Text)+Val(Text7.Text)rs2.Updatecn.CloseMsgBox录入成功UnloadMemain.ShowEndSubPrivateSubCommand2_Click()UnloadMemain.ShowEndSubPrivateSubForm_Load()DTPicker1.Value=DateEndSub5.主界面界面：显示本月消费情况，对收支记录的查询管理PrivateSubCommand1_Click()'进入支出录入界面UnloadMe支出.ShowEndSubPrivateSubCommand2_Click()'进入收入录入界面UnloadMe收入.ShowEndSubPrivateSubCommand4_Click()'退出软件EndEndSubSubtiaozheng()'过程对主界面中的datagrid控件的网格宽度调整Fori=0To8DataGrid1.Columns(i).Width=500NextiDataGrid1.Columns(1).Width=1000DataGrid1.Columns(9).Width=1000DataGrid2.Columns(0).Width=500DataGrid2.Columns(1).Width=1000EndSubPrivateSubCommand5_Click()'进入密码修改界面UnloadMe修改密码.ShowEndSubPrivateSubCommand6_Click()'两个DATAGRID控件显隐的控制，一个显示收入情况，一个显示支出情况DataGrid1.Visible=TrueDataGrid2.Visible=FalseEndSubPrivateSubCommand7_Click()''两个DATAGRID控件显隐的控制，一个显示收入情况，一个显示支出情况DataGrid1.Visible=FalseDataGrid2.Visible=TrueEndSubPrivateSubCommand8_Click()'所选的记录删除IfDataGrid1.Visible=TrueThenAdodc1.Recordset.DeleteElseAdodc2.Recordset.DeleteEndIfEndSubPrivateSubCommand9_Click()'显示所有的收支记录Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from支出SetDataGrid1.DataSource=Adodc1Adodc1.RefreshDataGrid1.RefreshAdodc2.CommandType=adCmdTextAdodc2.RecordSource=select*from收入SetDataGrid2.DataSource=Adodc2Adodc2.RefreshDataGrid2.RefreshCalltiaozhengEndSubPrivateSubDTPicker1_CloseUp()'dtpicker选择日期，对单日收支状况进行查询Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from支出where日期=#&DTPicker1.Value&#SetDataGrid1.DataSource=Adodc1Adodc1.RefreshDataGrid1.RefreshAdodc2.CommandType=adCmdTextAdodc2.RecordSource=select*from收入where日期=#&DTPicker1.Value&#SetDataGrid2.DataSource=Adodc2Adodc2.RefreshDataGrid2.RefreshCalltiaozhengEndSubPrivateSubForm_Load()Dimmark(0To10)AsLongDataGrid1.Visible=TrueDataGrid2.Visible=FalseCalltiaozhengFori=0To10mark(i)=0NextiDoWhileNotAdodc1.Recordset.EOF'数组对本月支出情况进行统计IfMonth(Date)=Month(Adodc1.Recordset(日期))Thenmark(0)=mark(0)+Adodc1.Recordset(交通)mark(1)=mark(1)+Adodc1.Recordset(娱乐)mark(2)=mark(2)+Adodc1.Recordset(学习)mark(3)=mark(3)+Adodc1.Recordset(餐费)mark(4)=mark(4)+Adodc1.Recordset(礼品)mark(5)=mark(5)+Adodc1.Recordset(其他)mark(6)=mark(6)+Adodc1.Recordset(通信)mark(7)=mark(7)+Adodc1.Recordset(总支出)EndIfAdodc1.Recordset.MoveNextLoop'统计结果显示Label1.Caption=交通Text1.Text=mark(0)Label2.Caption=娱乐Text2.Text=mark(1)Label3.Caption=学习Text3.Text=mark(2)Label5.Caption=餐费Text4.Text=mark(3)Label6.Caption=礼品Text5.Text=mark(4)Label7.Caption=其他Text6.Text=mark(5)label8.Caption=通信Text7.Text=mark(6)Label10.Caption=月支出Text8.Text=mark(7)EndSub三．模块程序PublicpasswordAsString'全局变量PubliccnAsNewADODB.Connection'数据库连接PublicrsAsNew