《VB完整单据的设计.docx》由会员分享，可在线阅读，更多相关《VB完整单据的设计.docx（5页珍藏版）》请在三一文库上搜索。
1、乡运战学院软件开发环境与工具实验报告实验三实验题目：完整单据的设计实验类型：验证性指导老师：王琦专业班级：计算机科学与技术系1001班学 号：及姓 名：刘胜虎2012年12月1日一、实验题目完整单据的设计二、实验目的通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方 法，特别是单据中的编码以及状态的控制，为课程设计做准备三、实验功能要求1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。2、对单据的编码及状态要进行控制。3、用.NET分层架构设计。4、单据的具体内容自定。四、主要技术1、ADO. NET五大对象：connection连接对象command命令对象，指示要执行的
2、命令和存储过程！datareader是一个向前的只读的数据流。dataadapter是功能强大的适配器，支持增删改查的功能dataset是一个数据级对象，相当于内存中的一张表或多张表！2、数据库ZGC-2O11112UBZ.DB dbo.Urtnf 0 Then plndex = 0Call showCurrentRow(plndex)End If End SubPrivate Sub Bu 11 on 11_C 1 i ck (By V a 1 sender As System. Object, By Vai e As System. EventArgs) Handles Buttonll.
3、 Click If dv. Count 0 Thenplndex = dv. Count - 1Call showCurrentRow(plndex) End If End SubPrivate Sub Button9_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Button9. ClickIf plndex 0 Thenplndex 一二 1Call showCurrentRow(plndex) End If End SubPrivate Sub Bu 11 on 10_C lick
4、(By Va 1 sender As System. Object, By Vai e As System. EventArgs) Handles ButtonlO. ClickIf plndex dv. Count - 1 Thenplndex += 1Call showCurrentRow(plndex)End IfEnd Sub自动生成编码Public Shared Function getNewCode(ByVai pBMMC) As StringDim strSQL As StringDim newCode As String = ”Dim LSH, newLSH As String
5、Dim dr As SqlClient. SqlDataReaderstrSQL = select * from CodeFormat where BMMC= & pBMMC &dr = , CommandType. Text, strSQL)While dr. ReadSelect Case dr!BMLXCase 文本newCode &= dr!BMZCase 年”If dr!BMZ Format(Now, yyyy) Then newCode &= Format(Now, yyyy) LSH = X update(dr!id, Format(Now, yyyy) 更新Else newCo
6、de &= dr!BMZEnd IfCase 月If dr!BMZ Format(Now, MM) Then newCode &= Format(Now, LSH 二 update(dr!id, Format(Now, MM) 更新Else newCode &= dr!BMZEnd IfCase 日If dr!BMZ Format(Now, dd) Then newCode &= Format(Now, dd)update(dr!id, Format(Now, dd) LSH = X更新Else newCode &= dr!BMZEnd If Case 流水号If LSH = X ThennewLSH = 0001ElsenewLSH = Format(CType(dr!BMZ, Decimal) + 1, 0000)End If newCode &二 newLSH update(dr!id, newLSH) 更新流水号 End SelectEnd WhileReturn newCode End Function 六、实验总结进一步熟悉了 ADO. net的五大对象,进一步了解和巩固了其 基本编程。了解了上下前后翻页的编程语句。可以实现自动生成单据 编码的功能。1