軟件開發(fā)環(huán)境與工具實驗三報告

驗題目：完整單據(jù)的設(shè)計實驗?zāi)康?通過本次實驗，了解單據(jù)的類型及重要性，掌握兩種單據(jù)的設(shè)計及制作方法，特別是單據(jù)中的編碼以及狀態(tài)的控制，為課程設(shè)計做準備。實驗要求：實驗功能要求：1、實現(xiàn)單據(jù)的新增、修改、刪除、瀏覽、審核、棄審等功能。2、對單據(jù)的編碼及狀態(tài)要進行控制。3、用.NET分層架構(gòu)設(shè)計。4、單據(jù)的具體內(nèi)容自定。四．實驗內(nèi)容：1.單據(jù)：單據(jù)是辦理貨物的交付和貨款的支付的一種依據(jù)。單據(jù)可以表明出口商是否履約，履約的程度。進口商品以單據(jù)作為提取貨物的貨權(quán)憑證，有了單據(jù)，就表明有了貨物單據(jù)類型：1).帶明細的表單；2).不帶明細的表單；status控件：一個Status控件通過了一個窗口，通常都在應(yīng)用程序的底部，應(yīng)用程序可以在其中顯示各種狀態(tài)數(shù)據(jù)。一個Status控件最多可以分成16個Panel對象，都保存在一個Panels集合中。4.數(shù)據(jù)庫的設(shè)計:1).建立名為BD的數(shù)據(jù)庫；2).數(shù)據(jù)庫中的表的建立:1>.用戶表(UserInfo):2>.單據(jù)表(BD):3>.單據(jù)格式表(CodeFormat):5.實驗代碼：1>.數(shù)據(jù)庫連接核心代碼:1.1：聯(lián)機式代碼: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("恭喜您登錄成功！","系統(tǒng)提示",MessageBoxButtons.OK,MessageBoxIcon.Information)BD.Show()Me.Close()ElseMessageBox.Show("密碼錯誤！","系統(tǒng)提示",MessageBoxButtons.RetryCancel,

MessageBoxIcon.Information)EndIfElseMessageBox.Show("該用戶不存在","系統(tǒng)提示",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")’制單日期為系統(tǒng)現(xiàn)在時間Me.KHMC.Text=""Me.ZDR.Text=user'制單人為當前登錄人Me.SHR.Text=""CallbtnState(1)EndSub.保存:PrivateSubSave_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesSave.ClickDimsrAsString'將單據(jù)編碼，制單日期等傳參o.dDJBM=Me.DJBM.Texto.dZDRQ=Me.ZDRQ.Texto.dZDR=Me.ZDR.Texto.dKHMC=Me.KHMC.TextIfaction="new"Thensr=o.save'調(diào)用保存函數(shù)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‘在系統(tǒng)查找修改表單時按單據(jù)編碼來找sr=o.edit'調(diào)用修改函數(shù)PublicFunctionedit()AsString’修改函數(shù)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‘將刪除的單據(jù)編碼作為參數(shù)傳給刪除函數(shù)sr=o.del'調(diào)用刪除函數(shù)PublicFunctiondel()AsString'刪除函數(shù)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()'調(diào)用更新函數(shù)EndSubSubgxgrid()'更新數(shù)據(jù)庫和gridview中數(shù)據(jù)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‘查找函數(shù)strSQL="selectZDRfromBDwhereDJBM='"&dDJBM&"'"TryMycommon.SqlHelper.ExecuteNonQuery(Mycommon.clsConn.getstrConn,CommandType.Text,strSQL)Returncmd.ExecuteScalarCatchexAsExceptionReturn"-1"&ex.MessageEndTryEndFunction.對表單的狀態(tài)的控制核心代碼: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"日"