原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
汽车信贷管理系统课程计实验报告
软件开发环境与工具
实验报告
课程设计
实验题目: 汽车信贷管理系统
实验类型: 设计性
指导老师：
专业班级:
学号姓名:
2014年 12月 22日
一、实验题目
汽车信贷管理系统
二、实验目的
通过本次实验，进一步掌握 ADO.NET五大对象及其功能，掌握利用ADO.NET对数据库进行存取的两种方法，并利用 ADO.NET，采用分层架构，实现一个完整的信贷管理系统程序。
三、实验功能要求
1、完成三个模块的设计：信贷管理系统的首付通知单（其中中必须包含单据的所有功能，而内容则主要包含用户信息，汽车信息，贷款信息三部分）、各级审核功能（而且需设置审核限制）、自动生成还款方式（包括定额本金和定额本息两种付款方式）。
2、用.NET分层架构设计。
四、实验步骤
1.新建数据库QCXD,在数据库中建立如下表，显示如下：
2. 实验核心代码：
显示层代码：
登录：
Private Sub UserLogin_Click_1(…) Handles UserLogin.Click
Dim dr As SqlClient.SqlDataReader
dr = o.getall2dr( UserID= Me.txtUser.Text )
If dr.Read Then
If dr.Item(Pwd) = Me.Psw.Text Then
MessageBox.Show(恭喜您登录成功！, 系统提示, MessageBoxButtons.OK, MessageBoxIcon.Information)
DJGL.Show()
Me.Close()
Else
MessageBox.Show(密码错误！, 系统提示, MessageBoxButtons.RetryCancel, MessageBoxIcon.Information)
End If
Else
MessageBox.Show(该用户不存在, 系统提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
End If
End Sub
单据审核：
Private Sub Dj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
user1 = DJGL.user
Dim drname As SqlClient.SqlDataReader
drname = p.getall2dr( UserID= user1 )
If drname.Read Then
user1 = drname.Item(UserName)
End If
Call InitData()
If dv.Count 0 Then
pIndex = dv.Count - 1
Call showCurrentRow(pIndex)
End If
Me.ToolStripStatusLabel1.Text = 日期： Format(Now, yyyy-MM-dd)
Me.ToolStripStatusLabel2.Text = 登录时间: Format(Now, hh:mm:ss)
Me.ToolStripStatusLabel3.Text = 登录人： user1
Dim dr As SqlClient.SqlDataReader
dr = p.getall2dr( UserDept=制单)
If dr.Read Then
If dr.Item(UserID) = user1 Then
Me.txtAJR.Enabled = False
Me.txtCWR.Enabled = False
Me.txtZSR.Enabled = False
Me.txtZZR.En
文档评论（0）