VB 完整单据的设计.docVIP

软件开发环境与工具 实验报告 实验三 实验题目: 完整单据的设计 实验类型: 验证性 指导老师：王琦 专业班级: 计算机科学与技术系1001班 学 号: 2010100120 姓 名: 刘胜虎 2012年 12月 1日 一、实验题目 完整单据的设计 二、实验目的 通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方法，特别是单据中的编码以及状态的控制，为课程设计做准备 三、实验功能要求 1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。 2、对单据的编码及状态要进行控制。 3、用.NET分层架构设计。 4、单据的具体内容自定。 四、主要技术 1、ADO.NET五大对象： connection 连接对象command 命令对象，指示要执行的命令和存储过程！datareader是一个向前的只读的数据流。 dataadapter是功能强大的适器，支持增删改查的功能dataset是一个数据级对象，相当内存中的一张表或多张表！ 五、实验步骤 1、用户登录 主要代码： Private Sub LOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOGIN.Click Dim dr As SqlClient.SqlDataReader dr = o.getall2dr( UserID= Me.user.Text ) If dr.Read Then If dr.Item(Psw) = Me.psw.Text Then MessageBox.Show(恭喜您登录成功！, 系统提示, MessageBoxButtons.OK, MessageBoxIcon.Information) BD.Show() Me.Close() Else MessageBox.Show(密码错误！, 系统提示, MessageBoxButtons.RetryCancel, MessageBoxIcon.Information) End If Else MessageBox.Show(该用户不存在, 系统提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) End If End Sub 2、单据设计 主要代码： ①上下前后翻页 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If dv.Count 0 Then pIndex = 0 Call showCurrentRow(pIndex) End If End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click If dv.Count 0 Then pIndex = dv.Count - 1 Call showCurrentRow(pIndex) End If End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If pIndex 0 Then pIndex -= 1 Call showCurrentRow(pIndex) End If End Sub Private Sub Button10_Cli