金融信息系统设计-实践指导手册200912

《金融信息系统设计》实践教学手册一、实验目的：金融信息系统设计（课程设计）是信息管理与信息系统专业、计算机科学与技术专业、电子商务专业学生“专业综合能力实践”的一个重要组成部分，其教学目的主要有：（1）实现基础理论、专业知识和基本技能相结合的应用性实践，通过对实践过程的经验总结，更好地融合、消化、吸收所学的各种专业知识，以达到学以致用的目的；（2）通过调研、分析及功能模拟金融企业（如商业银行、证券业等）各种业务信息系统的实验、实践教学，使学生成为在掌握信息技术应用与技术管理基础上的具有金融特色的复合型人才。

二、主要面向专业：信息管理与信息系统、电子商务与计算机科学与技术三、先修课程：计算机高级语言、面向对象开发工具、操作系统、数据库概论等四、实验环境（可选）1. Web服务器模式（B/S）Windows（Server）+Visual Studio 2005(C#)+ SQL Server等2. 单机模式：Windows + VB（或其他工具）+ Access等3. 客户机/服务器模式（C/S）Windows（Server）+ VB（或其他工具）+ SQL Server等五、参考实验题目商业银行柜员业务信息系统、代收代兑业务信息系统、A TM和POS 机（银行卡）业务信息系统、网上银行交易平台等；自选题目应得到授课指导教师的确认六、上机实验部分的成绩考核实验报告（50%）、金融业务信息系统设计（30%）和考勤（20%）七、实验内容实验1：金融电子化介绍与金融业务调研实验⑴实验目的：参考教材及相关金融业务、技术资料，加深对金融电子化的认识⑵实验要求：通过多种渠道对将要进行的实验、实践所涉及的金融业务知识进行调研，包括业务流程、相关的技术工作原理等⑶实验内容：通过课堂讲授与交流、互动，要求学生了解金融业务信息系统的发展概况及其基本框架、金融电子化各个阶段发展的主要标志，侧重于对商业银行柜员业务、个人代理业务等方面有基本认识。

实验2：金融业务信息系统分析与小组选题实验⑴实验目的：根据前一阶段金融业务知识的调研，结合小组学生的兴趣与特长，通过学生课题小组讨论、分析、交流及教师指导，选择合适的金融业务信息系统课题，并在专业实践中培养团队精神⑵实验要求：建立实验小组，确定课题及侧重点，合理分工；⑶实验内容：根据小组选择的课题，实行组长负责制，各组推荐一名组长，统一管理整个课题的实施过程，并合理调整资源和负责课题全局；根据课题的难易合理分配组员的任务，对问题达成一致的看法；针对课题的实施，熟悉相应的开发工具的使用环境实验3：金融业务信息系统需求分析实验⑴实验目的：根据信息系统分析与设计（或相关课程）的方法和技术应用规范，建立金融业务信息系统实验课题的目标系统逻辑模型⑵实验要求：根据专业所学的信息系统分析与设计（或相关课程）的工作流程和方法，学生针对金融业务信息系统应用课题有条理地开展小组讨论及系统分析，为下一阶段的工作奠定基础。

⑶实验内容：借助信息系统分析的方法进行金融业务信息系统分析，根据之前的组员分工，协同绘制系统流程图、分层的数据流图和数据字典，组长则进行汇总、整理与检查，提交需求分析实验的实验报告实验4：系统设计与系统调试实验⑴实验目的：根据信息系统分析与设计（或相关课程）的方法和技术应用规范，进行金融业务信息系统课题相应的概要设计、数据库设计、软件编程及调试等工作⑵实验要求：小组成员认真阅读实验3的文档，根据专业所学的信息系统分析与设计（或相关课程）的工作流程和方法，学生针对金融信息系统应用课题通过分工与协同方式进行各项软件设计工作⑶实验内容：借助系统设计方法进行金融业务信息系统设计，根据之前的组员分工，协同进行系统体系结构与功能模块的设计、界面设计及各模块的详细设计工作，组长则进行汇总、整理与检查，完成金融业务信息系统设计实验报告的编写实验5：工作总结与点评实验⑴实验目的：通过实践总结，使学生能将程序设计语言、数据库技术及信息系统分析与设计方法等专业知识逐步融合，培养良好的技术应用与技术管理风格⑵实验要求：在交流与互动中，了解信息系统分析与设计的工作特点及经验⑶实验内容：根据实验成果和文档，进行经验总结和点评附录：定期一本通功能模拟系统的界面设计及代码参考1、技术提示：（1）参考软件运行：D:\定期一本通\定期一本通.EXE（2）配套ACCESS 97数据库：D:\定期一本通\定期一本通.MDB（3）软件包含1个登录窗体、1个主窗体（主程序）和7个业务窗体（子程序）2、软件运行界面及程序代码参考主窗体（系统启动）Private Sub MDIForm_Load()Call startEnd SubPrivate Sub menu1_Click()Call startForm1.ShowForm1.Top = 100Form1.Left = (MDIForm1.Width - Form1.Width) / 2End SubPrivate Sub menu21_Click()Form2.ShowForm2.Top = 100Form2.Left = (MDIForm1.Width - Form2.Width) / 2End SubSub start()MDIForm1.menu1.Enabled = TrueMDIForm1.menu2.Enabled = FalseMDIForm1.menu3.Enabled = FalseEnd SubPrivate Sub menu22_Click()Form3.ShowForm3.Top = 100Form3.Left = (MDIForm1.Width - Form3.Width) / 2 End SubPrivate Sub menu24_Click()Form4.ShowForm4.Top = 100Form4.Left = (MDIForm1.Width - Form4.Width) / 2 End SubPrivate Sub menu31_Click()Form5.ShowForm5.Top = 100Form5.Left = (MDIForm1.Width - Form5.Width) / 2 End SubPrivate Sub menu33_Click()Form6.ShowForm6.Top = 100Form6.Left = (MDIForm1.Width - Form6.Width) / 2 End SubPrivate Sub menu34_Click()Form7.ShowForm7.Top = 100Form7.Left = (MDIForm1.Width - Form7.Width) / 2End SubPrivate Sub menu36_Click()Form8.ShowForm8.Top = 100Form8.Left = (MDIForm1.Width - Form8.Width) / 2End Sub（银行工作人员）登录窗体：单击“登录”菜单项后，启动登录窗体，输入银行职员“工号”及“密码”提示：可查询access数据库的“银行职工表”例如：工号1001，密码12345Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0Call user_checkCase 1Call startEnd SelectEnd SubSub user_check()info = "select * from 银行职工表where 工号= '" & Trim(Text1(0).Text) & "' and "Data1.RecordSource = info & "密码= '" & Trim(Text1(1).Text) & "'"Data1.RefreshIf Not Data1.Recordset.EOF Thennumb = Text1(0).TextData1.RecordSource = "select * from 定期利息表"Data1.Refreshi = 1Do While Not Data1.Recordset.EOFding_lixi(i, 1) = Data1.Recordset.Fields("存款编号")ding_lixi(i, 2) = Data1.Recordset.Fields("存期")ding_lixi(i, 3) = Data1.Recordset.Fields("到期年利率")ding_lixi(i, 4) = Data1.Recordset.Fields("备注")i = i + 1Data1.Recordset.MoveNextLoopMDIForm1.menu2.Enabled = TrueMDIForm1.menu3.Enabled = TrueUnload MeElseCall startEnd IfEnd SubSub start()Text1(0).Text = ""Text1(1).Text = ""Text1(0).SetFocus End Sub登录成功后的主窗体子窗体：银行职工表的维护提示：管理员口令“admin”在程序中以固定方式处理；“所属行名称”的查询可使用SQL语言，便于员工定位，提高维护效率Private Sub Combo1_Click(Index As Integer)If Index = 0 Then Text3.Text = Combo1(Index).TextIf Index = 1 Then Text2(6).Text = Combo1(Index).TextEnd SubPrivate Sub Command1_Click()If Text1.Text = "admin" ThenFrame1.Visible = TrueMSFlexGrid1.Visible = TrueFrame1.Caption = Frame1.Caption & " [操作员工号是：" & numb & "]" ElseText1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer) Select Case IndexCase 0For i = 0 To 4Text2(i).Enabled = TrueNext iData1.Recordset.AddNewText2(0).SetFocusCommand2(1).Enabled = TrueCommand3.Enabled = TrueCommand2(0).Enabled = FalseCommand2(2).Enabled = FalseCombo1(1).Enabled = TrueCase 1Data1.Recordset.UpdateData1.RefreshCommand2(1).Enabled = FalseCommand3.Enabled = FalseCommand2(0).Enabled = TrueCommand2(2).Enabled = TrueCombo1(1).Enabled = FalseFor i = 0 To 4Text2(i).Enabled = FalseNext iCase 2Data1.Recordset.DeleteData1.RefreshEnd SelectEnd SubPrivate Sub Command3_Click()Text2(5).Text = "12345"End SubPrivate Sub Command4_Click()info = "select * from 银行职工表"If Trim(Text3.Text) <> "" And Trim(Text3.Text) <> "所有职工" Then info = info & " where 所属行名称= '" & Trim(Text3.Text) & "'" End Ifinfo = info & " order by 工号"Data1.RecordSource = infoData1.RefreshEnd SubPrivate Sub Form_Load()Command2(1).Enabled = FalseCommand3.Enabled = FalseFrame1.Visible = FalseMSFlexGrid1.Visible = FalseCombo1(1).Enabled = FalseFor i = 0 To 6Text2(i).Enabled = FalseMSFlexGrid1.ColWidth(i) = 900Next iEnd Sub子窗体：定期利息表维护提示：存期3表示3个月，则1年用12表示Private Sub Command1_Click()If Text1.Text = "admin" ThenFrame1.Visible = TrueFrame1.Caption = Frame1.Caption & " [操作员工号是：" & numb & "]" ElseText1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)Select Case IndexCase 0Data1.Recordset.AddNewCall comm_control_1Case 1Data1.Recordset.EditCall comm_control_1Case 2Data1.Recordset.UpdateData1.RefreshFor i = 0 To 3Text2(i).Locked = TrueNext iCommand2(0).Enabled = TrueCommand2(1).Enabled = TrueCommand2(2).Enabled = FalseCommand2(3).Enabled = TrueCase 3Data1.Recordset.DeleteData1.RefreshEnd SelectEnd SubPrivate Sub Form_Load() Command2(2).Enabled = False Frame1.Visible = FalseFor i = 0 To 3Text2(i).Locked = TrueNext iEnd SubSub comm_control_1()For i = 0 To 3Text2(i).Locked = FalseNext iText2(0).SetFocusCommand2(0).Enabled = FalseCommand2(1).Enabled = FalseCommand2(2).Enabled = TrueCommand2(3).Enabled = FalseEnd Sub子窗体：职工密码更改Private Sub Command1_Click()info = "select * from 银行职工表where 工号= '" & Trim(Text1(0).Text) & "' and " Data1.RecordSource = info & "密码= '" & Trim(Text1(1).Text) & "'"Data1.RefreshIf Not Data1.Recordset.EOF ThenFrame1.Visible = TrueData1.Recordset.EditText1(0).Enabled = FalseText1(1).Enabled = FalseElseText1(0).Text = ""Text1(1).Text = ""Text1(0).SetFocusEnd IfEnd SubPrivate Sub Command2_Click()If Trim(Text1(2).Text) = Trim(Text1(3).Text) Then Data1.Recordset.Fields("密码") = Trim(Text1(3).Text)Data1.Recordset.UpdateFrame1.Visible = FalseText1(0).Enabled = TrueText1(1).Enabled = TrueElseText1(2).SetFocusEnd IfText1(2).Text = ""Text1(3).Text = ""End SubPrivate Sub Form_Load()Frame1.Visible = FalseEnd Sub子窗体：开户销户业务提示：开户即插入记录，销户即逻辑删除记录（或标铸使用状态）；使用状态有三种：正常、挂失及销户Dim selePrivate Sub Combo1_Click()Text2(8).Text = Combo1.TextEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0For i = 1 To 6Text2(i).Enabled = TrueNext iCombo1.Enabled = Trueinfo1 = Format(Date, "yyyy-mm-dd"): info = ""For i = 0 To 9If Mid(info1, i + 1, 1) <> "-" Then info = info & Mid(info1, i + 1, 1)Next iData1.RecordSource = "select * from 客户存折基本信息where 存折编号like '" & info & "*'"Data1.RefreshIf Data1.Recordset.EOF Theninfo = info & "001"ElseData1.Recordset.MoveLastinfo = info & Right(Data1.Recordset.Fields("存折编号"), 3)info = info + 1End IfData1.Recordset.AddNewText2(7).Text = "正常使用"Text2(0).Text = infoCommand1(0).Enabled = FalseCommand1(1).Enabled = FalseCommand1(2).Enabled = TrueCase 1m = 0: n = 0Data2.RecordSource = "select * from 客户存取款记录单where 存折编号= '" & Trim(Text2(0).Text) & "'"Data2.RefreshDo While Not Data2.Recordset.EOFIf Data2.Recordset.Fields("操作类型") = "存款" Then m = m + 1If Data2.Recordset.Fields("操作类型") = "取款" Then n = m + 1Data2.Recordset.MoveNextLoopIf m = n ThenData1.Recordset.EditText2(7).Text = "停止使用"Data1.RefreshElseMsgBox "该客户帐户内尚有存款未取出！"End IfCase 2Data1.Recordset.UpdateData1.RefreshCommand1(0).Enabled = TrueCommand1(1).Enabled = TrueCommand1(2).Enabled = FalseFor i = 1 To 6Text2(i).Enabled = FalseNext iCombo1.Enabled = FalseEnd SelectEnd SubPrivate Sub Command2_Click()info = "select * from 客户存折基本信息where 使用状态= '正常使用'"If sele = 0 And Trim(Text1(0).Text) <> "" Theninfo = info & " and 存折编号= '" & Trim(Text1(0).Text) & "'"End IfIf sele = 1 And Trim(Text1(1).Text) <> "" Theninfo = info & " and 客户姓名= '" & Trim(Text1(1).Text) & "'"End IfData1.RecordSource = infoData1.RefreshEnd SubPrivate Sub Command3_Click()Data1.RecordSource = "select * from 客户存折基本信息"Data1.RefreshEnd SubPrivate Sub Form_Load()Frame1.Caption = Frame1.Caption & " [操作员工号是：" & numb & "]" For i = 0 To 8Text2(i).Enabled = FalseNext iText1(0).Visible = FalseText1(1).Visible = FalseCommand1(2).Enabled = FalseCombo1.Enabled = FalseEnd SubPrivate Sub Option1_Click(Index As Integer)If Index = 0 ThenText1(0).Visible = True: Text1(1).Visible = False: Text1(0).SetFocus End IfIf Index = 1 ThenText1(1).Visible = True: Text1(0).Visible = False: Text1(1).SetFocus End Ifsele = IndexEnd Sub子窗体：存款业务提示：存款的记录单编号均为单数，如20051012001001、20051012001003等Dim record_countPrivate Sub Combo1_Click()Text2(5).Text = Left(Combo1.Text, 1)End SubPrivate Sub Command1_Click()info1 = "select * from 客户存折基本信息where 使用状态= '正常使用'"Data2.RecordSource = info1 & " and 存折编号= '" & Trim(Text1.Text) & "'"Data2.RefreshIf Not Data2.Recordset.EOF ThenFrame1.Visible = TrueMSFlexGrid1.Visible = TrueFrame1.Caption = Frame1.Caption & " [操作员工号是：" & numb & "]"info2 = "select * from 客户存取款记录单where 存折编号= '" & Trim(Text1.Text) & "'"Data1.RecordSource = info2 & " order by 记录单编号"Data1.RefreshIf Not Data1.Recordset.EOF ThenData1.Recordset.MoveLastrecord_count = Data1.Recordset.Fields("记录单编号")Data1.Recordset.MoveFirstElserecord_count = ""End IfElseText1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Text2(4).Text = DateEnd SubPrivate Sub Command4_Click(Index As Integer)Select Case IndexCase 0Data1.Recordset.AddNewIf record_count = "" Thenrecord_count = Trim(Text1.Text) & "001"Text2(0).Text = record_countElserecord_count = record_count + 2Text2(0).Text = record_count End IfText2(1).Text = Trim(Text1.Text)Text2(2).Text = Trim(numb)Text2(3).Text = "存款"Text2(6).Enabled = TrueCommand4(0).Enabled = FalseCommand4(1).Enabled = TrueCommand2.Enabled = TrueCombo1.Enabled = TrueCase 1Data1.Recordset.UpdateData1.RefreshCommand4(0).Enabled = TrueCommand4(1).Enabled = FalseText2(6).Enabled = FalseCommand2.Enabled = FalseCombo1.Enabled = FalseEnd SelectEnd SubPrivate Sub Form_Load()Frame1.Visible = FalseMSFlexGrid1.Visible = FalseFor i = 0 To 6Text2(i).Enabled = FalseNext iCommand4(1).Enabled = False Command2.Enabled = FalseCombo1.Enabled = FalseEnd Sub子窗体：取款业务提示：取款的记录单编号均为双数，如20051012001002、20051012001004等；取款办理也是插入记录，并非删除记录；本利和计算用于工作中的提示，计算方法参看相关PPT文档Dim record_countDim record_info(6)Private Sub Command1_Click()info1 = "select * from 客户存折基本信息where 使用状态= '正常使用'"info1 = info1 & " and 存折编号= '" & Trim(Text1(0).Text) & "'"Data2.RecordSource = info1 & " and 客户密码= '" & Trim(Text1(1).Text) & "'"Data2.RefreshIf Not Data2.Recordset.EOF ThenFrame1.Visible = TrueMSFlexGrid1.Visible = TrueFrame1.Caption = Frame1.Caption & " [操作员工号是：" & numb & "]"info2 = "select * from 客户存取款记录单where 存折编号= '" & Trim(Text1(0).Text) & "'"Data1.RecordSource = info2 & " order by 记录单编号"Data1.RefreshElseText1(0).Text = "": Text1(1).Text = ""Text1(0).SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Text2(4).Text = DateEnd SubPrivate Sub Command3_Click()If Text2(3).Text = "存款" Thendate_first = DateValue(Trim(Text2(4).Text))month_count = DateDiff("m", date_first, Now)Data3.RecordSource = "select * from 客户存折基本信息where 存折编号= '" & Trim(Text2(1).Text) & "'"Data3.RefreshIf Not Data3.Recordset.EOF Thentotal = Val(Trim(Text2(6).Text))If Data3.Recordset.Fields("自动转存") = "是" Thenm = month_count \ ding_lixi(Val(Trim(Text2(5).Text)), 2)n = month_count Mod ding_lixi(Val(Trim(Text2(5).Text)), 2) End IfIf Data3.Recordset.Fields("自动转存") = "否" ThenIf Val(month_count) >= ding_lixi(Val(Trim(Text2(5).Text)), 2) Thenm = 1n = month_count - ding_lixi(Val(Trim(Text2(5).Text)), 2) Elsem = 0n = month_countEnd IfEnd IfFor i = 1 To m Step 1Select Case Val(Trim(Text2(5).Text))Case 1total = total + (total / 40000) * ding_lixi(Val(Trim(Text2(5))), 3)Case 2total = total + (total / 20000) * ding_lixi(Val(Trim(Text2(5))), 3)Case 3 To 6total = total + (total / 10000) * ding_lixi(Val(Trim(Text2(5))), 3)End SelectNext iIf Data3.Recordset.Fields("自动转存") = "是" Thentotal = total + total * (0.0081 / 12) * nEnd IfIf Data3.Recordset.Fields("自动转存") = "否" Thentotal = total + Val(Text2(6).Text) * (0.0081 / 12) * nEnd IfText3(0).Text = total - Val(Trim(Text2(6).Text))Text3(1).Text = totalEnd IfElseText3(0).Text = "": Text3(1).Text = ""End IfEnd SubPrivate Sub Command4_Click(Index As Integer)Select Case IndexCase 0For i = 0 To 6record_info(i) = Text2(i).TextNext iIf record_info(3) = "存款" ThenData1.Recordset.AddNewText2(1).Text = record_info(1)Text2(5).Text = record_info(5)Text2(6).Text = record_info(6)Text2(2).Text = numbText2(3).Text = "取款"Text2(0).Text = record_info(0) + 1Command4(0).Enabled = FalseCommand4(1).Enabled = TrueCommand2.Enabled = TrueEnd IfCase 1Data1.Recordset.UpdateData1.RefreshCommand4(0).Enabled = TrueCommand4(1).Enabled = FalseCommand2.Enabled = FalseEnd SelectEnd SubPrivate Sub Form_Load()Frame1.Visible = FalseMSFlexGrid1.Visible = FalseFor i = 0 To 6Text2(i).Enabled = FalseNext iCommand4(1).Enabled = FalseCommand2.Enabled = FalseText3(0).Enabled = FalseText3(1).Enabled = FalseEnd Sub子窗体：挂失业务提示：挂失及解除功能，应理解为修改字段“使用状态”的值Private Sub Command1_Click()info = "select * from 客户存折基本信息where 存折编号= '" & Trim(Text1(0).Text) & "'"Data1.RecordSource = info & " and 客户密码= '" & Trim(Text1(1).Text) & "'" Data1.RefreshIf Not Data1.Recordset.EOF ThenFrame1.Visible = TrueFrame1.Caption = Frame1.Caption & " [" & numb & "]"ElseText1(0).Text = "": Text1(1).Text = ""Text1(0).SetFocusEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)Data1.Recordset.EditIf Index = 0 Then Text2(1).Text = "挂失冻结"If Index = 1 Then Text2(1).Text = "正常使用"Data1.Recordset.UpdateData1.RefreshEnd SubPrivate Sub Form_Load()Frame1.Visible = FalseEnd Sub模块文件定义的全局变量：Public numb As StringPublic ding_lixi(1 To 6, 1 To 4)。