实验三单据设计
- 格式：doc
- 大小：200.00 KB
- 文档页数：11
软件开发环境与工具
实验报告
实验三
实验题目：单据设计
实验地点：软件实验室一
指导老师：**
实验类型：设计型
系 班：计算机科学与技术系**班
姓 名：*******
2013年12月2日
一、实验题目
单据设计
二、实验目的
1、熟悉Microsoft Visual Studio中的表示层、业务逻辑层、公共类库层、数据访问层之间的区别与联系。
2、通过Microsoft Visual Studio与数据库的连接熟悉访问数据库的两种方式断开式与联机式。
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)
End Sub
Public Function page(ByVal line As Integer)
If line = 1 Then
Me.ToolFirst.Enabled = True
Me.Toolpre.Enabled = False
Me.Toolnext.Enabled = True
Me.Toolend.Enabled = False
ElseIf line = max Then
Me.ToolFirst.Enabled = True
Me.Toolpre.Enabled = True
Me.Toolnext.Enabled = False
Me.Toolend.Enabled = True
