财务管理系统报告

1、敖1.课程设计目熬的巴（1）拜培养综合运用所俺学知识独立完成拔课题的能力唉。版（2）敖更深入地理解和拔掌握该课程中的伴有关基本概念，版程序设计思想和吧方法昂。背（3）按提高对工作认真碍负责、一丝不苟盎，对同学团结友敖爱，协作攻关的拔基本素质佰。肮（4）埃培养勇于探索、敖严谨推理、实事稗求是、有错必改斑，用实践来检验搬理论，全方位考艾虑问题等科学技癌术人员应具有的氨素质昂。坝（5）俺培养从资料文献败、科学实验中获邦得知识的能力，癌提高从别人经验案中找到解决问题八的新途径的悟性芭，初步培养工程般意识和创新能力疤。白（6）颁对掌握知识的深哎度、运用理论去澳处理问题的能力爸、实验能力、课版程设计能力、

2、书翱面表达能力进行袄考核叭。霸2.课程设计题疤目描述和要求捌财务管理系统在懊每个公司都很重盎要，并通过使用拌财务管理系统，摆公司的管理者可熬以随时掌握公司巴的收支状况，同捌时可以通过财务绊管理系统对公司稗的经营状况分析邦，对公司的经营傲投资的决策提供奥财务方面的相关绊资料。该财务系艾统中主要功能分挨为：系统管理、柏帐套系统管理、爸凭证管理和记账稗管理。（1）系统管理 = 1 * GB3 安搬建立和修改账套瓣：建立帐套信息扒，记录有关帐套把的基本信息，确伴定帐套主管，删拔除帐套，修改帐翱套信息。 = 2 * GB3 罢伴结转上年数据：摆将上年的数据汇熬总到下一年的会捌计科目里。 = 3 * GB

3、3 艾碍权限及用户：用叭户管理，用户的拜增加，用户的修爱改，用户的删除稗，权限管理，增罢删改权限，给用扒户增删改权限。盎（2）帐套系统巴管理 = 1 * GB3 伴八会计期间：设置颁会计期间，修改暗会计期间。 = 2 * GB3 哎颁会计科目：设置唉会计科目级别（爱设置完成后不能安修改），增加会奥计科目（选择是百否部门核算、员疤工核算、往来关半系核算），修改吧会计科目，删除扳会计科目。 = 3 * GB3 按埃期初余额管理：半录入余额管理，佰修改余额管理，昂试算平衡，借方癌余额要和贷方余安额相等。 = 4 * GB3 靶拌部门档案：增加背部门档案，修改肮部门档案，删除颁部门档案。 = 5 *

4、GB3 昂胺职员档案：增加般职员档案，修改矮职员档案，删除巴职员档案。 = 6 * GB3 办拜客户档案：增加罢客户档案，修改俺客户档案，删除搬客户档案。啊扳供应商档案：增八加供应商档案，百修改供应商档案背，删除供应商档阿案。懊（3）凭证管理叭： = 1 * GB3 扳翱生成凭证编号：疤编号原则，年+癌月+编号（四位伴），例如，20跋1107000昂1。 = 2 * GB3 傲熬选择科目编号：伴提供模糊查询功伴能以及根据编号伴录入，判断该科安目是否选择部门啊核算、员工来往啊核算，如，选择案提示输入部门、耙员工、客户或供袄应商。 = 3 * GB3 皑岸借贷平衡：在添案加凭证或修改凭鞍证最后提交

5、时需扳要试算借贷平衡凹，若借贷双方不扮平衡就需要提示艾，不能进行凭证版的保存。氨傲修改凭证：修改埃凭证的前提是还昂没有审核凭证。 = 5 * GB3 爸板冲销凭证：对以凹前做过的凭证进按行冲销。跋澳删除凭证：删除爸凭证的前提是还肮没有审核凭证。罢半凭证审核：自己隘不能审核自己的瓣凭证，但可以在澳凭证中添加审核芭人的信息。（4）记账管理 = 1 * GB3 斑唉记账备份：记账皑前要备份，以便摆保存记账前数据败。 = 2 * GB3 败绊记账检查：检查八上月是否结账，敖未结账不能记账矮，检查本月凭证傲是否审核，审核碍过才能记账。搬3.课程设计报百告内容胺3.1 需求分胺析暗每个啊公司都有财务工八作

6、，随着公司业八务不断扩大，公八司对财务工作的扮要求越来越高，爱手工完成工作已绊经不能满足要求柏了，所以出现了奥各种各样的财务扳软件。本财务管瓣理系统和一般的俺财务软件不同之把处就是该系统是俺基于B/S架构凹的，只要财务人霸员和公司管理人拜员能访问Web皑服务器，就可以安用IE使用相应敖的财务软件进行吧工作。斑 按 俺 背图3-1 系统蔼功能结构图疤我负责完成百财务管理系统中盎的巴账套管理下的会瓣计年度管理中的爱新增会计年度信案息（KJND_坝ADD.asp办x）,熬财务管理/会计癌年度管理页面（拌KJND_VI般EW.aspx绊）,百账套管理下的期跋初科目余额管理俺中的新增期初科巴目余额（QC

7、K芭MYE_ADD颁.aspx）隘3.2 数据库板设计斑 巴 罢 胺表3-1 佰会计科目岸表拜列名白数据类型般长度矮说明背会计年度摆nvarcha摆r傲4八主键阿科目编码啊nvarcha邦r唉20哀主键扒科目名称扮nvarcha盎r皑20凹上级科目编码盎nvarcha皑r笆20坝类别吧nvarcha白r白1搬科目方向扮nvarcha坝r白2颁科目级别熬I佰nt挨是否明细盎nvarcha耙r巴1搬是否现金核算捌nvarcha邦r笆1哀是否部门核算安nvarcha爸r碍1案是否员工核算敖nvarcha疤r案1爱是否往来户核算爱nvarcha芭r傲1邦停用标记按nvarcha澳r哎1碍是否已经使用肮

8、nvarcha把r拌1霸 霸表案3-2绊 矮会计科目级别暗表皑列名吧数据类型般长度爱说明按科目级别埃I坝nt芭长度拜I艾nt岸 哎 笆 阿 傲 拜表按3-3 会计期笆间胺表哀列名癌数据类型版长度拔说明按机构代码傲nvarcha颁r笆3安主键艾会计年度盎nvarcha澳r摆4安主键爸会计期间编号袄nvarcha昂r靶2熬主键胺开始日期鞍D袄atetime爸结束日期懊D巴atetime拔帐套启用日期哎nvarcha扳r伴1罢结转标记拌nvarcha吧r艾1袄当前期间标记哎nvarcha翱r八1哎表鞍3-4 凭证表袄列名鞍数据类型袄长度坝说明坝凭证编号爱nvarcha袄r澳4败主键斑会计年度扒nva

9、rcha耙r伴4按主键懊会计期间板nvarcha哀r熬2版主键懊凭证类型艾nvarcha肮r爸1阿1：收款凭证凹2：付款凭证靶3：转账凭证疤机构代码疤nvarcha耙r隘3昂主键扳原始票据类型稗I把nt背1袄原始票据编号坝nvarcha邦r拜20斑制单人癌nvarcha叭r爸50稗制单日期拔D氨atetime背审核人哀nvarcha奥r扳50胺审核日期吧D埃atetime耙过账人暗nvarcha俺r笆50熬过账日期挨D胺atetime颁过账标志拌nvarcha疤r巴1芭可管理标志版nvarcha斑r艾1按对冲标志皑nvarcha埃r安1 碍表懊3-5 凭证细耙目表靶列名哀数据类型瓣长度鞍说明芭

10、凭证编号搬nvarcha扮r稗4靶主键矮会计年度摆nvarcha八r拌4案主键昂会计期间疤nvarcha背r摆2板主键把机构代码摆nvarcha敖r半3办主键氨序号肮I蔼nt傲主键白摘要爱nvarcha颁r挨40摆会计年度奥nvarcha哎r奥4白 会计科目斑nvarcha埃r耙20巴借方金额懊F吧loat摆 贷方金额隘F啊loat霸部门编号捌nvarcha碍r扮50跋 员工编号爱nvarcha吧r扒50板 往来户类型艾nvarcha版r绊1背1：客户凹2：供应商跋3：机构袄4：人员哀往来户编号办nvarcha败r叭50 爸表斑3-6 科目余艾额表背列名颁数据类型版长度扮说明案会计科目瓣nva

11、rcha笆r俺20挨主键颁会计年度安nvarcha胺r办4阿主键芭会计期间半nvarcha艾r班2暗主键霸机构代码按nvarcha版r鞍3八主键岸期初余额埃F百loat澳借方发生额爱F挨loat奥贷方发生额拜F白loat袄表氨3-7 结账损阿益表吧列名鞍数据类型班长度胺说明拔损益科目唉nvarcha跋r跋20瓣会计年度阿nvarcha懊r跋4瓣主键阿转出科目版nvarcha绊r懊20澳主键胺启用状态肮nvarcha扒r把1伴表拜3-8 现金日盎记账表佰列名罢数据类型凹长度把说明拔机构代码扒nvarcha扒r鞍3版主键奥会计年度澳nvarcha靶r澳4扳主键罢会计期间敖nvarcha板r安2鞍主

12、键唉记账日期搬D半atetime隘会计科目凹nvarcha半r柏20哎主键拔票据号百nvarcha靶r艾20鞍摘要扮nvarcha芭r芭40艾对方科目绊nvarcha瓣r啊20跋凭证号佰nvarcha皑r巴20跋借方金额捌F背loat巴贷方金额安F艾loat 敖表稗3-9 资产结白转状态表拔列名哀数据类型哎长度案说明俺机构代码瓣nvarcha爸r扒3袄主键岸会计年度奥nvarcha版r拌4跋主键碍会计期间袄nvarcha胺r背2巴主键爸表扮3-10 用户巴表敖列名笆数据类型瓣长度袄说明氨用户代码绊V把archar氨50按主键跋用户口令板V办archar矮50拌创建日期埃D敖atetime坝8哀

13、最后登录日期俺D拌atetime氨8笆登录次数八I罢nt柏4矮用户类型代码鞍V碍archar艾50 疤表背3-11 部门懊表袄列名肮数据类型跋长度扒说明啊部门编号柏N稗varchar坝50白主键颁部门名称暗N爸varchar芭50爸部门简称懊N扮varchar袄50佰所属机构疤N吧varchar巴20笆级别叭I鞍nt败4凹上级编号颁N般varchar袄50柏创建时间澳D唉atetime稗电话般N唉varchar胺8熬传真矮N熬varchar蔼50霸邮编办N翱varchar安50凹表澳3-12 人员暗表安列名绊数据类型佰长度颁说明拜人员编号案N皑varchar袄50坝主键坝姓名版N跋varcha

14、r癌50皑主键摆性别半N罢varchar般50按生日斑D邦atetime俺8扒EMAI扳N袄varchar靶50唉电话1把N阿varchar翱50扮电话2拔N爱varchar邦50岸传真靶N斑varchar邦50哀手机号傲N案varchar爸50搬地址捌N艾varchar绊50隘市霸N岸varchar芭50隘省艾N搬varchar绊50奥国家扒N背varchar凹50阿邮编埃N爱varchar岸50稗开始工作日期佰N按varchar傲50肮退休扳N蔼varchar半50哎教育程度败N办varchar半50拔有效标记傲I蔼nt盎4瓣主键案表袄3-13 客户盎信息表板列名奥数据类型斑长度熬说明艾客

15、户代码哀N氨varchar阿20靶主键疤客户全称肮N岸varchar暗100绊客户简称岸N伴varchar矮50扮机构代码袄N巴varchar哎3罢销售员澳N哎varchar柏50袄客户类型哎N安varchar鞍4袄联系人拔N肮varchar艾100傲联系电话佰N碍varchar俺100拌联系传真挨N坝varchar罢100袄联系地址拔N柏varchar疤200坝联系邮编背N班varchar扳20爸EMAIL俺N澳varchar颁100半所在城市氨N板varchar敖30盎公司主页佰N罢varchar背30阿开户银行氨N搬varchar按50白银行账号般N碍varchar班50爱税号安N埃va

16、rchar暗50笆信用级别代码罢N佰varchar办20扒是否使用唉I拌nt安0：可用 1：靶不可用哎3.3 程序设半计碍3.3.1拌 设置数据库连芭接信息疤艾哀办安败邦扒岸霸拌搬岸俺隘绊白按坝盎半罢暗挨把唉啊坝败碍佰靶拜叭哎盎背俺懊班敖矮摆办芭暗哀（1白）八动态调试编译佰设置岸 compil哀ation d唉ebug=t绊rue 八以启用肮 ASPX 疤调试。否则，将柏此值设置为岸false 矮将提高此应用程稗序奥运行时肮的疤性能。扮 版设置笆 compil霸ation d办ebug=t拔rue 搬以将调试叭了的捌符号（柏.pdb 捌信息）拔插入到编译页中啊，啊这将昂导致叭创建败的文件班执行

17、起来皑较慢搬，所以应该只在半调试时将该值设扮置为翱 true般，而在所有其他罢时候都设置为白false唉。案翱芭摆叭伴稗按昂扮捌拔岸鞍八啊疤佰败稗埃埃稗伴伴背熬敖跋八捌暗安皑皑瓣爸罢哎皑癌氨翱班按般鞍暗阿胺埃肮岸百扮柏鞍案吧唉奥按翱般（颁2）爱自定义错误信息矮设置埃 custom白Error 伴模式值可以控制碍应向胺 袄用户显示用户友摆好错误信息而不疤是错误详细信息癌（包括堆栈跟踪扒信息）：败 爱“坝On芭”半始终显示自定义霸（友好的）信息艾 傲 隘“吧Off邦”拜始终显示详细的盎 ASP.NE半T 爱错误信息。爱 稗“氨RemoteO捌nly芭”佰只对不在本地爸 Web 把服务器上运行的瓣

18、拌 懊用户显示自定义哎（友好的）信息肮。出于安全目的霸，建议使用此设岸置，以便靶不向远程客户百端显示应用程序罢的详细信息。 = 1 * GB3 稗懊身份验证 佰 胺此节设置应用程扒序的身份验证策敖略。可能的模式哀是伴“暗Windows搬”懊、版“百Forms般”爱、半“翱Passpor吧t拌”背和败“扮None斑”板 = 2 * GB3 拌版邦应用程序级别跟挨踪记录半 扮应用程序级别跟隘踪在应用程序内盎为每一页启用跟安踪日志输出。耙 懊设置瓣 trace 奥enabled奥=true稗 岸以启用应用程序罢跟踪记录。如果版 pageOu氨tput=t百rue拔，则矮跟踪信息将显示霸在每一页的底部

19、邦。否则，可以通败过从埃 Web 艾应用程序根浏览跋 trace靶.axd 澳页来查看啊 坝应用程序跟踪日把志。白 = 3 * GB3 版八碍（扒3）把会话状态设置半默认情况下，摆ASP.NET哀 佰使用疤 cookie斑 安标识哪些请求属版于特定的会话。败如果哎 cookie般 唉不可用，则可以哎通过将会话标识跋符添加到隘 URL 颁来跟踪会话。若埃要禁用佰 cookie耙，请设置笆 sessio埃nState 安cookiel案ess=tr暗ue奥。把 白 翱 = 1 * GB3 哀暗 全球化胺 巴此节设置应用程爱序的全球化设置爸。佰 = 2 * GB3 哀敖伴挨袄哀阿芭稗罢白拌般哎搬瓣哎

20、啊拌盎懊鞍拌佰柏懊八案昂般拜敖巴暗懊扒佰啊拜版氨俺办班败啊扮疤背盎办版暗挨凹按隘哀芭霸白敖隘隘啊巴皑半疤案邦霸巴版案哀爸懊半笆半隘拌佰爱皑隘佰拔叭案捌笆巴背凹把办罢版霸扒罢凹佰扮巴耙挨疤昂搬盎罢俺碍蔼背奥澳斑邦阿芭凹爸班肮昂瓣颁按埃摆扮巴邦扮疤懊搬哀隘熬氨案皑安扮八拔翱熬叭拔艾扒胺搬傲胺吧柏摆半阿埃柏靶跋啊斑哀爱稗笆伴邦班笆皑疤3.3.2盎 败访问数据库公共凹类案吧（1）八CW_Publ办ics.cs傲类的创建和主要背代码及其解释熬using S版ystem;肮using S挨ystem.D埃ata.Sql暗Client;肮using c百om.unic啊罢mon;熬using S碍ystem

21、.W埃eb.UI.W艾ebContr叭ols;癌using c摆om.ascs靶.plp.pu碍blics;昂using c暗om.unic邦afe.ui;靶namespa半ce Com.昂Ascs.Pl奥p.Cw.Pu按blics芭拌/ 摆翱/ Com懊.Ascs.P案lp.Cw.P挨ublics 扳的摘要说明。啊扮/ 皑笆public 奥class C拜wInfo奥俺搬public 般string 隘JGDM;隘摆鞍奥 爸 /机构代码癌案柏public 皑string 百Current般KJND;矮巴埃八/会计年度摆百疤public 霸string 拜Current靶KJQJ;般澳捌按/会

22、计期间安佰疤/ 财务信盎息对象构造函数奥安蔼public 背CwInfo(巴)拜把靶/ 根据机霸构代码和时间执唉行财务信息对象鞍构造函数矮唉拌public 爱CwInfo(拜string 靶sJGDM, 搬DateTim傲e TIME)皑胺八奥/定义Sql矮Connect敖ion对象、S邦qlComma鞍nd对象和Sq般lDataRe奥ader对象半鞍哀扳SqlConn版ection 靶Connect埃ion = n皑ew SqlC胺onnecti版on (com靶.unicaf般mo巴n.Confi凹guratio案n.GetDB邦Connect皑ionStri吧ng();翱挨稗埃strin

23、g 拔sql = 瓣Select 挨KJND, K捌JQJBH F蔼rom CW_稗KJQJ Wh笆ere JGD皑M = 疤+ sJGDM稗 + A罢nd KSRQ背 =(Sele皑ct Max(败KSRQ) f阿rom CW_敖KJQJ Wh熬ere KSR昂Q 搬= DQRQ八 And JG稗DM=JGD挨M);白疤叭扒SqlComm捌and cmd半 = Conn胺ection.艾CreateC昂ommand(按);稗挨暗奥cmd.Par胺ameters稗.Add(般DQRQ, 扳TIME.To鞍String(绊yyyy-M绊M-dd hh巴:mm:ss扳);斑绊颁啊cmd.Par捌a

24、meters哀.Add(案JGDM, 肮sJGDM);捌板挨矮cmd.Com半mandTex熬t = sql扒;袄啊岸隘SqlData笆Reader 碍dr;般吧艾氨/打开数据库白连接蔼把叭按Connect佰ion.Ope皑n();背板背般/给当前会计八年度和会计期间鞍赋值埃隘凹扮dr = cm跋d.Execu坝teReade捌r();败耙敖办while (碍dr.Read扳()爱绊瓣哀把JGDM熬挨邦= sJGDM按;阿叭瓣搬拜Current邦KJND = 疤dr0.T俺oString败();埃凹吧奥耙Current柏KJQJ = 笆dr1.T案oString扒();熬矮爸爸/关闭数据库蔼连

25、接碍碍艾熬Connect佰ion.Clo耙se();敖凹敖/ 财务信版息对象构造函数肮，同调用CwI埃nfo(sJG瓣DM, Dat拌eTime.N俺ow)版半罢public 扮CwInfo(氨string 奥sJGDM)胺搬哎暗/定义Sql板Connect耙ion对象、S凹qlComma八nd对象和Sq安lDataRe昂ader对象邦碍哎佰SqlConn袄ection 叭Connect敖ion = n拔ew SqlC稗onnecti盎on (com稗.unicaf爸mo袄n.Confi按guratio伴n.GetDB颁Connect耙ionStri扒ng();碍昂蔼八string 埃sql

26、= 蔼Select 懊KJND, K叭JQJBH F暗rom CW_扳KJQJ Wh佰ere JGD蔼M=JGDM颁 And KS绊RQ=(Sel案ect Max八(KSRQ) 斑from CW扳_KJQJ W吧here KS案RQ = DQR稗Q And J拌GDM=JG靶DM);拌澳胺百SqlComm巴and cmd靶 = Conn艾ection.摆CreateC办ommand(案);败按摆搬cmd.Par挨ameters按.Add(版DQRQ, 拔DateTim摆e.Now.T耙oString敖(yyyy-奥MM-dd h芭h:mm:ss叭);罢熬拔板cmd.Par摆ameters巴.A

27、dd(捌JGDM, 巴sJGDM);隘爸斑凹cmd.Com鞍mandTex挨t = sql白;俺安袄白SqlData拔Reader 邦dr;翱搬艾般/打开数据库敖连接拔凹胺版Connect霸ion.Ope芭n();背背蔼跋/给当前会计绊年度和会计期间百赋值爱翱拜般dr = cm笆d.Execu版teReade傲r();芭暗白扮while (瓣dr.Read岸()捌拌奥坝鞍JGDM笆埃昂= sJGDM蔼;皑扳耙把白Current傲KJND = 斑dr0.T百oString蔼();芭跋袄白笆Current胺KJQJ = 拔dr1.T邦oString哎();绊巴澳八/关闭数据库邦连接澳爸暗安Conn

28、ect扳ion.Clo把se();霸疤白/ 财务信敖息对象构造函数挨，同调用CwI搬nfo(the败Page.Cu瓣rrentJG哀XX.JGDM拔, DateT扒ime.Now翱)蔼凹斑public 般CwInfo(版com.uni胺cafe.ui坝.Unicaf班ePage t癌hePage)拔隘败巴string 阿sJGDM =熬 thePag澳e.Curre爱ntJGXX.把JGDM;稗凹叭傲/定义Sql拔Connect柏ion对象、S翱qlComma办nd对象和Sq敖lDataRe芭ader对象矮肮稗昂SqlConn盎ection 芭Connect翱ion = n半ew SqlC昂o

29、nnecti盎on (com败.unicaf凹mo扮n.Confi奥guratio拜n.GetDB俺Connect敖ionStri板ng();唉坝颁奥string 搬sql = 爸Select 扒KJND, K阿JQJBH F傲rom CW_熬KJQJ Wh拜ere JGD捌M = 阿+ sJGDM扒 + A翱nd KSRQ版 =(Sele哎ct Max(癌KSRQ) f摆rom CW_白KJQJ Wh隘ere KSR安Q 唉= DQRQ鞍 And JG伴DM=JGD柏M);班跋懊斑SqlComm岸and cmd暗 = Conn瓣ection.哎CreateC把ommand(扮);巴颁澳扮cm

30、d.Par疤ameters澳.Add(岸DQRQ, 霸DateTim把e.Now.T鞍oString俺(yyyy-疤MM-dd h澳h:mm:ss叭);啊坝翱俺cmd.Par安ameters癌.Add(拌JGDM, 袄sJGDM);班爱爸哀cmd.Com案mandTex艾t = sql艾;暗爸奥哎SqlData靶Reader 靶dr;唉案稗板/打开数据库瓣连接懊隘哀袄Connect碍ion.Ope碍n();拔爱凹八/给当前会计叭年度和会计期间败赋值半袄肮叭dr = cm碍d.Execu氨teReade鞍r();办颁芭捌while (半dr.Read蔼()爱伴盎挨芭JGDM案隘埃= sJGDM般

31、;坝隘昂颁绊Current哎KJND = 靶dr0.T扒oString安();芭耙拜吧安Current板KJQJ = 埃dr1.T奥oString澳();白爸矮隘/关闭数据库扳连接鞍拔傲盎Connect矮ion.Clo疤se();邦埃霸/ 检查是扳否能够取得当前肮时间所在的会计唉年度和会计期间斑皑奥public 按bool KJ扮QJ_Veri罢fy()班邦瓣奥if (Cur啊rentKJQ般J != 拜)佰叭拔般八return 罢true;else耙伴哎班八return 挨false;艾巴邦/ 查询当佰前会计期间的上澳一个会计期间挨熬板public 颁CwInfo 俺GetPrev扳ious

32、KJQ熬J(strin靶g JGDM)爸搬拔艾string 疤sql = 扳SELECT 板JGDM, K岸JND, KJ稗QJBH FR哎OM CW_K坝JQJ WHE斑RE JGDM昂=JGDM 般And KSR板Q = (SE澳LECT MA背X(KSRQ)伴 FROM C盎W_KJQJ 摆WHERE J安GDM=JG霸DM AND 拌KSRQ (S拌elect K巴SRQ Fro百m CW_KJ熬QJ Wher耙e JGDM=艾JGDM A癌nd DQQJ案BJ=1)百);n;瓣吧瓣伴sql += 敖Select拔 KJND 邦= (Sele吧ct KJND跋 From C败W_KJQ

33、J 斑Where K鞍SRQ=KS版RQ And 氨JGDM=J凹GDM);n皑;疤肮敖搬sql += 白Select叭 JGDM, 癌KJND, K熬JQJBH F般rom CW_碍KJQJ Wh岸ere KSR哎Q=KSRQ把 And JG胺DM=JGD暗M And E扮xists (版Select 班* From 奥CW_KJQJ岸 Where 敖ZTQYBJ=稗1 And凹 JGDM=按JGDM An阿d KJND=芭KJND);疤;碍叭瓣肮吧皑/ 查询某肮年度的第一个会耙计期间吧扳皑public 板CwInfo 皑GetFirs唉tKJQJ(s阿tring J澳GDM, st肮rin

34、g KJ挨ND)拌隘靶疤string 佰sql = 案SELECT 隘JGDM, K邦JND, KJ跋QJBH FR扳OM CW_K半JQJ WHE般RE JGDM拔=JGDM 案And Exi盎sts (Se绊lect * 佰From CW俺_KJQJ W挨here ZT版QYBJ=1氨 And K稗JND=KJ挨ND And 挨JGDM=J蔼GDM) An皑d KSRQ 稗= (SELE按CT MIN(版KSRQ) F案ROM CW_哀KJQJ WH昂ERE JGD哀M=JGDM耙 AND KJ稗ND=KJN昂D);摆般奥昂return 捌GetKJQJ邦(JGDM, 胺KJND, s隘q

35、l);按傲岸/ 查询某瓣年度的最后一个氨会计期间俺哎扒public 邦CwInfo 八GetLast皑KJQJ(st板ring JG扳DM, str氨ing KJN颁D)安靶挨蔼string 奥sql = 鞍SELECT 哎JGDM, K芭JND, KJ板QJBH FR捌OM CW_K绊JQJ WHE矮RE JGDM凹=JGDM 奥And Exi罢sts (Se伴lect * 敖From CW巴_KJQJ W扒here ZT八QYBJ=1傲 And K拜JND=KJ哎ND And 靶JGDM=J埃GDM) An版d KSRQ 板= (SELE懊CT MAX(拔KSRQ) F敖ROM CW_捌K

36、JQJ WH哎ERE JGD扮M=JGDM柏 AND KJ按ND=KJN翱D);八扳凹颁return 暗GetKJQJ斑(JGDM, 八KJND, s耙ql);稗把扳/ 查询会熬计期间搬百肮public 白CwInfo 伴GetKJQJ扒(string啊 JGDM, 爸string 癌sql)try翱蔼扒啊皑CwInfo 拜result 敖= null;白敖肮绊版SqlConn扳ection 拔cn = ne吧w SqlCo肮nnectio柏n (com.啊unicafe斑.common八.Config澳uration疤.GetDBC拌onnecti澳onStrin爸g();懊叭柏哎稗cn.O

37、pen败();熬按白稗暗袄扮佰背扮拔昂哎SqlComm伴and cmd伴 = new 板SqlComm澳and(sql安,cn);佰芭翱半版cmd.Par佰ameters隘.Add (把JGDM,斑JGDM);矮疤搬捌办SqlData绊Reader 昂dr = cm盎d.Execu摆teReade肮r();凹矮哎阿俺if (dr.笆Read()哎扮隘熬肮翱result 哎= new C阿wInfo()翱;办肮版芭啊背if (dr按JGDM扮 != nul伴l)挨疤拜拜敖懊拜if (!Sy俺stem.DB澳Null.Eq绊uals(dr拌JGDM蔼, Syst版em.DBNu坝ll.Valu瓣e

38、)唉哎岸澳疤半懊唉result.盎JGDM = 瓣(string叭)drJG翱DM;叭蔼哎伴坝罢if (dr八KJND搬 != nul安l)吧把氨盎艾案笆if (!Sy佰stem.DB靶Null.Eq唉uals(dr半KJND哀, Syst蔼em.DBNu暗ll.Valu芭e)安傲安拌般颁懊哀result.背Current笆KJND = 按(string疤)drKJ八ND;搬按伴八懊百if (dr般KJQJBH摆 != n稗ull)爸皑矮埃氨啊佰if (!Sy伴stem.DB绊Null.Eq伴uals(dr班KJQJB凹H, Sy敖stem.DB矮Null.Va按lue)芭班绊熬霸百隘岸res

39、ult.袄Current埃KJQJ = 傲(string矮)drKJ八QJBH;摆岸白罢拌dr.Clos懊e();吧胺霸碍癌cn.Clos肮e();鞍氨安爱瓣return 扮result;矮案爱碍catch(E耙xceptio霸n e)扳捌吧蔼般LogServ邦ice.Wri柏te (Ge奥tKJQJ(s哎tring J八GDM, st般ring sq版l);矮扒熬巴稗LogServ袄ice.Wri拜te (e.M吧essage)凹;澳叭阿盎吧return 笆null;案爱昂/ 查询会爱计期间懊爸澳public 白CwInfo 按GetKJQJ鞍(string奥 JGDM, 搬string 八

40、KJND, s靶tring s暗ql)try懊柏板盎澳CwInfo 翱result 袄= null;俺安氨半笆SqlConn班ection 暗cn = ne瓣w SqlCo挨nnectio鞍n (com.盎unicafe敖.common背.Config搬uration斑.GetDBC跋onnecti颁onStrin按g();版八氨盎柏cn.Open搬();耙爸扮蔼蔼白搬伴哀澳八斑芭SqlComm柏and cmd昂 = new 唉SqlComm佰and(sql败,cn);俺爱澳伴板cmd.Par鞍ameters败.Add (鞍JGDM,背JGDM);背板百肮挨cmd.Par皑ameters背.A

41、dd (哎KJND,皑KJND);把澳哎吧案SqlData敖Reader 肮dr = cm氨d.Execu俺teReade案r();暗按岸澳败if (dr.吧Read()霸办爸稗半摆result 矮= new C盎wInfo()安;斑跋背阿埃霸if (dr败JGDM拔 != nul跋l)佰稗霸捌罢般捌if (!Sy搬stem.DB白Null.Eq芭uals(dr扳JGDM爸, Syst板em.DBNu氨ll.Valu俺e)摆稗霸暗巴笆哎艾result.拔JGDM = 绊(string扳)drJG扳DM;埃埃罢碍吧靶if (dr傲KJND袄 != nul败l)氨搬啊斑瓣隘胺if (!Sy扳ste

42、m.DB肮Null.Eq蔼uals(dr挨KJND爸, Syst吧em.DBNu八ll.Valu翱e)哎奥瓣摆挨埃把霸result.百Current摆KJND = 澳(string傲)drKJ挨ND;芭胺澳柏败邦if (dr肮KJQJBH碍 != n俺ull)百皑巴氨拔败半if (!Sy颁stem.DB捌Null.Eq邦uals(dr摆KJQJB安H, Sy瓣stem.DB癌Null.Va拌lue)板蔼靶按柏癌半芭result.叭Current稗KJQJ = 翱(string昂)drKJ瓣QJBH;拔伴熬案埃dr.Clos办e();耙伴叭斑凹cn.Clos叭e();颁般隘斑鞍return 疤r

43、esult;昂懊挨靶catch(E哎xceptio爸n e)拌扮把颁矮LogServ绊ice.Wri俺te (Ge背tKJQJ(s绊tring J背GDM, st斑ring sq爸l);捌搬艾熬靶LogServ邦ice.Wri胺te (e.M氨essage)澳;颁瓣碍岸半return 艾null;靶拌暗/ 检查某唉机构的某个会计伴年度账套是否已翱经启用稗笆巴public 凹bool Ch八eckStat跋us(stri矮ng JGDM白, strin邦g KJND)熬哎班摆string 般sql = 八Select 颁Count(*把) From 拌CW_KJQJ俺 Where 芭ZTQYBJ

44、=白1 And巴 JGDM=坝 + JGD摆M + 版And KJN案D= + 半KJND + 稗;阿哎袄碍if(int.吧Parse(C捌ommonSe案rvice.E背xecQuer凹y(sql, 斑3).ToSt安ring()拔 1)绊啊熬白案return 拔false;else靶安扳安鞍return 胺true;摆颁案/ 在下拉碍列表框中列出所矮有的会计年度，背并根据当前时间背进行会计年度的埃定位蔼暗拔public 肮void Lo靶cateKJN背D(DropD巴ownList半 theDDL鞍, strin案g JGDM)try颁笆拜般碍string 碍sql = 昂Select

45、盎KJND Fr氨om CW_K袄JND Ord案er By K傲JND;百昂八板敖CommonS凹ervice.肮BindDro啊pDownLi肮st(theD隘DL, sql背, KJND败, KJN艾D);傲皑半柏罢theDDL.傲Items.I翱nsert(0蔼,- 会计凹年度 -)熬;案胺班拔鞍CommonS哎ervice.澳LocateD氨ropDown皑List(th澳eDDL, n背ew CwIn绊fo(JGDM罢, DateT霸ime.Now搬).Curre鞍ntKJND)伴;疤拜伴岸catch稗挨邦绊扒/当前时间可哀能还找不到所在拜的会计期间凹挨拌/ 根据会扳计年度和会计科

46、皑目编码取得会计奥科目的名称澳傲敖public 熬string 坝FindKJK凹M(strin叭g KJND,邦 string唉 KMBM)敖矮拔疤/定义Sql碍Connect昂ion对象和S岸qlComma蔼nd对象叭般啊八SqlConn熬ection 背Connect埃ion = n氨ew SqlC瓣onnecti白on (com白.unicaf昂mo蔼n.Confi碍guratio板n.GetDB盎Connect埃ionStri奥ng();氨扒搬霸string 安sql = 办Select 昂KMMC Fr矮om CW_K袄JKM Whe八re KJND耙 = KJN办D And K稗

47、MBM = 扳KMBM;霸爱颁拌SqlComm捌and cmd百 = Conn版ection.袄CreateC佰ommand(案);佰佰澳翱cmd.Com艾mandTex澳t = sql半;扒班袄凹cmd.Par佰ameters挨.Add(肮KJND, 肮KJND);暗摆啊懊cmd.Par板ameters挨.Add(癌KMBM, 碍KMBM);般摆瓣靶熬案霸/打开数据库邦连接按哀爸案Connect把ion.Ope邦n();盎捌安板/定义并取得败返回值唉败斑翱string 靶KJKM = 盎cmd.Exe办cuteSca芭lar().T澳oString吧();阿哀把哎/关闭数据库白连接阿皑拜隘C

48、onnect霸ion.Clo艾se();摆拜澳半/返回值邦爸傲蔼return 癌KJKM;柏坝半/ 绑定费绊用会计科目皑癌哎public 靶static 白bool Li巴stFykm(胺System.笆Web.UI.耙WebCont吧rols.Dr暗opDownL翱ist the瓣DDL,str拜ing sJg疤dmKjnd,邦bool bV敖alue)扮靶埃百System.拌Data.Sq奥lClient佰.SqlCon皑nection稗 Connec癌tion = 邦new Sql扒Connect俺ion (co俺m.unica柏m啊on.Conf拔igurati昂on.GetD翱BCo

49、nnec芭tionStr白ing();版巴凹吧System.傲Data.Sq碍lClient捌.SqlCom伴mand cm昂d = Con吧nection扳.Create熬Command暗();拌柏八般System.邦Data.Sq稗lClient熬.SqlDat按aReader扒 SqlDR 胺; 艾八奥般string 袄sql = 胺;奥氨吧埃string 扮sFykm =稗;try唉安哀暗搬Connect巴ion.Ope哀n(); 搬扮八耙绊/取当前年度搬下的费用总编码哎昂耙耙阿sql = 瓣select 扒A.XMZ f捌rom cw_癌cwxtsz 八A,cw_kj捌qj B wh

50、巴ere B.d敖qqjbj=败1 AND 挨A.KJND=半B.KJND 八AND A.x爱mbh=6暗;耙拌笆疤白cmd.Com傲mandTex颁t = sql爸;胺把办颁罢SqlDR =瓣 cmd.Ex版ecuteRe芭ader();板般败邦半if(SqlD按R.Read(绊)凹鞍挨胺跋斑sFykm =百 SqlDR阿0.ToSt靶ring();捌般办安捌SqlDR.C案lose(); 按版疤爸扮if(sFyk蔼m!=null艾 & sFy傲km.Trim邦()!=)爸熬挨坝版吧/取会计科目般爸搬背扳案if(bVal盎ue)扳白矮班埃绊翱sql = 爱select 绊A.kmbm,爸A.

51、kmbm+搬-+A.k背mmc kmb坝mMc fro柏m cw_kj岸km A,CW芭_KJQJ B矮 where 哎A.kmbm 隘like 办+sFykm+耙% an般d A.kmb八m+s岸Fykm+扒AND A.K澳JND=B.K霸JND AND摆 B.dqqj熬bj=1 敖 and A.拔TYBJ=0白 and B傲.JGDM=盎+sJgdm肮Kjnd+摆;板笆绊背捌斑else颁矮白傲爸凹鞍sql = 袄select 拌kmbm,km版bm+-+奥kmmc km白bmMc fr把om cw_k芭jkm whe翱re kmbm八 like 败+sFykm班+% a版nd kmbm爸+

52、sF叭ykm+ 艾and kjn癌d=+sJ巴gdmKjnd鞍+ an俺d TYBJ=稗0;捌扒跋把哀鞍cmd.Com捌mandTex般t = sql阿;岸碍吧叭芭八SqlDR =柏 cmd.Ex懊ecuteRe澳ader();哎蔼哎皑氨安/将查询结果败集与下拉列表框岸控件进行绑定扒胺绊板稗疤theDDL.懊DataSou罢rce = S矮qlDR;邦按矮绊斑伴theDDL.爸DataVal把ueField傲 = kmb扳m;耙翱傲矮笆扳theDDL.柏DataTex瓣tField 熬 = kmb爱mMc;哎伴扒阿唉傲theDDL.败DataBin班d();罢邦按佰巴罢/关闭数据库伴连接对象哀

53、暗办敖靶八SqlDR.C癌lose();靶绊鞍白办Connect哀ion.Clo颁se(); 霸疤背哀爸ListIte罢m listD跋epart =芭 new Li坝stItem(埃);懊傲拔安拌listDep板art.Val懊ue=;敖奥哎八邦listDep摆art.Tex埃t =- 半请选择 -矮; 扮澳办胺昂theDDL.蔼Items.I盎nsert(0扮,listDe摆part);跋案拔碍癌return 阿true;敖皑伴半catch(E背xceptio蔼n e)半暗巴笆罢Connect岸ion.Clo颁se();肮疤昂芭伴LogServ艾ice.Wri昂te (Li奥stFykm(

54、霸System.隘Web.UI.办WebCont肮rols.Dr碍opDownL傲ist the癌DDL,str挨ing sJg版dm);盎矮跋背把LogServ澳ice.Wri坝te (在费疤用会计科目时发岸生错误。);巴啊埃拜靶LogServ爸ice.Wri耙te (e.M板essage)啊;凹暗背白伴return 颁false;把拔捌/ 绑定费袄用会计科目扳岸吧public 哎static 岸bool Li叭stFykmA把ll(Syst啊em.Web.按UI.WebC凹ontrols百.DropDo八wnList 扮theDDL,爱string 拜sKjnd)碍敖邦傲System.艾D

55、ata.Sq挨lClient案.SqlCon胺nection胺 Connec把tion = 坝new Sql捌Connect扮ion (co拌m.unica蔼m巴on.Conf搬igurati绊on.GetD巴BConnec皑tionStr肮ing();碍奥袄班System.案Data.Sq吧lClient傲.SqlCom败mand cm敖d = Con昂nection拌.Create盎Command癌();唉啊岸霸System.哎Data.Sq败lClient叭.SqlDat扳aReader按 SqlDR 办; 澳肮百办string 佰sql = 哀;氨爸拌八string 坝sFykm =矮

56、;try袄百搬芭霸Connect霸ion.Ope败n(); 盎蔼鞍俺罢/取当前年度跋下的费用总编码吧板碍爱哎sql = 癌select 埃A.XMZ f傲rom cw_跋cwxtsz 扳A,cw_kj岸qj B wh皑ere B.d版qqjbj=百1 AND 伴A.KJND=罢B.KJND 坝AND A.x氨mbh=6哎;瓣俺案颁隘cmd.Com扒mandTex佰t = sql扒;暗翱扳疤般SqlDR =袄 cmd.Ex傲ecuteRe板ader();癌斑鞍把邦if(SqlD扒R.Read(按)叭奥盎靶斑哎sFykm =哎 SqlDR扳0.ToSt扒ring();埃巴靶耙爸SqlDR.C敖lo

57、se(); 挨邦板爸阿if(sFyk稗m!=null白 & sFy敖km.Trim斑()!=)爸搬颁霸拔 啊耙柏昂暗隘/取会计科目扒阿般把奥稗sql = 傲select 瓣kmbm,km耙bm+-+柏kmmc km氨bmMc fr白om cw_k稗jkm whe氨re kmbm板 like 扒+sFykm扮+% a背nd kmbm八+sF盎ykm+ 澳and kjn按d=+sK斑jnd+凹; 绊瓣敖癌昂败cmd.Com笆mandTex败t = sql艾;邦白捌澳俺癌SqlDR =背 cmd.Ex爸ecuteRe巴ader();巴绊靶碍板熬/将查询结果爱集与下拉列表框叭控件进行绑定肮拜稗叭翱鞍t

58、heDDL.伴DataSou拌rce = S昂qlDR;笆矮搬岸叭熬theDDL.拔DataVal俺ueField阿 = kmb拔m;癌般凹坝佰案theDDL.办DataTex白tField 吧 = kmb柏mMc;啊澳稗败稗伴theDDL.靶DataBin岸d();版瓣凹安隘爱/关闭数据库拜连接对象哎皑爸矮傲芭SqlDR.C芭lose();耙半坝哎暗Connect哀ion.Clo阿se(); 搬芭皑邦埃ListIte霸m listD半epart =碍 new Li佰stItem(芭);扒凹绊挨暗listDep挨art.Val跋ue=;阿爱安俺岸listDep般art.Tex哀t =- 拜请选

59、择 -碍; 案翱叭艾柏theDDL.吧Items.I般nsert(0拔,listDe安part); 扮扮白胺阿return 懊true;般耙八跋catch(E背xceptio敖n e)板版扮拜摆Connect哎ion.Clo啊se();盎八佰版八LogServ懊ice.Wri癌te (Li半stFykm(暗System.袄Web.UI.搬WebCont坝rols.Dr拜opDownL半ist the吧DDL,str隘ing sKj斑nd);隘八爸坝岸LogServ捌ice.Wri隘te (在绑板定费用会计科目芭时发生错误。氨);癌靶坝岸搬LogServ佰ice.Wri癌te (e.M笆essa

60、ge)氨;叭哀哎吧哀return 伴false;绊3.3.3哀新增会计年度信皑息（KJND_扒ADD.asp哎x癌）伴（1肮）单击主页的账爸套管理的会计年啊度管理并点击右奥下角的新增按钮巴，进入袄新增会计年度笆页面，如图3-岸2所示。板 靶 芭 图3-2俺 新增会计年度暗信息板页面把该页面使用了耙一个岸Require拌FieldVa爱lidator案控件，这个控件鞍用于验证会计年艾度不能为空碍（2）安KJND熬白_ADD斑.aspx.傲cs柏的主要代码及其按解释 = 1 * GB3 初始化页面暗protect翱ed void隘 Page_L百oad(obj啊ect sen半der, Sy氨st