资源描述：
《vb模板完整单据的设计 - 副本》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、软件开发环境与工具实验报告实验三实验题目:完整单据的设计实验类型:验证性指导老师：王琦专业班级:计算机科学与技术系1001班学号:2010100152姓名:陈振北2012年10月24日一、实验题目完整单据的设计二、实验目的通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方法，特别是单据中的编码以及状态的控制，为课程设计做准备。三、实验功能要求1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。2、对单据的编码及状态要进行控制。3、用.NET分层架构设计。4、单据的具体内容自定。实验报告要求：1、对所用到的技术要做详细说明。2
2、、对数据库库表设计要做说明。3、给出核心代码，并要有详细的注释。4、给出程序运结果，并做相应测试。5、要有实验总结收获及体会。最终要提交实验报告及实验代码四、实验步骤1，表单编码的自动生成相应的代码：PublicClassclsCodeFormatPublicSharedFunctiongetNewCode(ByValpBMMCAsString)AsStringDimstrSQLAsStringDimbAsBoolean=FalseDimNewCodeAsString=""DimLSHAsStringDimdrAsSqlClient.SqlD
3、ataReaderstrSQL="Select*fromcodewherebmmc='"&pBMMC&"'"dr=myCommon.SqlHelper.ExecuteReader(myCommon.clsStrconn.getStrConn,CommandType.Text,strSQL)Whiledr.ReadSelectCasedr!BMLCase"文本"NewCode&=dr!BMZCase"年"NewCode&=Format(Now,"yyyy")Ifdr!BMZ<>Format(Now,"yyyy")Thenb=TrueUpdate
4、(dr!id,Format(Now,"yyyy"))EndIfCase"月"NewCode&=Format(Now,"MM")Ifdr!BMZ<>Format(Now,"MM")Thenb=TrueUpdate(dr!id,Format(Now,"MM"))EndIfCase"日"NewCode&=Format(Now,"dd")Ifdr!BMZ<>Format(Now,"dd")Thenb=True'更新Update(dr!id,Format(Now,"dd"))EndIfCase"流水号"Ifb=TrueThenLSH="0001"Els
5、eLSH=Format(CType(dr!BMZ,Decimal)+1,"0000")EndIfNewCode&=LSHUpdate(dr!id,LSH)EndSelectEndWhileReturnNewCodeEndFunctionPublicSharedFunctionUpdate(ByValpIDAsInteger,ByValpnewBMZAsString)AsStringDimstrSQLAsStringstrSQL="UpdatecodesetBMZ='"&pnewBMZ&"'whereid="&pIDmyCommon.SqlHe
6、lper.ExecuteNonQuery(myCommon.clsStrconn.getStrConn,CommandType.Text,strSQL)EndFunctionEndClass2.调用相关的方法，并且自动生成流水号，并加以新增表单CallFormNew()SubFormNew()Me.txtDJBM.Text=myCommon.clsCodeFormat.getNewCode("销售")Me.txtKHMC.Text=""Me.txtZDRQ.Text=Format(Now,"yyyy-MM-dd")Me.txtZDR.Text
7、="管理员"EndSub3,默认设置为系统管理员，4.数据库表为:五、实验结果六、实验总结了解了相关的设计方式和相关的库的建立
