毕业论文合同管理系统的设计与实现

毕业设计（论文）中文题目：英文题目：学院：专业：计算机科学与技术术学生姓名：学号：指导教师：年月日摘要在21世纪，随着计算机科学的发展，数据库技术在人们日常工作中的应用越来越广泛，为广大用户提供了更加周到和人性化的服务。数据库技术已逐渐成为当今计算机应用的潮流。本文主要是通过制作一款数据库软件—即“合同管理系统”来介绍数据库技术在人们日常生活和工作中的应用。本论文所做的主要工作如下：(1)介绍了Visualbasic6.0软件开发工具和利用Delphi7.0和Ado技术操作数据库的一般原理。(2)阐述整个“合同管理系统”的系统结构及工作原理；分析了系统实现中的特殊性、难点。(3)设计实现对数据库的操作功能、数据库查询功能、数据库打印功能。(4)分析并解决实现中的若干技术问题。(5)建立完整的“合同管理系统”，进行测试并分析结果。关键字数据库技术Ado合同管理系统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)用户选择用用户名并输入入密码后，按按“确定”按钮触发的的事件代码如如下：PrivateSubccmdOk__Clickk()DimADOmrrcAsADODBB.RecoordsettstrttxtSQLL="sselectt*frromlooginwwhereDBpassswordd='""&Trrim(txxtPasssword..Text))&"''andDBNamme='"&Triim(cobbName..Text))&"''"SetAADOmrcc=ExxecuteeSQL(sstrtxttSQL)IfAADOmrcc.EOF=TruueTheenMsgBoox"密码错误！",vbbExclaamatioon+vvbOKOnnly,""警告ttxtPassswordd.SetFFocustxtPaassworrd.SellStartt=0txtPaassworrd.SellLengtth=LLen(txxtPasssword..Text))ExitSubElsee用户权限=IIIf(IsNNull(AADOmrcc.Fiellds("权限").Vaalue),,_""",ADOOmrc.FFieldss("权限").Vaalue)所属部门=IIIf(IsNNull(AADOmrcc.Fiellds("DDBBrannch")..Valuee),""",ADOOmrc.FFieldss("DBBBranchh").Vaalue)EndIfSetAADOmrcc=NoothinggUnlooadMeeLoadd合同管理理系统合同管理系统.SShowvvbModaalEndSub4.3.2合同基本信息录入入模块设计1.合同基本信信息录入模块块的主要功能能是能够对合合同的基本信信息进入录入入，包括合同同的编号、合合同的类别、合合同名称、合合同部门、所所属部门、合合同开始日期期、合同结束束日期、合同同额等。从严格意义上来说说本模块是合合同统计模块块中的一个小小模块，这实实现合同统计计模块中的合合同信息录入入的功能。2.窗体界面的设计::新建一个窗体，然然后在上面加加上各种必须须的控件，运运行图如下所所示：3.核心代码及解释如如下：在输入正确的合同同信息后，按按“确定”按钮触发的的事件代码如如下所示：PPrivatteSubbcomOOK_Cliick()DimstrttxtSQLLAsSStringgIfttxtID..Text=""OrtxxtNamee.Textt="""ThennMsgBoox"合同编号不不能为空"txtIDD.SetFFocusExitSubEndIf'计算已已收款IfVVal(txxtPacttMoneyy.Textt)<VVal(txxtEndMMoney..Text))ThennMsgBoox"已收金额不不能大于合同同金额"txtEnndMoneey.SettFocussExitSubEndIftxtNNotMonney.Teext=Val(ttxtPacctMoneey.Texxt)-Val(ttxtEnddMoneyy.Textt)'计算未未付成本IfVVal(txxtCostt.Textt)<VVal(txxtEndCCost.TText)ThenMsgBoox"已付成本不不能小于成本本"txtEnndCostt.SetFFocusExitSubEndIftxtNNotCosst.Texxt=VVal(txxtCostt.Textt)-VVal(txxtEndCCost.TText)'计算未未付税金IfVVal(txxtTax..Text))<Vaal(txttEndTaax.Texxt)ThhenMsgBoox"已付税金不不能小于应付付税金"txtEnndTax..SetFoocusExitSubEndIftxtNNotTaxx.Textt=Vaal(txttTax.TText)-Vall(txtEEndTaxx.Textt)'计算项项目毛利IfVVal(txxtPacttMoneyy.Textt)<VVal(txxtCostt.Textt)+VVal(txxtTax..Text))ThennMsgBoox"成本+应付税金不不能大于合同同额"txtTaax.SettFocussExitSubEndIftxtGGrossPProfitt.Textt=Vaal(txttPactMMoney..Text))-Vaal(txttCost..Text))-Vaal(txttTax.TText)'计算可可分配毛利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合同编号"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'打开基本资资料表ADORRecorddset.AAddNewwADORRecorddset!合同编号=txxtID.TTextADORRecorddset!客户名称=txxtNamee.TexttADORRecorddset!合同类别=txxtSortt.TexttADORRecorddset!所属部门=txxtBrannch.TeextADORRecorddset!合同开始日日期=DTTPickeer1'ttxtDatte.TexxtADORRecorddset!合同结束日日期=DTTPickeer2ADORRecorddset!合同额=txxtPacttMoneyy.TexttADORRecorddset!已收款=txxtEndMMoney..TextADORRecorddset!成本=txxtCostt.TexttADORRecorddset!已付成本=txxtEndCCost.TTextADORRecorddset!应付税金=txxtTax..TextADORRecorddset!已付税金=txxtEndTTax.TeextADORRecorddset!未收余额=txxtNotMMoney..TextADORRecorddset!未付成本=txxtNotCCost.TTextADORRecorddset!未付税金=txxtNotTTax.TeextADORRecorddset!项目毛利=txxtGrosssProffit.TeextADORRecorddset!可分配毛利=txxtAssiignGroossPprrofit..TextADORRecorddset!收款计划=txxtProjject.TTextADORRecorddset.UUpdatee'Settmycoon=NNothinngSetADOReecordsset=Nothiingmycoon.ClooseSetmyconn=NoothinggUnlooadMeeCalll合同管理理系统.Innitialliztioon(0)EndSub4.3.3用户密码修改模块块1.本模块的主功功能是为了保保证软件的安安全，用户需需要定期修改改密码。用户户在登录后要要能对自己的的密码进行修修改。2.界面设计：新新建一个窗体体，然后在上上面加上各种种必须的控件件，运行图如如下所示：3.在输入正确的新密密码后按“确定”按钮触发的的事件代码如如下：响应窗体加载事件件，进行数据据库的连接。代代码如下：PrivateSubccomOK__Clickk()DimstrSQQLAsStrinngDimADOCoommanddAsNNewADDODB.CCommanndDim权限AsSStringgSelecctCasseCommbo1.TTextCase"管理员"权限=0Case"修改"权限=1Case"浏览"权限=2EndSelecctIfTText1..Text=""ThenMsgBoox"新密码不能能为空。"Text11.SetFFocusExitSubElseeIfTeext2.TText==""TThenMsgBoox"请输入确认认新密码。"Text22.SetFFocusExitSubEndIfIfTText1..Text<>Teext2.TTextTThenMsgBoox"两次输入的的新密码不正正确，请重新新输入。"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_&"'',权限='""&权限&"''wherreDBNName=''"&ccobNamme.Texxt&""'"ADORRecorddset.MMoveNeextLoopElseesstrSQLL="IInserttintoologiin(DBBName,,DBPassswordd,DBBrranch,,权限)Vallues(''"&ccobNamme.Texxt&""','"&Texxt1.Teext&"','""&coobBrannch.Teext&"','""&权限&"'')"EndIfSetADOCoommandd.ActiiveConnnectiion=myconnADOCCommannd.CommmandTText==strSSQLADOCCommannd.ExeecuteSetADOCoommandd=NoothinggSetADOReecordsset=NothiingUnlooadMeeEndSub4.3.4合同统计模块的设设计1.本模块的主要功能能是首先是通通过本模块可可以浏览到数数据库内所有有合同的具体体信息，还能能添加、删除除、修改、保保存合同信息息。同时，作作为操作本软软件的主要平平台，通过它它能够访问其其它的模块，如如用户修改模模块、收款模模块等。2.窗体设计：新建一个窗体，然然后在上面加加上各种必须须的控件，运运行图如下所所示：3.核心代码及解释如如下：(1)响应“新增增基本资料”按钮的单击击事件，触发发的事件代码码如下：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)响应“修改改基本资料”按钮的单击击事件，触发发的事件代码码如下：PrivateSubccomEdiit_Cliick()'DimADOReecordssetAssNewADODBB.RecoordsettIfcctListt1.LisstCounnt=00ThennExittSubfomBBasic..txtIDD.Textt=cttList11.CelllText((ctLisst1.LiistInddex,22)BasiicDataaType..strIDD=cttList11.CelllText((ctLisst1.LiistInddex,22)'合同编号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)''应付税金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)'项目毛利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)'收款计划'myccon.Cllosemycoon.ConnnectiionStrring==ConnnStrinngmycoon.OpeenstrttxtSQLL="DDELETEE*frrom基本资料wherre合同编号='""&cttList11.CelllText((ctLisst1.LiistInddex,22)&""'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)mycoon.ClooseSetADOReecordsset=NothiingctLiist1.CClearLListfomBBasic..ShowvbModdalEndSub(3)响应“删删除基本资料料”按钮的单击击事件，触发发的事件代码码如下：PrivateSubccomDell_Clicck()DimADOReecordssetAssNewADODBB.RecoordsettIfcctListt1.LisstIndeex<00ThennExittSubmycoon.ConnnectiionStrring==ConnnStrinngmycoon.OpeenstrttxtSQLL="DDELETEE*frrom基本资料wherre合同编号='""&cttList11.CelllText((ctLisst1.LiistInddex,22)&""'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)mycoon.ClooseSetADOReecordsset=NothiingctLiist1.CClearLListCalllInittializztion((0)EndSub4.3.5收款模块的设计1.本模块的主要功能能是对合同的的收款的情况况信息进行管管理，包括对对收款信息的的录入、删除除、修改、保保存等。2.窗体设计：新建一个窗体，然然后在上面加加上各种必须须的控件，运运行图如下所所示：3.本模块的核心代码码解释：在依次输入各项收收款信息后，按“确定”按钮触发的事件代码如下所示：PrivateSubccomOK__Clickk()DimADORRecorddsetAAsNewwADODDB.ReccordseetDimlogjjAsLLongmycoon.ConnnectiionStrring==ConnnStrinngmycoon.Opeen'DimmADORRecorddsetAAsNewwADODDB.ReccordseetstrttxtSQLL="sselectt*frrom收款表ordeerby收款ID,合同编号"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'ADORRecorddset.AAddNewwADORRecorddset!收款ID=txtEnndMoneeyID.TTextADORRecorddset!合同编号=txxtID.TTextADORRecorddset!客户名称=txxtNamee.TexttADORRecorddset!合同类别=txxtSortt.TexttADORRecorddset!所属部门=txxtBrannch.TeextADORRecorddset!合同期=DTTPickeer1ADORRecorddset!收款时间=DTTPickeer2ADORRecorddset!下一期收款款时间=DTTPickeer3ADORRecorddset!合同额=txxtPacttMoneyy.TexttADORRecorddset!本期收款=txxtEndMMoney..TextADORRecorddset!成本=txxtCostt.TexttADORRecorddset!本期付成本=txxtEndCCost.TTextADORRecorddset!应付税金=txxtTax..TextADORRecorddset!本期付税金=txxtEndTTax.TeextADORRecorddset!未收余额=txxtNotMMoney..TextADORRecorddset!未付成本=txxtNotCCost.TTextADORRecorddset!未付税金=txxtNotTTax.TeextADORRecorddset!项目毛利=txxtGrosssProffit.TeextADORRecorddset!可分配毛利=txxtAssiignGroossPprrofit..TextADORRecorddset!收款计划=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)_&&",应付税金="&Vall(txtTTax.Teext)__&&",已付税金="&Vall(txtEEndTaxx.Textt)+VVal(BaasicDaataTyppe.strrEndTaax)_&&",未收余额="&txttNotMooney.TText__&&",未付成本="&txttNotCoost.Teext_&&",未付税金="&txttNotTaax.Texxt_&&",项目毛利="&txttAssiggnGrosssPproofit.TText__&&",可分配毛利="&txttAssiggnGrosssPproofit.TText__&&",收款计划='"&ttxtProoject..Text_&&"'WWHERE合同编号='""&txxtID.TText&&"'"SetADOReecordsset=ExecuuteSQLL(strttxtSQLL)'SetADOReecordsset=Nothiingmycoon.ClooseSetmyconn=NoothinggSSTaab1.Taab=11EndSub4.3.6合同信息查找模块块的设计1.本模块的主要要功能就是对对合同的具体体信息进行查查找。可以提提供按时间范范围查找、按按所属部门查查找、按合同同编号查找、按按客户名称查查找、按合同同类别查找、按按模糊条件查查找。2.2.窗体设计：：新建一个窗体，然然后在上面加加上各种必须须的控件，运运行图如下所所示：3.核心代码及解释如如下：在选择查询方式，并并输入所要查查询的内容后后，按“确定”触发的事件件代码如下：：PrivateSubccomOK__Clickk()IfcchkTimme.Vallue<>>1AnndchkkBrancch.Vallue<>>1AnndchkkID.Vaalue<<>1AAndchhkNamee.Valuue<>1AnddchkSSort.VValue<>1AndcchkMHTTJ.Vallue<>>1ThhenUnloaadMeCall合同管理系系统.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