软件开发环境与工具实验三报告

验题目：完整单据的设计实验目的:通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方法，特别是单据中的编码以及状态的控制，为课程设计做准备。实验要求：实验功能要求：1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。2、对单据的编码及状态要进行控制。3、用.NET分层架构设计。4、单据的具体内容自定。四．实验内容：1.单据：单据是办理货物的交付和货款的支付的一种依据。单据可以表明出口商是否履约，履约的程度。进口商品以单据作为提取货物的货权凭证，有了单据，就表明有了货物单据类型：1).带明细的表单；2).不带明细的表单；status控件：一个Status控件通过了一个窗口，通常都在应用程序的底部，应用程序可以在其中显示各种状态数据。一个Status控件最多可以分成16个Panel对象，都保存在一个Panels集合中。4.数据库的设计:1).建立名为BD的数据库；2).数据库中的表的建立:1>.用户表(UserInfo):2>.单据表(BD):3>.单据格式表(CodeFormat):5.实验代码：1>.数据库连接核心代码:1.1：联机式代码:PublicFunctiongetall2dr(ByValstrWhereAsString)AsSqlClient.SqlDataReaderDimconnAsNewSqlClient.SqlConnectionconn.ConnectionString=Mycommon.clsConn.getstrConnDimcmdAsNewSqlClient.SqlCommandcmd.CommandType=CommandType.Textcmd.Connection=connIfstrWhere=""Thencmd.CommandText="select*fromUserInfo"Elsecmd.CommandText="select*fromUserInfowhere"&strWhereEndIfDimdrAsSqlClient.SqlDataReaderconn.Open()dr=cmd.ExecuteReader(CommandBehavior.CloseConnection)ReturndrEndFunction1.2：断开式代码:PublicFunctiongetall2ds(ByValstrWhereAsString)AsDataSetDimconnAsNewSqlClient.SqlConnectionconn.ConnectionString=Mycommon.clsConn.getstrConnDimcmdAsNewSqlClient.SqlCommandcmd.CommandType=CommandType.Textcmd.Connection=connIfstrWhere=""Thencmd.CommandText="select*fromUserInfo"Elsecmd.CommandText="select*fromUserInfowhere"&strWhereEndIfDimadpAsNewSqlClient.SqlDataAdapteradp.SelectCommand=cmdDimdsAsNewDataSetadp.Fill(ds,"temp")ReturndsEndFunction2>.用户登录核心代码:PrivateSubLOGIN_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLOGIN.ClickDimdrAsSqlClient.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("密码错误！","系统提示",MessageBoxButtons.RetryCancel,

MessageBoxIcon.Information)EndIfElseMessageBox.Show("该用户不存在","系统提示",MessageBoxButtons.OKCancel,

MessageBoxIcon.Information)EndIf3>.主要功能核心代码:.新增：PrivateSubNew_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesNew.ClickMe.action="new"CallClearForm()EndSubSubClearForm()Me.DJBM.Text=Mycommon.clsCodeFormat.getNewCode("合同编码")‘找到类型为合同的表单Me.ZDRQ.Text=Format(Now,"yyyy-MM-dd")’制单日期为系统现在时间Me.KHMC.Text=""Me.ZDR.Text=user'制单人为当前登录人Me.SHR.Text=""CallbtnState(1)EndSub.保存:PrivateSubSave_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesSave.ClickDimsrAsString'将单据编码，制单日期等传参o.dDJBM=Me.DJBM.Texto.dZDRQ=Me.ZDRQ.Texto.dZDR=Me.ZDR.Texto.dKHMC=Me.KHMC.TextIfaction="new"Thensr=o.save'调用保存函数PublicFunctionsave()AsStringstrSQL="insertintoBD(DJBM,ZDRQ,KHMC,ZDR)values('"&dDJBM&"','"&dZDRQ&"','"&dKHMC&"','"&dZDR&"')"TryMycommon.SqlHelper.ExecuteNonQuery(Mycommon.clsConn.getstrConn,CommandType.Text,strSQL)Return"1"CatchexAsExceptionReturn"-1"&ex.MessageEndTryEndFunction.修改:DimsrAsStringo.dKHMC=Me.KHMC.Text’将修改的客户名称传参o.dDJBM=Me.DJBM.Text‘在系统查找修改表单时按单据编码来找sr=o.edit'调用修改函数PublicFunctionedit()AsString’修改函数strSQL="updateBDsetKHMC='"&dKHMC&"'whereDJBM='"&dDJBM&"'"TryMycommon.SqlHelper.ExecuteNonQuery(Mycommon.clsConn.getstrConn,CommandType.Text,strSQL)Return"1"CatchexAsExceptionReturn"-1"&ex.MessageEndTryEndFunction.删除:DimsrAsStringo.dDJBM=Me.DJBM.Text‘将删除的单据编码作为参数传给删除函数sr=o.del'调用删除函数PublicFunctiondel()AsString'删除函数strSQL="deletefromBDwhereDJBM='"&dDJBM&"'"TryMycommon.SqlHelper.ExecuteNonQuery(Mycommon.clsConn.getstrConn,CommandType.Text,strSQL)Return"1"CatchexAsExceptionReturn"-1"&ex.MessageEndTryEndFunction5).浏览:PrivateSubView_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesView.Clickgxgrid()'调用更新函数EndSubSubgxgrid()'更新数据库和gridview中数据Me.DataGridView1.DataSource=o.getall2ds("").Tables(0).DefaultViewEndSub.审核:PrivateSubSH_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesSH.ClickDimsrAsStringsr=o.search'先检测待审核的表单是否为未审核表，如果是则进行审核Ifsr<>""ThenMe.SHR.Text=userElseMe.ZDR.Text=srMe.SHR.Text=userEndIfEndSubPublicFunctionsearch()AsString‘查找函数strSQL="selectZDRfromBDwhereDJBM='"&dDJBM&"'"TryMycommon.SqlHelper.ExecuteNonQuery(Mycommon.clsConn.getstrConn,CommandType.Text,strSQL)Returncmd.ExecuteScalarCatchexAsExceptionReturn"-1"&ex.MessageEndTryEndFunction.对表单的状态的控制核心代码:SubbtnState(ByValpactionAsInteger)Ifpaction=1ThenMe.New.Enabled=False’新建按钮Me.Del.Enabled=False's删除按钮Me.View.Enabled=False'显示按钮Me.Edit.Enabled=True'修改按钮Me.SH.Enabled=False'审核按钮Me.Cancel.Enabled=True'取消按钮Me.Save.Enabled=True'保存按钮ElseMe.New.Enabled=TrueMe.Del.Enabled=TrueMe.Edit.Enabled=TrueMe.View.Enabled=TrueMe.Save.Enabled=FalseMe.Cancel.Enabled=FalseIfdv.Count=0Ordv.Count=1ThenMe.SHY.Enabled=False'首页Me.SYY.Enabled=False"上一页Me.XYY.Enabled=False'下一页Me.MY.Enabled=False'末页ElseIfpIndex=0ThenMe.SHY.Enabled=FalseMe.SYY.Enabled=FalseMe.XYY.Enabled=TrueMe.MY.Enabled=TrueElseIfpIndex=dv.Count-1ThenMe.SHY.Enabled=TrueMe.SYY.Enabled=TrueMe.XYY.Enabled=FalseMe.Edit.Enabled=FalseElseMe.SHY.Enabled=TrueMe.SYY.Enabled=TrueMe.XYY.Enabled=TrueMe.MY.Enabled=TrueEndIfEndIfEndIfEndSub.翻页控制核心代码：PrivateSubSHY_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesSHY.ClickIfdv.Count>0ThenpIndex=0CallshowCurrentRow(pIndex)EndIfEndSubPrivateSubMY_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMY.ClickIfdv.Count>0ThenpIndex=dv.Count-1CallshowCurrentRow(pIndex)EndIfEndSubPrivateSubSYY_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesSYY.ClickIfpIndex>0ThenpIndex-=1CallshowCurrentRow(pIndex)EndIfEndSubPrivateSubXYY_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesXYY.ClickIfpIndex<dv.Count-1ThenpIndex+=1CallshowCurrentRow(pIndex)EndIfEndSub.表单格式代码:Whiledr.ReadSelectCasedr!BMLXCase"文本"newCode&=dr!BMZCase"年"Ifdr!BMZ<>Format(Now,"yyyy")ThennewCode&=Format(Now,"yyyy")LSH="X"update(dr!id,Format(Now,"yyyy"))'更新ElsenewCode&=dr!BMZEndIfCase"月"Ifdr!BMZ<>Format(Now,"MM")ThennewCode&=Format(Now,"MM")LSH="X"update(dr!id,Format(Now,"MM"))'更新ElsenewCode&=dr!BMZEndIfCase"日"