vb 完整单据的设计

《vb 完整单据的设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、软件开发环境与工具实验报告实验三实验题目:完整单据的设计实验类型:验证性指导老师：王琦专业班级:计算机科学与技术系1001班学号:2010100120姓名:刘胜虎2012年12月1日一、实验题目完整单据的设计二、实验目的通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方法，特别是单据中的编码以及状态的控制，为课程设计做准备三、实验功能要求1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。2、对单据的编码及状态要进行控制。3、用.NET分层架构设计。4、单据的具体内容自定。四、主要技

2、术1、ADO.NET五大对象：connection连接对象command命令对象，指示要执行的命令和存储过程！datareader是一个向前的只读的数据流。dataadapter是功能强大的适配器，支持增删改查的功能dataset是一个数据级对象，相当于内存中的一张表或多张表！2、数据库五、实验步骤1、用户登录主要代码：PrivateSubLOGIN_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLOGIN.Click

3、DimdrAsSqlClient.SqlDataReaderdr=o.getall2dr("UserID='"&Me.user.Text&"'")Ifdr.ReadThenIfdr.Item("Psw")=Me.psw.TextThenMessageBox.Show("恭喜您登录成功！","系统提示",MessageBoxButtons.OK,MessageBoxIcon.Information)BD.Show()Me.Close()ElseMessageBox.Show("密码错误！","系统提示"

4、,MessageBoxButtons.RetryCancel,MessageBoxIcon.Information)EndIfElseMessageBox.Show("该用户不存在","系统提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)EndIfEndSub2、单据设计主要代码：①上下前后翻页PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Event

5、Args)HandlesButton8.ClickIfdv.Count>0ThenpIndex=0CallshowCurrentRow(pIndex)EndIfEndSubPrivateSubButton11_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton11.ClickIfdv.Count>0ThenpIndex=dv.Count-1CallshowCurrentRow(pIndex)EndIfEndSu

6、bPrivateSubButton9_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton9.ClickIfpIndex>0ThenpIndex-=1CallshowCurrentRow(pIndex)EndIfEndSubPrivateSubButton10_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton10.Cli

7、ckIfpIndex

8、MC='"&pBMMC&"'"dr=myCommon.SqlHelper.ExecuteReader(myCommon.clsConn.getstrConn,CommandType.Text,strSQL)Whiledr.ReadSelectCasedr!BMLXCase"文本"newCode&=dr!BMZCase"年"Ifdr!BMZ<>Format(Now,"yyyy")ThennewCode&=Format(Now,"yyyy")LSH="X"u