您现在的位置：毕业论文 >> 论文 >> 正文

家庭理财系统论文+数据库+源码+文献综述第4页

更新时间：2010-6-15: 来源：毕业论文

家庭理财系统论文+数据库+源码+文献综述第4页
是以更快的速度随收入的递增而递增。   （二）研究风险偏好的意义
根据面向对象的设计思想，可以得出如下系统结构功能设计和工作原理，如图5和图6所示。
图5 系统结构功能设计图6 工作原理
3.4 数据库设计
数据库是系统信息的有效中心，一个优秀的数据库设计应考虑到系统工程的功能，系统的执行速度，以及是否可能引起系统工作的异常等。
数据库的设计合理与否不仅直接影响到程序设计的质量，而且影响到系统的实现。
3.4.1 数据库系统概述
(1) 数据（Data）
数据是数据库中存储的对象。数据在大多数人头脑中的第一反映就是数字。其实数字只是最简单的一种数据，是数据的一种传统和狭义的理解。广义的理解，数据的种类很多，文字，图形，图象，声音等都是数据，可以对数据做以下定义：描述事物的符号记录称为数据。
(2) 数据库（DataBase）
数据库，顾名思义，是存放数据的仓库。只不过这个仓库是在计算机存储设备上，而且数据是按一定的格式存放的。
数据库是指长期存在计算机内的，有组织的，可共享的数据集合。数据库中的数据按一定的数据模型组织，描述和存储，具有较高的数据独立性和易扩展性，并可以为各种用户共享。
(3) 数据库管理系统（DataBase Management System，简称DBMS）
数据库管理系统是位于用户和操作系统之间的一层数据管理软件。它主要有以下几个方面的功能：
① 数据定义功能
         图7 家庭收支管理系统登入界面

Private Sub Command1_Click()
Adodc1.RecordSource = " select * from 密码信息表 where 用户 = '" & Trim(Text1.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有此用户！", , "提示"
Text1.SetFocus
Text1.Text = ""
Else毕业论文http://www.751com.cn/
If Trim(Text2.Text) = Trim(Adodc1.Recordset.Fields("密码")) Then
Unload Me
Form2.Show
Else
MsgBox "密码错误！", , "提示"
Text2.SetFocus
Text2.Text = ""
   End If
   End If
End Sub

(2) 用户和密码正确后，将进入系统的主界面。在这个界面里将实现本系统所有的功能，用户一看便会使用，如图8所示。

图8 主界面

(3) 进入主界面以后，点击菜单中的添加收支记录，会出现两个选项，一个是资金收入，一个是资金支出。当点击资金收入时，会出现如图9所示。

                   图9 添加收支信息界面
Private Sub Command1_Click()
If Combo1.Text = "" Then
    MsgBox "请选类型！", , "提示"
     Combo1.SetFocus
     Exit Sub
End If
If Text1.Text = "" Then
    MsgBox "请填写日期！", , "提示"
     Text1.SetFocus
     Exit Sub
End If
If Not IsDate(Text1.Text) Then
MsgBox "收入日期为日期格式（yyyy-mm-dd）！", , "提示"
here 类型 = '" & Combo1.Text & "' "
           Adodc1.Refresh
           If Adodc1.Recordset.EOF Then
              MsgBox "没有查询结果！", , "提示"
           Else
            Set DataGrid1.DataSource = Adodc1
            DataGrid1.Caption = "查找结果"
               End If
         End If
   Else
     If Option2.Value = True Then
     Text2.Text = ""
       If Text1.Text = "" Then
       MsgBox "请输入查询编号！", , "提示"
       Text1.SetFocus
      Else
Adodc1.RecordSource = " select * from 收入信息表 where 编号 = '" & Text1.Text & "' "
           Adodc1.Refresh
           If Adodc1.Recordset.EOF Then
              MsgBox "没有查询结果！", , "提示"
           Else
            Set DataGrid1.DataSource = Adodc1
            DataGrid1.Caption = "查找结果"
        End If
       End If
     Else
      If Option3.Value = True Then
      Text1.Text = ""
         If Text2.Text = "" Then
       MsgBox "请输入查询金额！", , "提示"