vb2010实验告三--完整单据的设计.doc

软件开发环境与工具 实验报告 实验三 实验题目: 完整单据的设计 实验类型: 验证性 指导老师：王琦 实验地点：软件实验室一 专业班级: 计算机科学与技术系班 姓名学号: 2013年 11月 25日 一、实验题目 完整单据的设计 二、实验目的 通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方 法，特别是单据中的编码以及状态的控制，为课程设计做准备。 三、实验要求 实验功能要求： 1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。 2、对单据的编码及状态要进行控制。 3、用.NET分层架构设计。 4、单据的具体内容自定 四、实验内容 1、新建数据库为dan ju; 建立三张表user, code, dj user表内容如下： code表内容如下： dj表内容如下： B.实验代码 1)登陆时所需代码 Dim o As New myData.clsUser Dim k As New DataGridView Public s As String Private Sub Button1_Click(…) Handles Btodl.Click Dim dr As SqlClient.SqlDataReader Dim yn, ym As String yn = Trim(Me.Txtyh.Text) ym = Me.Txtmm.Text dr = o.getall2dr(yn) If dr.Read Then If CInt(dr.Item(ymm)) = Trim(ym) Then MsgBox(登录成功) s = Me.Txtyh.Text Me.Hide() 单据表.Show() Else MsgBox(密码错误) End If Else MsgBox(该用户不存在) End If 2）单据功能模块代码 Dim o As New myData.clsUser Dim p As Integer = 0 Dim s As String Dim dv As New DataView Dim index As Integer ’窗体载入数据初始化 Me.Txtboss.Text = frmdl.s Me.Txtdate.Text = Format(Now, yyyy-MM-dd) Dim ds As New DataSet ds = o.getall2ds() Me.DataGridView1.DataSource = ds.Tables(0).DefaultView Me.TextBox1.Text = DateTimePicker.Value ’数据插入 Dim ds As DataSet ds = o.insert(Trim(Me.Txtnum.Text), Me.Txtdate.Text, Me.Txtconsumer.Text, Me.Cbxmk.Text, CStr(Me.Txtmoney.Text), p) ds.Tables.Clear() ds = o.getall2ds() Me.DataGridView1.DataSource = ds.Tables(0) ’数据删除 Dim ds As DataSet ds = o.delete(Trim(Me.Txtsc.Text)) ds.Tables.Clear() ds = o.getall2ds() Me.DataGridView1.DataSource = ds.Tables(0) ’数据查询 Dim ds As DataSet ds = o.getall2ds(Trim(Me.Txtcx.Text)) ds.Tables.Clear() ds = o.getall2ds(Trim(Me