VB个人财务管理界面

1、精选优质文档-倾情为你奉上 摘要：此VB软件实现对个人财务管理的功能，能实现对各项收入、支出的管理。为保护个人隐私，同时具有密码验证和密码更改的功能。对于数据的管理运用了小型数据库ACCESS，VB能对ACCESS方便的进行管理。一 软件结构软件分为密码登陆界面，收入录入界面，支出录入界面，密码更改界面，和主界面。 密码登陆界面支出录入界面密码更改界面收入录入界面主界面二各界面功能1密码登陆界面：实现对登陆密码的验证代码： Private Sub Command1_Click() 登陆按键If Text1.Text Then 检查密码栏是否为空 If Text1.Text = password

2、 Then 密码正确 则登陆 main.Show 显示主界面 Unload Me Else MsgBox 您输入密码错误,请重新输入!, , 错误提示 密码错误，则密码栏清空重新登陆 Text1.Text = Text1.SetFocus End IfElse MsgBox 请输入密码!, , 错误提示 Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click() 退出按键 EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) 功能和登陆按键相同，实现在输入密码后可以按回车键 登陆I

3、f KeyAscii = 13 ThenIf Text1.Text Then If Text1.Text = password Then main.Show Unload Me Else MsgBox 您输入密码错误,请重新输入!, , 错误提示 Text1.Text = Text1.SetFocus End IfElse MsgBox 请输入密码!, , 错误提示 Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Form_Load() 打开数据库myfirst.mdb,从中读取存在其中的密码 赋值全局变量passwordcn.Open Provide

4、r=Microsoft.Jet.OLEDB.4.0;Data Source=myfirst.mdbrs.Open Select * From users Where 编号 = 1, cn, 3, 3password = rs(密码).Valuecn.CloseEnd Sub2.密码更改界面：实现对密码的管理更改操作Private Sub Command1_Click() 密码修改按钮If Text1.Text And Text2.Text And Text3.Text Then 三个text 是否有输入 If Text1.Text = password Then 旧密码输入是否正确 If Te

5、xt2.Text = Text3.Text Then password = Text2.Text cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=myfirst.mdb 打开数据库进行读取 rs.Open Select * From users Where 编号=1, cn, 3, 3 rs(密码).Value = password 新密码录入数据库 users表中 rs.Update 录入后进行更新 cn.Close 关闭数据库 MsgBox 密码修改成功 Unload Me 返回主界面 main.Show Else MsgBox 两

6、词密码输入不一样, , 错误提示 End If Else MsgBox 原密码错误, , 错误提示 End If Else MsgBox 输入不能为空, , 错误提示End IfEnd SubPrivate Sub Command2_Click() 取消更改，返回主界面Unload Memain.ShowEnd SubPrivate Sub Form_Load()End Sub3.收入录入界面：实现对数据库增加一条新的收入记录Private Sub Command1_Click() 录入按钮cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source

7、=myfirst.mdb 打开数据库 收入表rs1.Open Select * From 收入 , cn, 3, 3rs1.AddNew 进行数据增加操作rs1(收入来源).Value = Text1.Textrs1(日期).Value = DTPicker1.Valuers1(收入金额).Value = Text3.Textrs1(备注).Value = Text4.Textrs1.Update 更新cn.Close MsgBox 录入成功Unload Memain.ShowEnd SubPrivate Sub Command2_Click() 放弃操作Unload Memain.ShowE

8、nd SubPrivate Sub Form_Load() DTPICKER控件和系统时间同步DTPicker1.Value = DateEnd Sub4.支出录入界面：实现对数据库增加一条新的支出记录Private Sub Command1_Click()cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=myfirst.mdbrs2.Open Select * From 支出 , cn, 3, 3rs2.AddNewrs2(学习).Value = Text1.Textrs2(交通).Value = Text2.Textrs2(通信).V

9、alue = 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)

10、 + Val(Text7.Text)rs2.Updatecn.Close MsgBox 录入成功Unload Memain.ShowEnd SubPrivate Sub Command2_Click()Unload Memain.ShowEnd SubPrivate Sub Form_Load()DTPicker1.Value = DateEnd Sub5.主界面界面：显示本月消费情况，对收支记录的查询管理Private Sub Command1_Click() 进入支出录入界面Unload Me支出.ShowEnd SubPrivate Sub Command2_Click() 进入收入录入

11、界面Unload Me收入.ShowEnd SubPrivate Sub Command4_Click() 退出软件EndEnd SubSub tiaozheng() 过程对主界面中的datagrid控件的网格宽度调整For i = 0 To 8DataGrid1.Columns(i).Width = 500Next iDataGrid1.Columns(1).Width = 1000DataGrid1.Columns(9).Width = 1000DataGrid2.Columns(0).Width = 500DataGrid2.Columns(1).Width = 1000End SubP

12、rivate Sub Command5_Click() 进入密码修改界面Unload Me修改密码.ShowEnd SubPrivate Sub Command6_Click() 两个DATAGRID控件显隐的控制，一个显示收入情况，一个显示支出情况DataGrid1.Visible = TrueDataGrid2.Visible = FalseEnd SubPrivate Sub Command7_Click() 两个DATAGRID控件显隐的控制，一个显示收入情况，一个显示支出情况DataGrid1.Visible = FalseDataGrid2.Visible = TrueEnd Su

13、bPrivate Sub Command8_Click() 所选的记录删除If DataGrid1.Visible = True ThenAdodc1.Recordset.DeleteElseAdodc2.Recordset.DeleteEnd IfEnd SubPrivate Sub Command9_Click() 显示所有的收支记录Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 支出 Set DataGrid1.DataSource = Adodc1Adodc1.RefreshDataGrid1.Refr

14、eshAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 收入Set DataGrid2.DataSource = Adodc2Adodc2.RefreshDataGrid2.RefreshCall tiaozhengEnd SubPrivate Sub DTPicker1_CloseUp() dtpicker选择日期，对单日收支状况进行查询Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 支出 where 日期= # & DTPic

15、ker1.Value & # Set DataGrid1.DataSource = Adodc1Adodc1.RefreshDataGrid1.RefreshAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 收入 where 日期= # & DTPicker1.Value & # Set DataGrid2.DataSource = Adodc2Adodc2.RefreshDataGrid2.RefreshCall tiaozhengEnd SubPrivate Sub Form_Load()Dim mark(0

16、 To 10) As LongDataGrid1.Visible = TrueDataGrid2.Visible = FalseCall tiaozhengFor i = 0 To 10mark(i) = 0Next iDo While Not Adodc1.Recordset.EOF 数组对本月支出情况进行统计 If Month(Date) = Month(Adodc1.Recordset(日期) Then mark(0) = mark(0) + Adodc1.Recordset(交通) mark(1) = mark(1) + Adodc1.Recordset(娱乐) mark(2) = m

17、ark(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(总支出) End If Adodc1.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.Te