|
第一节 用户界面的实现 paper51.com 一、启动画面 copyright paper51.com
启动画面是为了给用户一个良好的印象，加深软件的亲和力，没有实际的功能，在Form1窗体中加入了Image和Time组件。启动画面的窗体 内容来自www.paper51.com paper51.com 主要的源代码如下： copyright paper51.com
Private Sub Frame1_DragDrop(Source As Control, X AsSingle, Y As Single) copyright paper51.com End Sub paper51.com Private Sub Form_Click() http://www.paper51.com
Unload Me 内容来自论文无忧网 www.paper51.com Load frmlogin http://www.paper51.com frmlogin.Show copyright paper51.com End Sub paper51.com Private Sub Form_Unload(Cancel As Integer) http://www.paper51.com Unload Me copyright paper51.com Load frmlogin copyright paper51.com frmlogin.Show copyright paper51.com End Sub http://www.paper51.com 一、用户登录窗体的的实现 paper51.com （一） 本窗体是为了让工作人员按照用户名和密码进行登录，并且跟据用户名检查Keyer表中的“权限”字段，以分辩使用人员是否有权限进入管理界面。窗体界面如下： 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
（二）源代码如下 http://www.paper51.com
Private Sub cmdok_Click() paper51.com If namedacom = "" Then 内容来自论文无忧网 www.paper51.com MsgBox "用户名不能为空！", vbOKOnly +vbExclamation, " 警告！" 内容来自论文无忧网 www.paper51.com Exit Sub copyright paper51.com End If copyright paper51.com If namedacom <> "流动资金贷款" Then copyright paper51.com MsgBox "没有该用户", vbOKOnly +vbExclamation copyright paper51.com Exit Sub http://www.paper51.com Else http://www.paper51.com If passTxt = "111111" Then http://www.paper51.com Unload frmlogin 内容来自论文无忧网 www.paper51.com
Load Form1 http://www.paper51.com Form1.Show copyright paper51.com Else 内容来自论文无忧网 www.paper51.com If num < 2 Then 内容来自论文无忧网 www.paper51.com num = num + 1 内容来自论文无忧网 www.paper51.com MsgBox "口令不对，请重新输入！你还有" & Str(3 -num) & "次机会。", vbOKOnly +vbExclamation http://www.paper51.com
passTxt.SetFocus 内容来自www.paper51.com Exit Sub http://www.paper51.com Else 内容来自www.paper51.com Do While 1> 0 copyright paper51.com Loop 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com End If paper51.com End If copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com （三）用户权限验证 copyright paper51.com copyright paper51.com
http://www.paper51.com
第二节 客户管理界面 paper51.com 一、用户界面包括：打开文档、关闭文档、浏览文档、新增记录、删除记录、关于、帮助。 copyright paper51.com 二、管理项目包括：贷款申请、贷前调查、信用评价、公司受信业务、 copyright paper51.com
贷款发放、贷款展期、贷款回收。 内容来自www.paper51.com 窗体界面如下： http://www.paper51.com
paper51.com 二、贷款申请包括：申请担保情况、申请担保企业提供文件、拟贷款银行建议、市信保中心意见，窗体如下： paper51.com
内容来自论文无忧网 www.paper51.com 第三节 数据表格： 内容来自www.paper51.com 内容来自www.paper51.com copyright paper51.com 内容来自论文无忧网 www.paper51.com paper51.com 二、贷前调查 内容来自www.paper51.com
paper51.com 二、贷前调查源代码如下： 内容来自论文无忧网 www.paper51.com
Private Index As Integer http://www.paper51.com Private DbName As String http://www.paper51.com Private Table As String 内容来自论文无忧网 www.paper51.com Private Sub Form_Load() copyright paper51.com loadInfo http://www.paper51.com DbName = "dksqs.mdb" 内容来自论文无忧网 www.paper51.com Table = "ndkyhyj" 内容来自论文无忧网 www.paper51.com End Sub 内容来自www.paper51.com Private Sub Toolbar1_ButtonClick(ByVal Button AsMSComctlLib.Button) 内容来自论文无忧网 www.paper51.com
On Error Resume Next 内容来自论文无忧网 www.paper51.com If Button.Caption = "打开档案" Then http://www.paper51.com loadInfo http://www.paper51.com ElseIf Button.Caption = "关闭档案" Then http://www.paper51.com closeInfo 内容来自www.paper51.com ElseIf Button.Caption = "浏览档案" Then 内容来自论文无忧网 www.paper51.com browseInfo paper51.com ElseIf Button.Caption = "新增记录" Then http://www.paper51.com
newInfo 内容来自www.paper51.com ElseIf Button.Caption = "编辑记录" Then copyright paper51.com
ElseIf Button.Caption = "删除记录" Then copyright paper51.com Data1.Recordset.Delete 内容来自论文无忧网 www.paper51.com Data1.Recordset.MoveLast paper51.com Data1.Refresh http://www.paper51.com End If 内容来自www.paper51.com End Sub http://www.paper51.com Private Sub browseInfo() 内容来自论文无忧网 www.paper51.com
On Error Resume Next 内容来自论文无忧网 www.paper51.com Table = TableFrom(Index) 内容来自论文无忧网 www.paper51.com
DbName = dbNameFrom(Index) 内容来自www.paper51.com
Data1.DatabaseName = App.Path + "\mdb\" + DbName http://www.paper51.com
Data1.RecordSource = Table 内容来自论文无忧网 www.paper51.com Data1.Refresh 内容来自www.paper51.com End Sub 内容来自www.paper51.com Private Sub newInfo() 内容来自论文无忧网 www.paper51.com On Error Resume Next 内容来自www.paper51.com Data1.Recordset.AddNew copyright paper51.com Data1.Recordset.Update paper51.com Data1.Recordset.MoveLast 内容来自论文无忧网 www.paper51.com
Data1.Refresh 内容来自www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub loadInfo() http://www.paper51.com TreeView1.Nodes.Clear copyright paper51.com Index = 1 内容来自www.paper51.com
TreeView1.Nodes.Add , tvwLast, , "贷款申请书", 5 http://www.paper51.com TreeView1.Nodes.Add Index, tvwChild, , "申请担保贷款情况", 4 paper51.com TreeView1.Nodes.Add Index, tvwChild, , "申请担保企业提供文件", 6 内容来自www.paper51.com TreeView1.Nodes.Add Index, tvwChild, , "拟贷款银行意见", 3 内容来自论文无忧网 www.paper51.com TreeView1.Nodes.Add Index, tvwChild, , "市信保中心意见", 27 内容来自论文无忧网 www.paper51.com
TreeView1.Nodes.Add , tvwLast, , "贷前调查情况", 9 paper51.com
TreeView1.Nodes.Add 6, tvwChild, , "调查人", 30 内容来自www.paper51.com
TreeView1.Nodes.Add 6, tvwChild, , "企业基本情况", 11 内容来自www.paper51.com TreeView1.Nodes.Add 6, tvwChild, , "企业借款原因", 15 paper51.com TreeView1.Nodes.Add 6, tvwChild, , "企业还款能力", 29 copyright paper51.com TreeView1.Nodes.Add 6, tvwChild, , "借款担保方式", 33 copyright paper51.com TreeView1.Nodes.Add 6, tvwChild, , "调查结论", 8 内容来自论文无忧网 www.paper51.com TreeView1.Nodes.Add , tvwLast, , "信用评价", 7 copyright paper51.com
TreeView1.Nodes.Add , tvwLast, , "公司授信业务", 18 copyright paper51.com
TreeView1.Nodes.Add , tvwLast, , "贷款发放", 14 http://www.paper51.com TreeView1.Nodes.Add , tvwLast, , "贷款展期", 2 paper51.com
TreeView1.Nodes.Add , tvwLast, , "贷款收回", 31 内容来自www.paper51.com End Sub paper51.com Private Sub closeInfo() http://www.paper51.com TreeView1.Nodes.Clear 内容来自www.paper51.com Index = 1 paper51.com End Sub 内容来自www.paper51.com Private Sub TreeView1_Click() paper51.com On Error GoTo err copyright paper51.com Index = TreeView1.SelectedItem.Index 内容来自www.paper51.com err: 内容来自www.paper51.com
End Sub 内容来自www.paper51.com Private Function dbNameFrom(Index As Integer) As String paper51.com
If Index > 1 And Index < 6 Then 内容来自论文无忧网 www.paper51.com dbNameFrom = "dksqs.mdb" paper51.com ElseIf Index > 6 And Index < 13 Then 内容来自论文无忧网 www.paper51.com dbNameFrom = "dqdcqk.mdb" 内容来自www.paper51.com
ElseIf Index = 13 Then http://www.paper51.com dbNameFrom = "xypj.mdb" paper51.com ElseIf Index = 14 Then 内容来自www.paper51.com dbNameFrom = "gssxyw.mdb" http://www.paper51.com ElseIf Index = 15 Then paper51.com dbNameFrom = "dkff.mdb" copyright paper51.com ElseIf Index = 16 Then http://www.paper51.com dbNameFrom = "dkzq.mdb" 内容来自论文无忧网 www.paper51.com ElseIf Index = 17 Then paper51.com dbNameFrom = "dksh.mdb" 内容来自www.paper51.com End If http://www.paper51.com
End Function http://www.paper51.com Private Function TableFrom(Index As Integer) As String 内容来自论文无忧网 www.paper51.com Select Case Index http://www.paper51.com Case 2: 内容来自www.paper51.com
TableFrom = "sqdbdkqk" copyright paper51.com
Case 3: copyright paper51.com TableFrom = "sqdbqytgwj" copyright paper51.com Case 4: http://www.paper51.com TableFrom = "ndkyhyj" 内容来自www.paper51.com Case 5: paper51.com TableFrom = "sxbzxyj" http://www.paper51.com Case 7: 内容来自论文无忧网 www.paper51.com
TableFrom = "dcr" 内容来自www.paper51.com Case 8: 内容来自论文无忧网 www.paper51.com TableFrom = "qyjbqk" paper51.com Case 9: http://www.paper51.com TableFrom = "qyjkyy" 内容来自论文无忧网 www.paper51.com Case 10: paper51.com
TableFrom = "qyhknl" copyright paper51.com Case 11: paper51.com TableFrom = "jkdbfs" copyright paper51.com Case 12: http://www.paper51.com TableFrom = "dcjl" 内容来自www.paper51.com Case 13: 内容来自www.paper51.com
TableFrom = "xypj" http://www.paper51.com Case 14: paper51.com TableFrom = "gssxyw" http://www.paper51.com Case 15: 内容来自论文无忧网 www.paper51.com TableFrom = "dkff" http://www.paper51.com
Case 16: 内容来自www.paper51.com
TableFrom = "dkzq" http://www.paper51.com
Case 17: http://www.paper51.com TableFrom = "dksh" 内容来自www.paper51.com
End Select http://www.paper51.com End Function 内容来自论文无忧网 www.paper51.com Private Sub TreeView1_DblClick() paper51.com
browseInfo paper51.com
End Sub copyright paper51.com |