畢業(yè)設(shè)計(jì)（論文）中文題目：英文題目：學(xué)院：專業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)術(shù)學(xué)生姓名：學(xué)號(hào)：指導(dǎo)教師：年月日摘要在21世紀(jì)，隨著計(jì)算機(jī)科學(xué)的發(fā)展，數(shù)據(jù)庫(kù)技術(shù)在人們?nèi)粘９ぷ髦械膽?yīng)用越來(lái)越廣泛，為廣大用戶提供了更加周到和人性化的服務(wù)。數(shù)據(jù)庫(kù)技術(shù)已逐漸成為當(dāng)今計(jì)算機(jī)應(yīng)用的潮流。本文主要是通過(guò)制作一款數(shù)據(jù)庫(kù)軟件—即“合同管理系統(tǒng)”來(lái)介紹數(shù)據(jù)庫(kù)技術(shù)在人們?nèi)粘Ｉ詈凸ぷ髦械膽?yīng)用。本論文所做的主要工作如下：(1)介紹了Visualbasic6.0軟件開發(fā)工具和利用Delphi7.0和Ado技術(shù)操作數(shù)據(jù)庫(kù)的一般原理。(2)闡述整個(gè)“合同管理系統(tǒng)”的系統(tǒng)結(jié)構(gòu)及工作原理；分析了系統(tǒng)實(shí)現(xiàn)中的特殊性、難點(diǎn)。(3)設(shè)計(jì)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的操作功能、數(shù)據(jù)庫(kù)查詢功能、數(shù)據(jù)庫(kù)打印功能。(4)分析并解決實(shí)現(xiàn)中的若干技術(shù)問(wèn)題。(5)建立完整的“合同管理系統(tǒng)”，進(jìn)行測(cè)試并分析結(jié)果。關(guān)鍵字?jǐn)?shù)據(jù)庫(kù)技術(shù)Ado合同管理系統(tǒng)AbstractAtthe21thcentury,Withthedevelopmentofcomputerscience,Databasetechnologyiswidelyusedinthepeople’slifeandwork.Thismakesuserscanenjoymoreconvenientandindividualservices.Databasetechnologyisthetrendoftoday’scomputerapplications.Inthiswork,westudythetechniquetobuildasoftwarenamedContractStatSysteminordertointroducetheapplicationsofdatabasetechnologyinthepeople’slifeandwork.Themainworkofthispaperare:IntroducestheVisualBasic6.0softwaredevelopmenttoolandintroducesthemethodhowtousethesoftwareandAdotechnologytooperatethedatabase.InvestigatesthesystemstructureandworkingprincipleoftheContractStatSystem.Analysestheparticularityanddifficultyofthesystem.Analysesandresolvesthetechnicalproblemsinimplementation.Establishesatestsoftwareandanalysestheresultaftertestingonit.KeyWordsDatabasetechnologyAdoContractStatSystem目錄HYPERLINK_&App.Path&"\database.mdb;PersistSecurityInfo=False"'打開表WithADORecordset.CursorType=adOpenKeyset.LockType=adLockOptimistic.Open"login",mycon,,,adCmdTableEndWith'向用戶名中填加記錄IfNot(ADORecordset.BOF=TrueAndADORecordset.EOF=True)ThenDoUntilADORecordset.EOF=True'cobName.AddItemIIf(IsNull(ADORecordSet.Fields("Name").Value),_'"",ADORecordSet.Fields("Name").Value)cobName.AddItemIIf(IsNull(ADORecordset.Fields("DBName").Value),_"",ADORecordset.Fields("DBName").Value)ADORecordset.MoveNextLoopEndIfcobNName.TText==cobNName.LList(00)ADORRecorddset.CClosetxtNName.EEnableed=FFalseEndSub(2)用戶選擇用用戶名并輸入入密碼后，按按“確定”按鈕觸發(fā)的的事件代碼如如下：PrivateSubccmdOk__Clickk()DimADOmrrcAsADODBB.RecoordsettstrttxtSQLL="sselectt*frromlooginwwhereDBpassswordd='""&Trrim(txxtPasssword..Text))&"''andDBNamme='"&Triim(cobbName..Text))&"''"SetAADOmrcc=ExxecuteeSQL(sstrtxttSQL)IfAADOmrcc.EOF=TruueTheenMsgBoox"密碼錯(cuò)誤！",vbbExclaamatioon+vvbOKOnnly,""警告ttxtPassswordd.SetFFocustxtPaassworrd.SellStartt=0txtPaassworrd.SellLengtth=LLen(txxtPasssword..Text))ExitSubElsee用戶權(quán)限=IIIf(IsNNull(AADOmrcc.Fiellds("權(quán)限").Vaalue),,_""",ADOOmrc.FFieldss("權(quán)限").Vaalue)所屬部門=IIIf(IsNNull(AADOmrcc.Fiellds("DDBBrannch")..Valuee),""",ADOOmrc.FFieldss("DBBBranchh").Vaalue)EndIfSetAADOmrcc=NoothinggUnlooadMeeLoadd合同管理理系統(tǒng)合同管理系統(tǒng).SShowvvbModaalEndSub4.3.2合同基本信息錄入入模塊設(shè)計(jì)1.合同基本信信息錄入模塊塊的主要功能能是能夠?qū)虾贤幕拘判畔⑦M(jìn)入錄入入，包括合同同的編號(hào)、合合同的類別、合合同名稱、合合同部門、所所屬部門、合合同開始日期期、合同結(jié)束束日期、合同同額等。從嚴(yán)格意義上來(lái)說(shuō)說(shuō)本模塊是合合同統(tǒng)計(jì)模塊塊中的一個(gè)小小模塊，這實(shí)實(shí)現(xiàn)合同統(tǒng)計(jì)計(jì)模塊中的合合同信息錄入入的功能。2.窗體界面的設(shè)計(jì)::新建一個(gè)窗體，然然后在上面加加上各種必須須的控件，運(yùn)運(yùn)行圖如下所所示：3.核心代碼及解釋如如下：在輸入正確的合同同信息后，按按“確定”按鈕觸發(fā)的的事件代碼如如下所示：PPrivatteSubbcomOOK_Cliick()DimstrttxtSQLLAsSStringgIfttxtID..Text=""OrtxxtNamee.Textt="""ThennMsgBoox"合同編號(hào)不不能為空"txtIDD.SetFFocusExitSubEndIf'計(jì)算已已收款I(lǐng)fVVal(txxtPacttMoneyy.Textt)<VVal(txxtEndMMoney..Text))ThennMsgBoox"已收金額不不能大于合同同金額"txtEnndMoneey.SettFocussExitSubEndIftxtNNotMonney.Teext=Val(ttxtPacctMoneey.Texxt)-Val(ttxtEnddMoneyy.Textt)'計(jì)算未未付成本IfVVal(txxtCostt.Textt)<VVal(txxtEndCCost.TText)ThenMsgBoox"已付成本不不能小于成本本"txtEnndCostt.SetFFocusExitSubEndIftxtNNotCosst.Texxt=VVal(txxtCostt.Textt)-VVal(txxtEndCCost.TText)'計(jì)算未未付稅金IfVVal(txxtTax..Text))<Vaal(txttEndTaax.Texxt)ThhenMsgBoox"已付稅金不不能小于應(yīng)付付稅金"txtEnndTax..SetFoocusExitSubEndIftxtNNotTaxx.Textt=Vaal(txttTax.TText)-Vall(txtEEndTaxx.Textt)'計(jì)算項(xiàng)項(xiàng)目毛利IfVVal(txxtPacttMoneyy.Textt)<VVal(txxtCostt.Textt)+VVal(txxtTax..Text))ThennMsgBoox"成本+應(yīng)付稅金不不能大于合同同額"txtTaax.SettFocussExitSubEndIftxtGGrossPProfitt.Textt=Vaal(txttPactMMoney..Text))-Vaal(txttCost..Text))-Vaal(txttTax.TText)'計(jì)算可可分配毛利IfVVal(txxtPacttMoneyy.Textt)<VVal(txxtEndCCost.TText)+Vall(txtEEndTaxx.Textt)TheenMsgBoox"已付成本+已付稅不能能大于已收款款"txtEnndTax..SetFoocusExitSubEndIftxtAAssignnGrosssPproffit.Teext=Val(ttxtEnddMoneyy.Textt)-VVal(txxtEndCCost.TText)-Vall(txtEEndTaxx.Textt)mycoon.ConnnectiionStrring==ConnnStrinngmycoon.OpeenstrttxtSQLL="sselectt*frrom基本資料ordeerby合同編號(hào)"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'打開基本資資料表ADORRecorddset.AAddNewwADORRecorddset!合同編號(hào)=txxtID.TTextADORRecorddset!客戶名稱=txxtNamee.TexttADORRecorddset!合同類別=txxtSortt.TexttADORRecorddset!所屬部門=txxtBrannch.TeextADORRecorddset!合同開始日日期=DTTPickeer1'ttxtDatte.TexxtADORRecorddset!合同結(jié)束日日期=DTTPickeer2ADORRecorddset!合同額=txxtPacttMoneyy.TexttADORRecorddset!已收款=txxtEndMMoney..TextADORRecorddset!成本=txxtCostt.TexttADORRecorddset!已付成本=txxtEndCCost.TTextADORRecorddset!應(yīng)付稅金=txxtTax..TextADORRecorddset!已付稅金=txxtEndTTax.TeextADORRecorddset!未收余額=txxtNotMMoney..TextADORRecorddset!未付成本=txxtNotCCost.TTextADORRecorddset!未付稅金=txxtNotTTax.TeextADORRecorddset!項(xiàng)目毛利=txxtGrosssProffit.TeextADORRecorddset!可分配毛利=txxtAssiignGroossPprrofit..TextADORRecorddset!收款計(jì)劃=txxtProjject.TTextADORRecorddset.UUpdatee'Settmycoon=NNothinngSetADOReecordsset=Nothiingmycoon.ClooseSetmyconn=NoothinggUnlooadMeeCalll合同管理理系統(tǒng).Innitialliztioon(0)EndSub4.3.3用戶密碼修改模塊塊1.本模塊的主功功能是為了保保證軟件的安安全，用戶需需要定期修改改密碼。用戶戶在登錄后要要能對(duì)自己的的密碼進(jìn)行修修改。2.界面設(shè)計(jì)：新新建一個(gè)窗體體，然后在上上面加上各種種必須的控件件，運(yùn)行圖如如下所示：3.在輸入正確的新密密碼后按“確定”按鈕觸發(fā)的的事件代碼如如下：響應(yīng)窗體加載事件件，進(jìn)行數(shù)據(jù)據(jù)庫(kù)的連接。代代碼如下：PrivateSubccomOK__Clickk()DimstrSQQLAsStrinngDimADOCoommanddAsNNewADDODB.CCommanndDim權(quán)限AsSStringgSelecctCasseCommbo1.TTextCase"管理員"權(quán)限=0Case"修改"權(quán)限=1Case"瀏覽"權(quán)限=2EndSelecctIfTText1..Text=""ThenMsgBoox"新密碼不能能為空。"Text11.SetFFocusExitSubElseeIfTeext2.TText==""TThenMsgBoox"請(qǐng)輸入確認(rèn)認(rèn)新密碼。"Text22.SetFFocusExitSubEndIfIfTText1..Text<>Teext2.TTextTThenMsgBoox"兩次輸入的的新密碼不正正確，請(qǐng)重新新輸入。"ExitSubEndIfDimADOReecordssetAssNewADODBB.RecoordsettstrttxtSQLL="sselectt*frromLooginwwhereDBNamme=''"&ccobNamme.Texxt&""'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'IfNNot(AADOReccordseet.BOFF=TrrueAnndADOORecorrdset..EOF==Truee)TheenDoUnntilAADOReccordseet.EOFF=TrruesstrSQLL="uupdateelogiinsettDBNaame='"&cobNaame.Teext_&"'',DBPaassworrd=''"&TText1..Text_&"'',DBBrranch='"&cobbBrancch.Texxt_&"'',權(quán)限='""&權(quán)限&"''wherreDBNName=''"&ccobNamme.Texxt&""'"ADORRecorddset.MMoveNeextLoopElseesstrSQLL="IInserttintoologiin(DBBName,,DBPassswordd,DBBrranch,,權(quán)限)Vallues(''"&ccobNamme.Texxt&""','"&Texxt1.Teext&"','""&coobBrannch.Teext&"','""&權(quán)限&"'')"EndIfSetADOCoommandd.ActiiveConnnectiion=myconnADOCCommannd.CommmandTText==strSSQLADOCCommannd.ExeecuteSetADOCoommandd=NoothinggSetADOReecordsset=NothiingUnlooadMeeEndSub4.3.4合同統(tǒng)計(jì)模塊的設(shè)設(shè)計(jì)1.本模塊的主要功能能是首先是通通過(guò)本模塊可可以瀏覽到數(shù)數(shù)據(jù)庫(kù)內(nèi)所有有合同的具體體信息，還能能添加、刪除除、修改、保保存合同信息息。同時(shí)，作作為操作本軟軟件的主要平平臺(tái)，通過(guò)它它能夠訪問(wèn)其其它的模塊，如如用戶修改模模塊、收款模模塊等。2.窗體設(shè)計(jì)：新建一個(gè)窗體，然然后在上面加加上各種必須須的控件，運(yùn)運(yùn)行圖如下所所示：3.核心代碼及解釋如如下：(1)響應(yīng)“新增增基本資料”按鈕的單擊擊事件，觸發(fā)發(fā)的事件代碼碼如下：PrivateSubCComNeww_Clicck()fomBBasic..txtIDD.Textt="""fomBBasic..txtNaame.Teext=""fomBBasic..txtSoort.Teext=""fomBBasic..txtBrranch..Text=""fomBBasic..DTPiccker1=DattefomBBasic..txtPaactMonney.Teext="0"fomBBasic..txtEnndMoneey.Texxt=""0"fomBBasic..txtCoost.Teext="0"fomBBasic..txtEnndCostt.Textt="00"fomBBasic..txtTaax.Texxt=""0"fomBBasic..txtEnndTax..Text="0""fomBBasic..txtNootMoneey.Texxt=""0"fomBBasic..txtNootCostt.Textt="00"fomBBasic..txtGrrossPrrofit..Text="0""fomBBasic..txtAsssignGGrossPPprofiit.Texxt=""0"fomBBasic..txtPrrojectt.Textt="""WithhBasiicDataaType.strIID=""".strNName=="".strSSort=="".strBBranchh=""".dateeDTPiccker==Datee.dateeDTPiccker1=Datte.strPPactMooney=="".strEEndMonney="".strCCost=="".strEEndCosst=""".strTTax="".strEEndTaxx=""".strNNotMonney="".strNNotCosst=""".strGGrossPProfitt=""".strAAssignnGrosssPproffit="".strPProjecct="""EndWithfomBBasic..ShowvbModdalEndSub(2)響應(yīng)“修改改基本資料”按鈕的單擊擊事件，觸發(fā)發(fā)的事件代碼碼如下：PrivateSubccomEdiit_Cliick()'DimADOReecordssetAssNewADODBB.RecoordsettIfcctListt1.LisstCounnt=00ThennExittSubfomBBasic..txtIDD.Textt=cttList11.CelllText((ctLisst1.LiistInddex,22)BasiicDataaType..strIDD=cttList11.CelllText((ctLisst1.LiistInddex,22)'合同編號(hào)fomBBasic..txtNaame.Teext=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,3)BasiicDataaType..strNaame=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,3)'客戶名稱fomBBasic..txtSoort.Teext=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,4)BasiicDataaType..strSoort=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,4)'合同類別fomBBasic..txtBrranch..Text=ctLList1..CellTText(cctListt1.LisstIndeex,5))BasiicDataaType..strBrranch=ctLList1..CellTText(cctListt1.LisstIndeex,5))'所屬部門fomBBasic..DTPiccker1=ctLList1..CellTText(cctListt1.LisstIndeex,6))BasiicDataaType..dateDDTPickker=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,6)''合同期fomBBasic..DTPiccker2=ctLList1..CellTText(cctListt1.LisstIndeex,7))BasiicDataaType..dateDDTPickker1==ctLiist1.CCellTeext(cttList11.ListtIndexx,7)'合同期fomBBasic..txtPaactMonney.Teext=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,8)BasiicDataaType..strPaactMonney=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,8)'合同額fomBBasic..txtEnndMoneey.Texxt=cctListt1.CelllTextt(ctLiist1.LListInndex,9)BasiicDataaType..strEnndMoneey=cctListt1.CelllTextt(ctLiist1.LListInndex,9)'已收款fomBBasic..txtCoost.Teext=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,10)BasiicDataaType..strCoost=ctLisst1.CeellTexxt(ctLList1..ListIIndex,,10)'成本fomBBasic..txtEnndCostt.Textt=cttList11.CelllText((ctLisst1.LiistInddex,111)BasiicDataaType..strEnndCostt=cttList11.CelllText((ctLisst1.LiistInddex,111)'已付成本fomBBasic..txtTaax.Texxt=cctListt1.CelllTextt(ctLiist1.LListInndex,12)BasiicDataaType..strTaax=cctListt1.CelllTextt(ctLiist1.LListInndex,12)''應(yīng)付稅金fomBBasic..txtEnndTax..Text=ctLList1..CellTText(cctListt1.LisstIndeex,133)BasiicDataaType..strEnndTax=ctLList1..CellTText(cctListt1.LisstIndeex,133)'已付稅金fomBBasic..txtNootMoneey.Texxt=cctListt1.CelllTextt(ctLiist1.LListInndex,14)BasiicDataaType..strNootMoneey=cctListt1.CelllTextt(ctLiist1.LListInndex,14)''未收余額fomBBasic..txtNootCostt.Textt=cttList11.CelllText((ctLisst1.LiistInddex,115)BasiicDataaType..strNootCostt=cttList11.CelllText((ctLisst1.LiistInddex,115)'未付成本fomBBasic..txtNootTax=ctLList1..CellTText(cctListt1.LisstIndeex,166)BasiicDataaType..strNootTax=ctLList1..CellTText(cctListt1.LisstIndeex,166)'未付稅金fomBBasic..txtGrrossPrrofit..Text=ctLList1..CellTText(cctListt1.LisstIndeex,177)BasiicDataaType..strGrrossPrrofit=ctLList1..CellTText(cctListt1.LisstIndeex,177)'項(xiàng)目毛利fomBBasic..txtAsssignGGrossPPprofiit.Texxt=cctListt1.CelllTextt(ctLiist1.LListInndex,18)BasiicDataaType..strAsssignGGrossPPprofiit=cctListt1.CelllTextt(ctLiist1.LListInndex,18)''可分配毛利利fomBBasic..txtPrrojectt.Textt=cttList11.CelllText((ctLisst1.LiistInddex,119)BasiicDataaType..strPrrojectt=cttList11.CelllText((ctLisst1.LiistInddex,119)'收款計(jì)劃'myccon.Cllosemycoon.ConnnectiionStrring==ConnnStrinngmycoon.OpeenstrttxtSQLL="DDELETEE*frrom基本資料wherre合同編號(hào)='""&cttList11.CelllText((ctLisst1.LiistInddex,22)&""'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)mycoon.ClooseSetADOReecordsset=NothiingctLiist1.CClearLListfomBBasic..ShowvbModdalEndSub(3)響應(yīng)“刪刪除基本資料料”按鈕的單擊擊事件，觸發(fā)發(fā)的事件代碼碼如下：PrivateSubccomDell_Clicck()DimADOReecordssetAssNewADODBB.RecoordsettIfcctListt1.LisstIndeex<00ThennExittSubmycoon.ConnnectiionStrring==ConnnStrinngmycoon.OpeenstrttxtSQLL="DDELETEE*frrom基本資料wherre合同編號(hào)='""&cttList11.CelllText((ctLisst1.LiistInddex,22)&""'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)mycoon.ClooseSetADOReecordsset=NothiingctLiist1.CClearLListCalllInittializztion((0)EndSub4.3.5收款模塊的設(shè)計(jì)1.本模塊的主要功能能是對(duì)合同的的收款的情況況信息進(jìn)行管管理，包括對(duì)對(duì)收款信息的的錄入、刪除除、修改、保保存等。2.窗體設(shè)計(jì)：新建一個(gè)窗體，然然后在上面加加上各種必須須的控件，運(yùn)運(yùn)行圖如下所所示：3.本模塊的核心代碼碼解釋：在依次輸入各項(xiàng)收收款信息后，按“確定”按鈕觸發(fā)的事件代碼如下所示：PrivateSubccomOK__Clickk()DimADORRecorddsetAAsNewwADODDB.ReccordseetDimlogjjAsLLongmycoon.ConnnectiionStrring==ConnnStrinngmycoon.Opeen'DimmADORRecorddsetAAsNewwADODDB.ReccordseetstrttxtSQLL="sselectt*frrom收款表ordeerby收款I(lǐng)D,合同編號(hào)"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'ADORRecorddset.AAddNewwADORRecorddset!收款I(lǐng)D=txtEnndMoneeyID.TTextADORRecorddset!合同編號(hào)=txxtID.TTextADORRecorddset!客戶名稱=txxtNamee.TexttADORRecorddset!合同類別=txxtSortt.TexttADORRecorddset!所屬部門=txxtBrannch.TeextADORRecorddset!合同期=DTTPickeer1ADORRecorddset!收款時(shí)間=DTTPickeer2ADORRecorddset!下一期收款款時(shí)間=DTTPickeer3ADORRecorddset!合同額=txxtPacttMoneyy.TexttADORRecorddset!本期收款=txxtEndMMoney..TextADORRecorddset!成本=txxtCostt.TexttADORRecorddset!本期付成本=txxtEndCCost.TTextADORRecorddset!應(yīng)付稅金=txxtTax..TextADORRecorddset!本期付稅金=txxtEndTTax.TeextADORRecorddset!未收余額=txxtNotMMoney..TextADORRecorddset!未付成本=txxtNotCCost.TTextADORRecorddset!未付稅金=txxtNotTTax.TeextADORRecorddset!項(xiàng)目毛利=txxtGrosssProffit.TeextADORRecorddset!可分配毛利=txxtAssiignGroossPprrofit..TextADORRecorddset!收款計(jì)劃=txxtProjject.TTextADORRecorddset!收款人=txxtSKR..TextADORRecorddset.UUpdateeWithhctLiist1logj=.AdddItemm("").CelllText((logj,,2)==txtEEndMonneyID..Text.CelllText((logj,,3)==txtIID.Texxt.CelllText((logj,,4)==txtNName.TText.CelllText((logj,,5)==txtSSort.TText.CelllText((logj,,6)==txtBBranchh.Textt.CelllText((logj,,7)==DTPiicker11.CelllText((logj,,8)==DTPiicker22.CelllText((logj,,9)==DTPiicker33.CelllText((logj,,10)=txttPactMMoney..Text.CelllText((logj,,11)=txttEndMooney.TText.CelllText((logj,,12)=txttCost..Text.CelllText((logj,,13)=txttEndCoost.Teext.CelllText((logj,,14)=txttTax.TText.CelllText((logj,,15)=txttEndTaax.Texxt.CelllText((logj,,16)=txttNotMooney.TText.CelllText((logj,,17)=txttNotCoost.Teext.CelllText((logj,,18)=txttNotTaax.Texxt.CelllText((logj,,19)=txttGrosssProfiit.Texxt.CelllText((logj,,20)=txttAssiggnGrosssPproofit.TText.CelllText((logj,,21)=txttSKR.TText.CelllText((logj,,22)=txttSKR.TText.SorttListIf.LListCoount<<>0TThen..ListIIndex=0Else..ListIIndex=-1EndIIfEndWithSetADOReecordsset=NothiingstrTTextSQQL=""UPDATTE基本資料set已收款＝"&Val(ttxtEnddMoneyy.Textt)+VVal(BaasicDaataTyppe.strrEndMooney)_&&",已付成本="&Vall(txtEEndCosst.Texxt)+Val(BBasicDDataTyype.sttrEndCCost)_&&",應(yīng)付稅金="&Vall(txtTTax.Teext)__&&",已付稅金="&Vall(txtEEndTaxx.Textt)+VVal(BaasicDaataTyppe.strrEndTaax)_&&",未收余額="&txttNotMooney.TText__&&",未付成本="&txttNotCoost.Teext_&&",未付稅金="&txttNotTaax.Texxt_&&",項(xiàng)目毛利="&txttAssiggnGrosssPproofit.TText__&&",可分配毛利="&txttAssiggnGrosssPproofit.TText__&&",收款計(jì)劃='"&ttxtProoject..Text_&&"'WWHERE合同編號(hào)='""&txxtID.TText&&"'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'SetADOReecordsset=Nothiingmycoon.ClooseSetmyconn=NoothinggSSTaab1.Taab=11EndSub4.3.6合同信息查找模塊塊的設(shè)計(jì)1.本模塊的主要要功能就是對(duì)對(duì)合同的具體體信息進(jìn)行查查找。可以提提供按時(shí)間范范圍查找、按按所屬部門查查找、按合同同編號(hào)查找、按按客戶名稱查查找、按合同同類別查找、按按模糊條件查查找。2.2.窗體設(shè)計(jì)：：新建一個(gè)窗體，然然后在上面加加上各種必須須的控件，運(yùn)運(yùn)行圖如下所所示：3.核心代碼及解釋如如下：在選擇查詢方式，并并輸入所要查查詢的內(nèi)容后后，按“確定”觸發(fā)的事件件代碼如下：：PrivateSubccomOK__Clickk()IfcchkTimme.Vallue<>>1AnndchkkBrancch.Vallue<>>1AnndchkkID.Vaalue<<>1AAndchhkNamee.Valuue<>1AnddchkSSort.VValue<>1AndcchkMHTTJ.Vallue<>>1ThhenUnloaadMeCall合同管理系系統(tǒng).Iniitialiiztionn(0)ExitSubEndIfstrFFind=="sellect**fromm基本資料wherre"IfcchkTimme.Vallue=1TheenstrFiind=strFiind&"合同開始日日期betwween##"&FFormatt(DTPiicker11.Valuue,"yyyyy-mmm-dd"")&""#andd#"&&Formmat(DTTPickeer2.Vaalue,"yyyyy-mm-ddd")&&"#"EndIfIfcchkBraanch.VValue=1AAndcoobBrannch.Teext<>>""TThenIfchhkTimee.Valuue=11ThennsstrFinnd=sstrFinnd&""and""EndIIfstrFiind=strFiind&"所屬部門='""&coobBrannch.Teext&"'"EndIfIfcchkID..Valuee=1AndccobID..Text<>"""Then