毕业设计-家庭理财管理系统—论文.doc

家庭理财管理系统目录摘要1关键词1引言 21、系统规划 31.1 系统设计思想 31.2 系统设计目标 31.3 系统总体方案 32、系统分析 32.1 业务需求分析 32.2 业务流程图 53、系统设计 53.1 系统软件功能结构 53.2 系统主程序流程 63.3 系统软硬件配置 73.4 系统数据库设计 73.5 系统输出设计 113.6 系统输入设计 114、系统实施 124.1 登录窗体和系统主界面 134.2 基本信息管理模块 164.3 理财信息管理模块 224.4 数据统计管理模块 314.5 用户管理模块 354.6 系统测试 405、结束语 40参考文献 41【摘要】家庭理财系统可以有效地记录和管理家庭的收支情况，合理规划和支配家庭资金，是家庭理财的好帮手。 后台数据库使用Access，前台开发工具使用Visual Basic。本系统采用目前比较流行的ADO数据访问技术，并将每个数据库表的字段和操作封装到类中，从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。【关键词】家庭理财；Access数据；Visual Basic开发语言；管理信息系统 引言：当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。家庭理财管理系统是每个家庭管理收入和支出不可缺少的一个管理信息系统，对于家庭的管理者来说是至关重要的。家庭理财管理系统应该能够为每个家庭的管理者提供充足的信息和快捷的查询手段，大大的方便家庭的管理者的合理理财。作为计算机应用的一部分，使用计算机对家庭理财进行管理，具有着手工管理所无法比拟的优点，如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高家庭财务管理的效率，也是家庭理财的科学化、正规化管理，与先进科学技术接轨的重要条件。现在我国的家庭理财管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。开发这一系统的好处主要有以下几点：第一、可以存储家庭日常理财信息；第二、只需了解操作系统，就能实现方便快捷的家庭理财管理，节省人力；第三、可以迅速查看家庭理财历史信息，做到收入、支出心中有数。目前市场的数据库系统非常多，如Oracle、FoxPro、Access等，各有所长，可以满足不同的用户需求。由于本系统功能较单一，业务量不大，拟采用Access2000作为数据库。本系统采用VB6.0，对家庭理财管理系统的开发过程的系统规划、系统分析、系统设计、系统实施及系统测试等各个环节，论述其数据库系统的设计要点，实现过程中存在的难点问题的分析及其解决方案。 1、系统规划1.1系统设计思想 系统是否合理、可靠、先进，可以从以下几个方面来衡量： （1）完整的报表、数据分析系统，能对数据流实施控制与动态分析； （2）有功能强大、资料齐全的查询系统； （3）方便用户使用，操作界面友好，运行稳定。1.2系统设计目标 本系统的设计目标是建立家庭对收入、支出的计算机管理系统。1.3系统总体方案 在家庭理财管理需求的基础上提出整个家庭理财管理系统的总体结构方案，确定系统开发设计的次序及时间安排。可分四个步骤： （1）分析家庭理财等信息管理的业务活动，搞清流程； （2）根据家庭理财管理的业务流程，确定属于系统处理的范围； （3）分析家庭理财管理业务流程所涉及的数据；（4）提供系统详细设计框架。2、系统分析 系统分析的最主要内容有家庭理财管理系统的业务需求分析、业务流程图、数据流程图、数据库概念设计（在数据库设计中叙述）等四个部分。2.1 业务需求分析 （1）系统数据需求通过对家庭的理财管理业务流程的调查，总结系统对其数据的需求，主要有：收入信息；支出信息；收支分析信息。（2）系统功能需求所设计的系统在功能上应做什么，即系统的主要需求。本系统可以有效地记录和管理家庭的收支情况，合理规划和支配家庭资金。冢庭理财管理系统包括基本信息管理、理财管理和数据统计等主要功能，具体功能如下： 基本信息的添加、修改、删除和查询。基本信息包括银行信息、收入分类和支出分类等内容。此功能为理财管理和数据统计模块提供依据。理财信息的添加、修改、删除和查询。理财信息包括日常收支、银行交易和银行帐户等内容。数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能。（3）系统性能需求 系统的性能指标包括存储容量限制、运行时间限制、传输速度要求、安全保密性等几个方面。 （4）系统运行环境需求 硬件方面：采用的机型、外部设备、数据通信接口； 软件方面：支持系统运行的系统软件、操作系统、数据库管理系统。 （5）系统可靠性及安全保密需求 对系统、重要子系统在运行中的安全、可靠、保密方面的性能提出要求。2.2 业务流程图从实际业务功能的角度将系统规划中有关的该业务做进一步的分析，用一个完整的图形来反映实际业务处理过程的“流水帐”。本系统的流程分析如图所示：3、系统设计系统设计主要有以下几项内容：3.1系统软件功能结构家庭理财管理系统功能模块结构如下图：3.2系统主程序流程添加操作修改操作删除操作查询操作添加记录修改记录删除记录查询记录退出程序开始显示记录YNYYYNNN3.3系统软硬件配置（1）选择依据：主要依据是系统说明书、系统的总体结构设计。（2）本系统采用单机单用户操作方式，其软、硬件最低配置为：硬件：处理器：300MHz；内存：128M；硬盘：1.5G； VGA (800x600)的视频适配器和监视器；软件：操作系统：Windows2000/XP；应用软件：Microsoft Office 2000。3.4系统数据库设计3.4.1数据库设计要点（1）第一阶段的设计任务是收集和分析用户需求，完成数据库的概念设计。（2） 第二阶段的设计任务是数据库的逻辑设计，完成E-R模型向逻辑模型转换。（3）第三阶段的设计任务是数据库的物理设计，确定表的结构，建立数据库模型。3.4.2数据库应用系统设计的重点和难点（1）建立数据库，确定数据库中表的数量及其每个表中各个字段的字段名称、类型、宽度、小数及索引、排序。系统实施系统实施的主要工作就是程序设计，此外还包括了物理系统的实施、程序的调试。本系统的程序设计由各个相关类及其所包含的函数组成。包含三个工程模块：（1）Const用来管理工程中的常量（2）DbFunc用来管理工程中与数据库操作相关的声明、变量和函数（3）Variable用来管理工程中的公共变量包含七个类模块：（1）Types类用来管理表Types的数据库操作（2）Banks类用来管理表Banks的数据库操作（3）Members类用来管理表Members的数据库操作（4）InOutList类用来管理表InOutList的数据库操作（5）BankOper类用来管理表BankOper的数据库操作（6）Amount类用来管理表Amount的数据库操作（7）Users类用来管理表Users的数据库操作包含四个系统模块：（1）基本信息管理模块（2）理财信息管理模块（3）数据统计管理模块（4）用户管理模块4.1登录窗体和系统主界面4.1.1登录窗体FrmLogin当系统运行时，首先打开登录窗体，只有有权限的用户才能进入系统。登录成功后，将显示系统主界面。登录窗体的部分代码：（1）变量声明Public PasswordKey As StringPasswordKey保存密码Public Try_times As IntegerTry_times记录尝试登录的次数Public NameKey As StringNameKey保存用户名（2）Cmd_Ok_Click过程当用户单击“确定”按钮时触发Cmd_Ok_Click事件，进行身份验证，代码如下：Private Sub Cmd_OK_Click() Dim j As Single数据有效性检查 If txtUser = Then MsgBox 请输入用户名 txtUser.SetFocus Exit Sub End If If txtPwd = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End If NameKey = Trim(txtUser) PasswordKey = Trim(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName)关闭自己 Unload MeEnd Sub4.1.2系统主界面当主窗体启动时，将打开“登录”对话框。代码如下：Private Sub Form_Load() FrmLogin.Show 1End Sub当选择“退出系统”菜单项时触发mn_exit_Click事件，代码如下：Private Sub mn_Exit_Click() DBapi_Disconnect自定义函数，强制断开与数据库的连接 EndEnd Sub4.2基本信息管理模块4.2.1银行信息编辑窗体FrmBankEdit（1）公共变量定义Public OriBId As Long用来标记当前编辑的银行编号Public Modify As BooleanModify用来标记当前的数据库访问状态，True表示修改已有的数据，False表插入新的数据（2）Cmd_OK_Click过程当单击“确定”按钮时触发Cmd_OK_Click过程，代码如下：Private Sub Cmd_OK_Click() If Len(Trim(txtBName) = 0 Then MsgBox 请输入银行全称 txtBName.SetFocus Exit Sub End If With MyBank .BankName = Trim(txtBName) .BShort = Trim(txtShort) .Place = Trim(txtPlace) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriBId) MsgBox 修改成功 End If End With Unload MeEnd Sub4.2.2银行信息管理窗体FrmBankMan使用DataGrid和Adodc控件来显示银行信息数据。窗体中的主要代码：（1）DataRefresh过程是在Adodc控件的结果集发生改变时，刷新DataGrid控件中的数据，对应的代码如下：Private Sub DataRefresh() Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName) 0 Then strSearch = Where BankName Like % + Trim(txtBName) + %实现模糊查询 End If TmpSource = Select BankId AS 银行编号,BankName AS 银行全称,BShort AS 简称,Place AS 所在地址 _ + From Banks + strSearch + Order By BankId从表Banks中读取银行数据 Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1000设置列宽度 End Sub（2）Cmd_Add_Click过程当用户单击“添加”按钮时触发Cmd_Add_Click事件，代码如下：Private Sub Cmd_Add_Click() FrmBankEdit.Modify = False FrmBankEdit.Show 1 DataRefresh刷新数据End Sub（3）Cmd_Modi_Click过程当用户单击“修改”按钮时触发Cmd_Modi_Click事件，代码如下：Private Sub Cmd_Modi_Click() If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If FrmBankEdit.Modify = True FrmBankEdit.OriBId = Adodc1.Recordset.Fields(0)从当前选择的记录中获取数据 FrmBankEdit.txtBName = Trim(Adodc1.Recordset.Fields(1) 将获取的值赋到对应窗体中 FrmBankEdit.txtShort = Trim(Adodc1.Recordset.Fields(2) FrmBankEdit.txtPlace = Trim(Adodc1.Recordset.Fields(3) FrmBankEdit.Show 1 DataRefresh刷新数据End Sub（4）Cmd_Del_Click过程当用户单击“删除”按钮时触发Cmd_Del_Click事件，代码如下：Private Sub Cmd_Del_Click() If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If 查找帐户信息Account表是否存在此银行编号，如果存在则不允许删除 If MyAcc.GetInfo(Adodc1.Recordset.Fields(0) Then MsgBox 帐户信息中包含此银行信息，不能删除记录 Exit Sub End If If MsgBox(是否确定要删除银行信息？, vbYesNo, 请确认) = vbNo Then确认删除 Exit Sub End If MyBank.Delete (Adodc1.Recordset.Fields(0)删除银行信息 MsgBox 成功删除 DataRefresh刷新数据End Sub4.2.3收入类型设置窗体FrmTypes（1）全局变量变量OriId用来标记当前选择的记录的编号，变量OriTypeName用在修改类型名称时记录原类型编号；变量nFlag保存当前编辑的信息类型，0表示收入类型信息，1表示支出类型信息。（2）Form_Load过程当装入窗体FrmType时触发Form_load事件，对应的代码如下：Private Sub Form_Load() DataRefresh刷新DataList1中的数据End Sub在此过程中将显示所有的收入类型名称。其中过程DataRefresh对应的代码如下：Private Sub DataRefresh() AdoType.ConnectionString = Conn设置连接字符串 AdoType.RecordSource = SELECT * FROM Types WHERE Flag= + Trim(nFlag) 读取数据 AdoType.Refresh Set DataList1.RowSource = AdoType设置数据源 DataList1.ListField = TypeName 设置列表中显示字段 DataList1.BoundColumn = TypeId 设置列表绑定字段 DataList1.RefreshEnd Sub（3）Cmd_Add_Click过程在文本框中输入新的类型名称，单击“添加”按钮时触发Cmd_Add_Click事件，代码如下：Private Sub Cmd_Add_Click() If Len(Trim(txtName) = 0 Then添加类型名称，先判断域是否为空 MsgBox (请输入类型名称) txtName.SetFocus Exit Sub End If 判断数据库中是否已经存在此类型名称 If MyType.In_DB(Trim(txtName), nFlag) = True Then MsgBox (已经存在此类型名称) txtName.SetFocus Exit Sub End If 插入新记录 With MyType .TypeName = Trim(txtName) .Flag = nFlag .Insert MsgBox 添加成功 End With DataRefreshEnd Sub（4）DataList_Click过程选择数据列表中的记录，在文本框中同时显示此类型名称，对应的代码如下：Private Sub DataList1_Click() 点击列表记录，将编号和名称放入变量和txtName域 If Len(Trim(DataList1.BoundText) = 0 Then MsgBox (请选择记录) Exit Sub End If OriId = Val(DataList1.BoundText) 记录编号 If MyType.GetInfo(OriId) = True Then 判断是否存在此记录信息 OriTypeName = Trim(MyType.TypeName) 将类型名称保存到变量中 txtName = Trim(MyType.TypeName) 文本框中显示类型名称 End IfEnd Sub（5）Cmd_Modi_Click过程选择类型名称，在文本框中对其修改后，单击“修改”按钮触发Cmd_Modi_Click事件，对应的程序代码如下：Private Sub Cmd_Modi_Click() 修改类型名称 If Len(Trim(DataList1.BoundText) = 0 Then MsgBox (请选择记录) Exit Sub End If 判断新的名称是否和原来的相同 If Trim(txtName) = OriTypeName Then Exit Sub End If 判断新的名称是否已经存在 If MyType.In_DB(Trim(txtName), nTypeId) = True Then MsgBox (已经存在此类型名称) txtName.SetFocus Exit Sub End If 更新名称 MyType.TypeName = Trim(txtName) MyType.Update (OriId) MsgBox 修改成功 DataRefresh 刷新类型列表End Sub（6）Cmd_Del_Click过程选择要删除的类型名称，用户单击“删除”按钮触发Cmd_Del_Click事件，对应的代码如下：Private Sub Cmd_Del_Click() If Len(Trim(DataList1.BoundText) = 0 Then MsgBox (请选择记录) Exit Sub End If 确定删除 If MsgBox(是否确定要删除 , vbYesNo, 请确认) = vbNo Then Exit Sub End If 删除类型 MyType.Delete (Val(DataList1.BoundText) MsgBox 删除成功 DataRefresh 刷新DataList1End Sub4.2.4支出类型设置窗体FrmTypes支出类型设置窗体和收入类型设置窗体一样，也是FrmTypes，只是公共变量nFlag的值为1。4.3理财信息管理模块4.3.1日常收支信息编辑窗体FrmListEdit（1）Form_Load过程当装入窗体时触发Form_Load事件，代码如下：Private Sub Form_Load() cob_Flag.AddItem 收入, 0 cob_Flag.AddItem 支出, 1 cob_Flag.ListIndex = 0 载入分类信息 Ado_Type.ConnectionString = Conn Ado_Type.RecordSource = Select * From Types Where Flag=0 Order By TypeId Ado_Type.Refresh Set dco_Type.RowSource = Ado_Type dco_Type.ListField = TypeName dco_Type.BoundColumn = TypeId 载入家庭成员信息 Ado_Mem.ConnectionString = Conn Ado_Mem.RecordSource = Select * From Members Order By MemId Ado_Mem.Refresh Set dco_Mem.RowSource = Ado_Mem dco_Mem.ListField = MemName dco_Mem.BoundColumn = MemId 载入帐户信息 Ado_Acc.ConnectionString = Conn Ado_Acc.RecordSource = Select AccountNo From Account Order By AccountNo Ado_Acc.Refresh Set dco_Acc.RowSource = Ado_Acc dco_Acc.ListField = AccountNo dco_Acc.BoundColumn = AccountNoEnd Sub程序分别设置收支分类、收支帐户和使用人等控件的数据源属性。（2）cob_Flag_Click过程当用户选择不同的收支类型时触发cob_Flag_Click事件，对应的程序代码如下：Private Sub cob_Flag_Click() 根据选择的收支类型读取对应的类别信息 Ado_Type.ConnectionString = Conn Ado_Type.RecordSource = Select * From Types Where Flag= _ + Trim(cob_Flag.ListIndex) + Order By TypeId Ado_Type.Refresh Set dco_Type.RowSource = Ado_Type dco_Type.ListField = TypeName dco_Type.BoundColumn = TypeIdEnd Sub程序根据用户选择的收支类型数据设置SELECT语句，初始化收支分类控件。窗体中的其他代码与银行信息编辑窗体相似。4.3.2日常收支信息管理窗体FrmListMan（1）DataRefresh过程DataRefresh过程的功能是通过设置SELECT语句读取表InOutList中的数据，并显示在表格控件中，代码如下：Private Sub DataRefresh() Dim TmpSource As String Dim StrSch As String Dim StrDate As String 设置查询条件 判断是否选中“全部”，如果没有则提取不同的查询条件 If Check1.Value = 1 Then StrSch = Else If cob_Flag.ListIndex -1 Then StrSch = And l.Flag= + Trim(cob_Flag.ListIndex) End If If Len(Trim(dco_Type.Text() 0 Then StrSch = StrSch + And l.TypeId= + dco_Type.BoundText() End If If Len(Trim(cob_Date.Text) 0 Then StrDate = Format(cob_Date.Text, yyyy-mm-dd) StrSch = StrSch + And l.UseDate=# + Trim(StrDate) + # End If End If TmpSource = Select l.Id, IIF(l.Flag=0,收入,支出) AS 收支类型, _ + t.TypeName AS 分类名称,l.ANo AS 账号,l.UseDate AS 收支日期, _ + l.UseSum AS 收支金额,m.MemName AS 使用人,l.Memos AS 说明,l.Flag _ + From InOutList l,Types t,Members m _ + Where l.MemId=m.MemId And l.TypeId=t.TypeId + StrSch _ + Order By l.UseDate DescMsgBox TmpSource Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 0 编号 DataGrid1.Columns(1).Width = 2100 收支类型 DataGrid1.Columns(2).Width = 1000 分类名称 DataGrid1.Columns(3).Width = 1600 账号 DataGrid1.Columns(4).Width = 1000 收支日期 DataGrid1.Columns(5).Width = 1200 收支金额 DataGrid1.Columns(6).Width = 1000 使用人 DataGrid1.Columns(7).Width = 1200 说明 DataGrid1.Columns(8).Width = 0 FlagEnd Sub窗体中其他代码与银行信息管理窗体相似。4.3.3银行往来信息编辑窗体FrmOperEdit窗体代码与日常收支信息编辑窗体相似。4.3.4银行往来信息管理窗体FrmOperManDataRefresh过程的功能是根据查询条件设置SELECT语句，从表BankOper中读取银行交易信息，并显示在表格中，代码如下：Private Sub DataRefresh() Dim TmpSource As String Dim StrSch As String 判断是否选中“全部”，如果没有则提取不同的查询条件 If Check1.Value = 1 Then StrSch = Else If Len(Trim(dco_Bank.Text() 0 Then StrSch = And o.BId= + dco_Bank.BoundText() End If If Len(Trim(dco_Mem.Text() 0 Then StrSch = StrSch + And o.MemId= + dco_Mem.BoundText() End If If Len(Trim(dco_Acc.Text() 0 Then StrSch = StrSch + And o.ANo= + dco_Acc.BoundText() + End If End If TmpSource = Select o.Id, b.BankName AS 银行名称,m.MemName AS 交易人姓名,o.ANo AS 账号, _ + o.OperDate AS 交易日期,o.OperSum AS 交易金额, _ + IIF(o.Flag=0,存款,IIF(o.Flag=1,取款,清户) AS 交易类型, _ + o.Smonth AS 定期月份,o.Interest AS 实际利息,o.Memos AS 说明,o.Flag _ + From BankOper o,Banks b,Members m _ + Where o.BId=b.BankId And o.MemId=m.MemId + StrSch _ + Order By o.OperDate Desc Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 0 编号 DataGrid1.Columns(1).Width = 2100 银行名称 DataGrid1.Columns(2).Width = 1000 交易人 DataGrid1.Columns(3).Width = 1600 账号 DataGrid1.Columns(4).Width = 1000 交易日期 DataGrid1.Columns(5).Width = 1200 交易金额 DataGrid1.Columns(6).Width = 1000 交易类型 DataGrid1.Columns(7).Width = 1200 定期月份 DataGrid1.Columns(8).Width = 1000 实际利息 DataGrid1.Columns(9).Width = 1200 说明 DataGrid1.Columns(10).Width = 0 FlagEnd Sub窗体中的其他代码与日常收支信息管理窗体相似。4.3.5银行帐户信息编辑窗体FrmAccountEdit窗体中的其他代码与日常收支信息管理窗体相似。4.3.6银行帐户信息管理窗体FrmAccountManDataRefresh过程的功能是根据查询条件设置SELECT语句，从表Account中读取银行帐户信息，并显示在表格中，代码如下：Private Sub DataRefresh() Dim TmpSource As String Dim StrSch As String 判断是否选中“全部”，如果没有则提取不同的查询条件 If Check1.Value = 1 Then StrSch = Else If Len(Trim(dco_Bank.Text() 0 Then StrSch = And a.BId= + dco_Bank.BoundText() End If If Len(Trim(dco_Mem.Text() 0 Then StrSch = StrSch + And a.MemId= + dco_Mem.BoundText() End If If Len(Trim(dco_Type.Text() 0 Then StrSch = StrSch + And a.AType= + dco_Type.BoundText() + End If End If TmpSource = Select a.AccountNo AS 账号,b.BankName AS 银行名称,m.MemName AS 开户人姓名, _ + a.AType AS 帐户类别,a.OpenDate AS 开户日期,a.ASum AS 帐户金额, _ + IIF(a.Flag=0,活期,定期) AS 存款类型,a.Memos AS 说明,a.Flag _ + From Account a,Banks b,Members m _ + Where a.BId=b.BankId And a.MemId=m.MemId + StrSch _ + Order By a.AccountNo Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1600 账号 DataGrid1.Columns(1).Width = 2100 银行名称 DataGrid1.Columns(2).Width = 1000 开户人 DataGrid1.Columns(3).Width = 1000 帐户种类 DataGrid1.Columns(4).Width = 1000 开户日期 DataGrid1.Columns(5).Width = 1200 帐户金额 DataGrid1.Columns(6).Width = 1000 存款类型 DataGrid1.Columns(7).Width = 1200 说明 DataGrid1.Columns(8).Width = 0End Sub窗体中的其他代码与日常收支信息管理窗体相似。4.3.7银行交易信息查看窗体FrmOperView在银行帐户信息管理窗体中，单击“查看交易明细”按钮，可以打开当前银行帐户对应的银行交易信息查看窗体，窗体中的公共变量TmpAccNo表示当前选择的银行帐户。DataRefresh过程的功能是根据变量TmpAccNo设置SELECT语句，读取指定银行帐户的交易明细信息，并显示在表格中，代码如下：Private Sub DataRefresh() Dim TmpSource As String TmpSource = Select o.Id, b.BankName AS 银行名称,m.MemName AS 交易人姓名, _ + o.OperDate AS 交易日期,o.OperSum AS 交易金额, _ + IIF(o.Flag=0,存款,IIF(o.Flag=1,取款,清户) AS 交易类型, _ + o.Smonth AS 定期月份,o.Interest AS 实际利息,o.Memos AS 说明 _ + From BankOper o,Banks b,Members m _ + Where o.BId=b.BankId