软件开发环境与工具实验报告
实验三
实验题目：单据设计
指导老师：***
专业班级：计算机科学与技术系**班
姓 名：***
2013年 11月30日
实验类型 验证 实验室 软件实验室一
一、实验题目
完整单据的设计
二、实验目的
1.掌握单据设计的基本流程
2.了解一个单据要实现的基本功能（新增，修改，删除）
3.利用三层架构思想及ADO.NTE技术实现程序要求
3、 实验内容
1、设计单据展示页面。
2、利用工具栏添加功能键，实现其相应的功能。
3、能够对单据进行的新增、编辑、保存等等。
四、 实验步骤
1、主页的设计代码
Public Class RK_sl
Dim app As New Ku_Apply.Class1
Dim dtset As DataSet
Dim dtset1 As DataSet
Dim dtsetline As DataSet
Dim cRow As DataRow
Dim cRow1 As DataRow
Dim str(100) As String
Dim biaoji As String
Dim jilu As Integer
Dim max As Integer
Private Sub ToolList_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolList.ItemClicked
Select Case e.ClickedItem.Text
Case "增加¨"
Me.BillsName.Enabled = True
Me.StorageID.Enabled = True
Me.CK_Name.Enabled = false
Me.RU_sl.Enabled = True
Me.ZD_Name.Enabled = True
Me.SH_Name.Enabled = False
Me.TextID.Enabled = False
Me.SH_Name.Enabled = False
biaoji = "增加¨"
Case "删除"
biaoji = "删除"
Me.BillsName.Enabled = False
Me.StorageID.Enabled = False
Me.CK_Name.Enabled = False
Me.RU_sl.Enabled = False
Me.SH_Name.Enabled = False
Me.TextID.Enabled = True
Me.SH_Name.Enabled = False
Case ("修改")
biaoji = "修改"
Me.BillsName.Enabled = True
Me.StorageID.Enabled = True
Me.CK_Name.Enabled = False
Me.RU_sl.Enabled = True
Me.ZD_Name.Enabled = True
Me.SH_Name.Enabled = False
Me.TextID.Enabled = True
Me.SH_Name.Enabled = False
Case "查找"
biaoji = "查找"
Me.BillsName.Enabled = False
Me.StorageID.Enabled = False
Me.CK_Name.Enabled = False
Me.RU_sl.Enabled = False
Me.ZD_Name.Enabled = False
Me.TextID.Enabled = True
Me.SH_Name.Enabled = False
Case "审查"
biaoji = "审查"
Me.BillsName.Enabled = False
Me.StorageID.Enabled = False
Me.CK_Name.Enabled = False
Me.RU_sl.Enabled = False
Me.ZD_Name.Enabled = False
Me.SH_Name.Enabled = True
Me.TextID.Enabled = True
Case "首页"
Call FirstRow()
Case "上页"
Call PreRow()
Case "下页"
Call NextRow()
Case "末页"
Call EndRow()
End Select
End Sub
Sub FirstRow()
jilu = 1
Me.page(jilu)
End Sub
Sub PreRow()
jilu -= 1
Me.page(jilu)
End Sub
Sub NextRow()
jilu += 1
Me.page(jilu)
End Sub
Sub EndRow()
biaoji = dtset.Tables(2).DefaultView.Count / 5
Me.page(jilu)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dtset = app.fill
Dim i As Integer
i = 0
For Each Me.cRow In dtset.Tables(0).Rows
Me.StorageID.Items.Add(cRow(0).ToString)
str(i) = cRow(1).ToString
i += 1
Next
For Each Me.cRow1 In dtset.Tables(1).Rows
Me.BillsName.Items.Add(cRow1(0).ToString & "--" & cRow1(1).ToString)
Next
Me.ZD_Date.Text = Date.Today.Year() & "-" & Date.Today.Month() & "-" & Date.Today.Day() & "-" & Date.Now.Hour() & "-" & Date.Now.Minute()
jilu = dtset.Tables(2).DefaultView.Count / 5
max = jilu
Me.page(jilu)
End Sub
Private Sub StorageID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StorageID.SelectedIndexChanged
Me.CK_Name.Text = str(Me.StorageID.SelectedIndex)
本文档为【VB实验单据设计】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483