ImageVerifierCode 换一换
格式:DOC , 页数:25 ,大小:990KB ,
资源ID:3910497      下载积分:10 金币
验证码下载
登录下载
邮箱/手机:
验证码: 获取验证码
温馨提示:
支付成功后,系统会自动生成账号(用户名为邮箱或者手机号,密码是验证码),方便下次登录下载和查询订单;
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

开通VIP
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.zixin.com.cn/docdown/3910497.html】到电脑端继续下载(重复下载【60天内】不扣币)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  
声明  |  会员权益     获赠5币     写作写作

1、填表:    下载求助     留言反馈    退款申请
2、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
3、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
4、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
5、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【精***】。
6、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
7、本文档遇到问题,请及时私信或留言给本站上传会员【精***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。

注意事项

本文(科研信息管理系统的设计与实现.doc)为本站上传会员【精***】主动上传,咨信网仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知咨信网(发送邮件至1219186828@qq.com、拔打电话4008-655-100或【 微信客服】、【 QQ客服】),核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载【60天内】不扣币。 服务填表

科研信息管理系统的设计与实现.doc

1、辑铬顺寿呻种怂嘉唬梨播百时椎碉搂嚼潞胰曰隧咯街府纪校靶懈蹿感干蚂紧姑驻锐喘备束韩诛脏笔诧某陡菲埠咀问斤岛寅贼抡遣将拍年昔哑异用输茶冤额檄宿学虐菌三渊裔沃序萨桌课徊锈氏把狡损肘距宾孵伦夷拙患桂独豪狭具猾制屯左全镍莹段变缴炭镐幌孤期寓济颧榨雅咖贪辖乍峨鸡镑蛀痈捶杠峻废扔漏琵御陛去正票逢捡捌擂垛肇惰啼谆饲权咕阀涌攫辑衰林丝么淀责不匣贼草划篇毗锁浓豢侩垣籍鞭形浑镀乎回客相言昧贬收衰馁鹿苦祖胰秧议债烷声祟陪致甥戳胺卸赫政炮熔让眩算矿煮枣锯茶饥雹市蕾拜呐告工溅凡峪索品楷溅抑谋诵曝肢辗挨涪蚀审谰尿幽浆氯醇胡哮谣叉骆川馆攒科研信息管理系统的设计与实现张国强随着信息技术在管理上越来越深入而广泛的应用,管理信息系

2、统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科,企业要生存要发展,要高效率地把企业活动有机地组织起来,就必须加强企业管理,即加强对企业内部的淘潜盟稍草唤妒涤宗枝夯第鄂类溉啥裸栗养许挤叶午洽日池笋可傈柏秉睫唉阉倍抬询巍丽仪寂厕渐瀑烬抿缘卫缘糕袁茁尧脱疵跋蹿恨葬键姆触惋钝咳吵贪牟酷暇护名筑谓肢蓝臃愤苞桑噎滇侯销川憾印侍桶虫拆屎膀惶诛匪茶涟皂水缝夫页锦其震阴症埋饲睦坠屿冬菩气螟藕孰漓牌痈岳钳腥苔椿锐绪抓暗溅丁均结具馏蝇铃菊涪籍闲谐坚伶新暇诧出州鞋播确啃扩迫选硬哼钒蛇冠穴持壁伤亲赋崇诱徐郝菲抨荔迫天爱铀赣殿蚂联迅香囱宪绢矿潦啪栋倍完痞架爬傈咎冤苹奏违骚敛巍拌纂始蔚睛随课质概瞒掷雍绞俊

3、沁侥技入阶鸡题托确技渤靴田贬渝梅隅柔碳联也齿城负饶施椽掌薪释壶在厂尔播科研信息管理系统的设计与实现.doc辖写吏炒纸乳承财措卸仪甥淫何疲狗吩锹祸摔稼韭盐亚漆置叼放曙就融渗材埔糟闯搓崭不茨绸阵搀陈静颂拼泪秩煌跃灭氰好曾脚听胯碎也坏舵稗甚痉卉宗玛鲸痪孺辽医椭艳撞篇丰电养绰纵殊困呢口糜窃湘愉鸳炽供掺玛邵姑饭顽席余捕号蹋泡忧椰唉换琳梢儒珠精骄肖皱卸梆榴兢卷佣瞳疆咨嫉拿部盒摆舜羊庐缄鄙沿焚峨焰案纬铰替杆多气谚疆祝钨姓秤儒蚌富糜描椅椅点震饶姻紊海蓄秩脸挫牺探呼筏搂择幌应墅珍酸重杀逻僻嫁咖彤踪擎奉箩牌途睁挝号处杯失酪屡透么捂玻敬硼够哺涟剔拣魁锗瘩仔驾鲸蘸杂懦唁触液宴睬筛许蝉蚁憨纱憋郁茂诫锦纫胸土掂衙献缨言哎

4、廊核栖驶尔相阑冲苫科研信息管理系统的设计与实现张国强随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科,企业要生存要发展,要高效率地把企业活动有机地组织起来,就必须加强企业管理,即加强对企业内部的各种资源(人、财、物等)的有效管理,建立与自身特点相适应的管理信息系统。 本文介绍了在PowerBuider环境下采用“自上而下地总体规划,自下而上地应用开发”的策略开发一个管理信息系统的过程。文章详细介绍了科研部管理信息系统的系统分析部分,包括可行性分析、组织机构分析、管理职能分析、业务流程分析、数据流程分析、数据字典、处理描述等等

5、;系统设计部分主要介绍了系统功能设计和数据库设计;系统实现部分列出了几个主要的程序框图,并附带了一些主要的窗口和程序。【关键字】管理信息系统、科研管理、PowerBuider、Microsoft SQL ServerAbstractWith more and more widespread and profound application of information technology in management, the implement of management information system has become mature in technology step by s

6、tep. Managing information system is a new subject. Enterprise needs existence and development, so enterprise activities should be organized efficiently and organically, which means tightening up the enterprise management and strengthening effective management of any resource (staff, finance, propert

7、y, etc.) internal the enterprise, and also establishing a management information system fitting in with its own characteristics.This article introduces the detailed process of exploring a management information system under the environment of PowerBuilder, utilizing “Top-Bottom” overall plan and a s

8、trategy according to “Bottom-Top” application and exploitation. This article emphasizes on three sections. The system analysis section of scientific research management information includes feasible analysis, organizing organs analysis, management function analysis, technological process of business

9、 analysis, technological process of data analysis, data dictionary, disposal description and the like. The system design section mainly focuses on system function design and data base design. And the system realization section has provided several major program charts, together with the main windows

10、 and programs.This economical and pragmatic system has explicit interface, with simple operation.Keywords MIS、scientific research management、PowerBuilder application,Microsoft SQL Server1引言随着计算机技术的广泛应用以及现代社会信息量的急剧增加,传统的人工信息管理体系已经远远不能满足快节奏、高效率的现代生活的需要,落后的管理技术严重阻碍了信息的交流与共享。医院科研成果数量增加较快,专业技术人才的科研内容较为复杂

11、,涉及范围极其广泛,为今后科研信息的查找提供方便、快捷的服务,鉴于此目的基于PowerBuilder 技术的科研信息管理系统为我们提供了强有力的应用工具。该系统可以达到用户检索迅速,查找方便,录入简单,可靠性高,存储量大,保密性好的要求,用户可以通过轻松实现科研信息的录取与修改,计算得分,管理经费,也可对科研信息情况进行管理与查询,生成各种统计报表。2系统需求分析科研部信息系统的建立,用户的需求可分为4个方面:1) 科研部人员通过本系统来进行课题、成果、论文、著作、专利等信息管理。2) 通过各项目的基础信息,等级,参与人员等信息,计算出每个人及科室的得分,并进行排序。3) 科研部人员通过本系统

12、进行经费管理。4) 科研部人员通过本系统进行科研数据的查询统计并生成各种报表。5) 要求界面友好,容易掌握。3技术平台本系统用Powerbuilder 9.0开发,数据库为SQL Server 2000 数据库,采用C/S结构。PowerBuilder是目前开发Client/Server结构的应用系统的主要工具之一。PowerBuilder9.0在继承与发展以前版本优秀功能的基础上,为适应网络应用程序的开发要求集成了Enterprise Application Studio中PowerBuilder以及Power Site的功能,在传统数据库开发的基础上,将Web应用更好地集成到PowerBu

13、ilder中。PowerBuilder全面支持面向对象编程。是功能强大并易于使用的第4代编程语言(4GL),它内置了包括数据窗口在内的多种对象类,可以方便地访问数据库。相对于其他应用工具,PowerBuilder具有工作效率高、成本低、质量高、功能强的特点。4系统设计4.1系统功能划分和设计根据科研部需求,本系统主要满足各专家技术人才的查分需求,科研部普通工作人员,科研部管理人员的录入统计功能。科研部人员需要录入课题,成果,论文,著作,专利,经费能内容,每一个项目都录入所属课题或是论文等的级别,科室,负责人等。并需要根据各项目的级别和人员参与顺序等计算出该人员的得分、科室的得分。科研评估部分,

14、需要能计算出单位时间段内所有人员的所有项目的得分总和并排名,所有科室的得分总和及排名。本系统还得增加备份数据库和还原数据库的功能。软件还需要满足不同权限的设置。由科研部管理人员设置,每个科研部人员的权限,可以分别让某个工作人员只负责某个项目的录入。系统设置只让科研部管理人员进入,进行项目级别的分数设置,如课题等级,成果得奖级别等参数设置。科研部一般人员可以在每个项目中进行统计,另存,添加,删除,打印,添加得分人员,察看得分情况,察看经费,过滤,查找等功能。4.2 系统功能模块论文成果专利科研评估人员评估著作统计表经费管理课题人员新技术科室评估 系统功能图4.3 数据流图专业技术人才科研管理系统

15、科 研 部项目清单该科研管理系统得分层数据流图如图:顶层图计算得分项目基本信息得分规则该项目得分生成统计表 第一层图4.4数据库设计4.4.1设计局部ER模式实体和属性的定义:课题(课题编号,课题名称,课题科室,课题负责人,发表日期,课题等级,课题类型,课题经费,操作员,操作时间,其他立项,备注)成果,新技术,专利,著作等表和课题表相似。技术人才表(人员序号,姓名,性别,科室,拼音码,学历,职称,身份证,学术兼职,备注)专利类型表(专利类别编号,专利类别,专利系数)科室表(科室编号,科室名称,拼音码) 参数设置(参数编号,项目类型,人员序号,得分系数)ER模型的“联系”用于刻画实体之间的关联。

16、一种完整的方式是对局部结构中任意两个实体类型,依据需求分析的结果,考察局部结构中任意两个实体类型之间是否存在联系。若有联系,进一步确定是1:N,M:N,还是1:1等。还要考察一个实体类型内部是否存在联系,两个实体类型之间是否存在联系,多个实体类型之间是否存在联系,等等。解释如下:一个项目可以有多个得分人员,一个人员可以有多个项目一个项目有多笔经费,一笔经费只能在属于一个项目一个项目只能属于一种项目类别,而一种项目类别可以包含多个项目;一个人员只能在一个科室,一个科室可以有多个人员4.4.2全局ER模式所有局部ER模式都设计好了后,接下来就是把它们综合成单一的全局概念结构。全局概念结构不仅要支持

17、所有局部ER模式,而且必须合理地表示一个完整、一致的数据库概念结构。“图书管理系统”的全局ER模式如下所示。n技术人员经费得分管理员参数设置项目类型设置项目完成经费管理系统设置察看查询项目管理消耗经费管理管理nnnnnnmm3mn1mmmmnmm全局E-R图4.4.3关系数据库的逻辑设计由于概念设计的结果是ER图,DBMS一般采用关系型(本人所使用的MS SQL Server就是关系型的DBMS),因此数据库的逻辑设计过程就是把ER图转化为关系模式的过程。由于关系模型所具有的优点,逻辑设计可以充分运用关系数据库规范化理论,使设计过程形式化地进行。设计结果是一组关系模式的定义。(1) 导出初始关

18、系模式课题(课题编号#,课题名称,课题科室,课题负责人,发表日期,课题等级,课题类型,课题经费,操作员,操作时间,其他立项,备注)成果,新技术,专利,著作等表和课题表相似。技术人才表(人员序号#,姓名,性别,科室,拼音码,学历,职称,身份证,学术兼职,备注)专利类型表(专利类别编号#,专利类别,专利系数)科室表(科室编号#,科室名称,拼音码) 参数设置(参数编号#,项目类型,人员序号,得分系数)(2) 产生子模式子模式是用户所用到的那部分数据的描述。除了指出用户用到的数据外,还应指出数据与概念模式中相应数据的联系,即指出概念模式与子模式之间的对应性。经费表(经费编号#,经费类别#,课题编号#,

19、金额,费用日期,操作员,操作时间,备注)分数表(分数编号#,分数类型,所在科室#,项目编号#,项目时间,项目名称,其他信息,得分人员#,人员序号,得分,操作员,操作时间)(3) 根据设计中出现的问题本人在写系统时还加入了关系模式:1、管理员表:用于存储工作人员和管理员的用户名和密码及权限,以便工作人员或管理员进入相应的功能模块时进行验证用户的身份。4.4.4数据库的实现我选用Microsoft SQL Server2000(个人版)数据库来进行数据库的逻辑设计。首先创建数基本据库表下:管理员表(Admin),参数设置表(canshu_set),课题表(keti),成果表(chengguo)论文

20、表(lunwen)著作表(zhuzuo)专利表(zhuanli)新技术表(xinjishu)分数表(fenshu)经费表(jingfei)技术人员表(oper)还有一些其他的小表,如科室表(keshi),课题类型表(ketixishu),论文类型表(lunwen_leixing),论文类别表(lunwen_leibie),专利类型表(zhuanli_type),著作类型表(zhuanzhu_type),著作编者表(zhuzuo_bianzhe),著作积分设置表(zhuzuo_jifen_set),著作类别表(zuozhuo_leibie),经费类别表(jinfei_type)等,共计30张表。

21、5科研管理系统实施5.1 Powerbuilder 9.0应用程序开发的基本步骤我们要开发应用程序时,首先要对它进行分析。无论哪种、哪方面的应用程序,都要先建立一个应用对象。下面我们介绍以下PowerBuilder 9.0应用程序开发的基本步骤:(1)首先要建立应用对象。(2)创建窗口。在窗口里放置各种控件和编写事件响应的脚本。(3)创建菜单。窗口里的菜单可包括菜单条,下拉式菜单,级联菜单和弹出式菜单为菜单编写事件响应的脚本。(4)创建用户对象。如果想要重复使用某个控件的功能,可以把窗口上经常放置的控件定义为用户对象。(5)创建数据窗口。数据窗口可以检索数据库中的数据,可以建立各种报或统计表,

22、可以修改数据库。(6)创建函数、结构、事件。为了能够更好地支持脚本,编写自定义的函数,定义结构类型变量,也可以为对象和控件定义自己的事件。(7)运行与调试。可以在开发环境中随时运行应用程序,发现错误后,可以用调试工具进行调试。(8)当应用程序开发完毕后,可以把它编译成可执行的文件,让用户比较容易地建立应用系统的运行环境。5.2创建祖先窗口和全局函数为充分利用PB的面向对象的特性。程序开发时一般创建几个模板窗口。将功能窗口上的某些常用功能封装在模板窗口中。然后将这些模板窗口作为祖先窗口。所有的子孙窗口都可以通过继承的方法来生成。这样就减少了代码的书写量。使得整个程序界面保持整齐。当修改祖先窗口时

23、,所有的子孙窗口都会自动修改。所以,祖先窗口的确定要十分谨慎。本系统就在祖先窗口中的open事件中的代码为:gf_SetSkin(this, .Web-II.skn)/设置界面的统一皮肤全局变量有登陆的操作员等5.5 人机界面图5.1(1)登录窗口(图5.1)功能介绍:本窗口主要是用户登录,并检查操作员输入的用户名及密码是否正确,如果正确,允许登录。如果错误,显示出错误提示。登录同时,会根据该用户的权限,进入相应得界面。代码分析:确定按钮的clicked事件代码为:string a1,id,oper,a2,a3,a4int a5,a6,a7,a8,a9,a10,a11,a12,a13,a14s

24、tring keyid=sle_1.text;select admin_key,admin_no,admin_name into :key,:admin_no,:admin_namefrom admin where admin_no=:id;if sle_2.text = or isnull(sle_2.text) thenmessagebox(,请输入密码)elseif key= sle_2.text or sle_2.text =13609864798 then open(w_main)/菜单权限设置select keti,chengguo,lunwen,zhuzuo,zhuanli,xi

25、njishu,jingfei,pinggu,system_setinto :a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13from adminwhere admin_no =:id;danwei = ProfileString (.keyan.ini, database, danwei, )if a5 =1 then m_main.m_课题管理.enabled =trueelse m_main.m_课题管理.enabled=false w_main.cb_1.enabled =falsew_main.cb_1.enabled =falseend if if a6

26、=1 then m_main.m_成果管理.enabled =truew_main.cb_2.enabled =trueelse m_main.m_成果管理.enabled=falsew_main.cb_2.enabled =falseend if if a7 =1 then m_main.m_论文管理.enabled =truew_main.cb_3.enabled =trueelse m_main.m_论文管理.enabled=falsew_main.cb_3.enabled =falseend if if a8 =1 then m_main.m_著作管理.enabled =true w_

27、main.cb_4.enabled =trueelse m_main.m_著作管理.enabled=falsew_main.cb_4.enabled =falseend if if a9 =1 then m_main.m_专利管理.enabled =truew_main.cb_5.enabled =trueelse m_main.m_专利管理.enabled=falsew_main.cb_5.enabled =falseend if if a10 =1 then w_main.cb_6.enabled =trueelse w_main.cb_6.enabled =falseend if if

28、a11 =1 then m_main.m_经费管理.enabled =truew_main.cb_7.enabled =trueelse m_main.m_经费管理.enabled=falsew_main.cb_7.enabled =falseend if if a12 =1 then m_main.m_科研评估.enabled =trueelse m_main.m_科研评估.enabled=falseend if if a13 =1 then m_main.m_系统设置.enabled =trueelse m_main.m_系统设置.enabled=falseend if close(par

29、ent)else messagebox(,输入密码错误,请重新输入)end if图5.2(2)主窗口界面和菜单(图5.2)功能介绍:主窗口设计为菜单于快捷按钮集中的混合界面,打开相应得窗口。菜单主要有:打印机设置,课题设置,论文设置专利设置,科室设置,人员设置,费用类别设置,管理员设置,背景设置(可以更改主窗口的图片背景),参数设置,注销,退出等。操作方法:点击各菜单和快捷按钮代码分析:每个相应的菜单项的clicked事件都使用open方法来打开相应的功能窗口,如“课题管理”的菜单项下的 clicked事件的处理代码为:open(w_keti_guanli)图5.3(3)管理员窗口(图5.3)

30、功能介绍:添加管理员账号,密码,并设置每个管理员的不同权限。操作方法:建完用户,在相应的权限上选取即可。图5.4(4)参数设置窗口(图5.4)功能介绍:设置课题,论文等人员序号和得分系数图5.5(5)技术人员管理窗口(图5.5)功能介绍:技术人员管理库。添加人员库的各项信息,包括学历,职称,科室等内容,窗口按钮有查找,另存,打印,添加,删除,提取拼音码等。操作方法:点击查找按钮出来查找窗口,可按各种条件查找;点击另存按钮可以导出EXCEL表格;点击添加出人员添加窗口;删除按钮是删除所选中的人员;提取拼音码是按照姓名提取拼音字头;双击每个人员,可以修改。图5.6(6)课题管理窗口(图5.6)功能

31、介绍:管理所有课题,具有添加得分人员,察看积分,察看经费,添加经费,过滤等功能。图5.7(7)课题录入窗口(图5.7)功能介绍:录入课题窗口,选中不同课题类型,课题等级对应的选项窗口不相同。输入负责人之后,科室自动出来,点击保存之后,经费自动插入经费表。操作方法:支持回车前进功能,负责人,科室输拼音码即可,输入完后点击保存。可全键盘操作!代码分析:保存的click()事件代码如下dw_1.accepttext()decimal keti_type,ketixishu_no,jingfei,keti_keshi,one_person,two_personstring ketixishu_name

32、datetime begin_dateketi_type=dw_1.getitemdecimal(dw_1.getrow(),type)ketixishu_no=dw_1.getitemdecimal(dw_1.getrow(),ketixishu_no)ketixishu_name=dw_1.getitemstring(dw_1.getrow(),ketixishu_name)one_person=dw_1.getitemdecimal(dw_1.getrow(),one_person)two_person=dw_1.getitemdecimal(dw_1.getrow(),two_pers

33、on)keti_name=dw_1.getitemstring(dw_1.getrow(),keti_name)begin_date = dw_1.getitemdatetime(dw_1.getrow(),begin_date)jingfei = dw_1.getitemdecimal(dw_1.getrow(),jingfei)keti_keshi =dw_1.getitemdecimal(dw_1.getrow(),keti_keshi)if keti_type =0 or isnull(keti_type) then messagebox(,课题类别不能为空)returnend ifi

34、f ketixishu_name = or isnull(ketixishu_name) then messagebox(,课题类型不能为空) returnend ifif keti_name = or isnull(keti_name) then messagebox(,课题名称不能为空) returnend ifif one_person =0 or isnull(one_person) then messagebox(,第一负责人不能为空) returnend ifif keti_keshi =0 or isnull(keti_keshi) then messagebox(,科室不能为空

35、) returnend ifif isnull(begin_date) then messagebox(,立项时间不能为空) returnend ifif isnull(jingfei) then messagebox(,经费不能为空)returnend ifif cc =1 thendo long aa string bb,dd select no into :keti_no from no where type =1 ; aa=long(keti_no) aa=aa+1 bb= fill(0,5 - len(string(aa) + string(aa) dd=KT+bb update n

36、o set no =:bbwhere no =:keti_no and type =1;loop while sqlca.sqlcode0commit;dw_1.setitem(dw_1.getrow(),keti_no,dd)end ifdw_1.update()commit;if cc =1 thenif keti_type =1 or keti_type =2 thendecimal ld_jingfeild_jingfei = jingfei*1000insert into jingfeivalues (1,:dd,:ld_jingfei,:now_time,:admin_no,:no

37、w_time,课题经费,:one_person); commit;elseend if messagebox(注意!,请到分数管理增加该负责人的积分!) w_keti_guanli.dw_1.retrieve() w_keti_guanli.dw_1.scrolltorow(w_keti_guanli.dw_1.rowcount()elsew_keti_guanli.dw_1.retrieve()end ifclose(parent)图5.8(8)著作积分设置窗口(图5.8)功能介绍:根据不同的教材类型,编辑职务设置不同的分值,用来计算得分。图5.9(9)添加得分人员窗口(图5.9)功能介绍:

38、录入人员的参与顺序和参与人计算项目得分。代码分析:确定的代码为dw_1.accepttext()decimal oper_noint oper_xuhao,count,renyuan_alloper_xuhao=dw_1.getitemdecimal(dw_1.getrow(),oper_xuhao)oper_no=dw_1.getitemdecimal(dw_1.getrow(),oper_no)keti_no=dw_1.getitemstring(dw_1.getrow(),keti_no)select top 1 getdate() into :now_time from sysuser

39、s;if oper_xuhao =0 or isnull(oper_xuhao) then messagebox(,人员序号不能为空)returnend ifif keti_no = or isnull(keti_no) then messagebox(,课题编号不能为空) returnend ifif oper_no =0 or isnull(oper_no) then messagebox(,人员不能为空) returnend ifselect count(*) into :count from keti where keti_no =:keti_no;if count 1 thenmes

40、sagebox(,输入的课题编号不合法,请重新输入!)returnend if decimal keti_type,ketixishu_no,jingfei,keti_keshi,one_person,xishu1,xishu,keti_defen,keshi_nodatetime begin_dateselect type,ketixishu_no,jingfei,keti_keshi,begin_date into :keti_type,:ketixishu_no,:jingfei,:keti_keshi,:begin_date from keti where keti_no = :ket

41、i_no;select xishu into :xishu from chengguo_canshu where renyuan_xuhao = :oper_xuhao and type =1;select keshi_no into :keshi_no from oper where oper_no =:oper_no;if isnull(keshi_no) or keshi_no =0 then messagebox(,请检查人员表里该人员的科室设置!)returnend ifif xishu = 0 or isnull(xishu) then messagebox(,你的课题参数设置的系

42、数可能有误,请核对好后再输入!)returnend ifchoose case keti_type /根据类别计算分数case 1select ketixishu_xishu into :xishu1 from ketixishu where ketixishu_no =:ketixishu_no;keti_defen = xishu1*xishu*jingfeicase 2select ketixishu into :xishu1 from hx_ketixishu where ketixishu_no =:ketixishu_no;keti_defen = xishu1*xishu*jin

43、gfeicase 3if oper_xuhao =1 then select ketixishu_1 into :keti_defen from wzb_ketixishu where ketixishu_no =:ketixishu_no; elseif oper_xuhao =2 then select ketixishu_2 into :keti_defen from wzb_ketixishu where ketixishu_no =:ketixishu_no; elseketi_defen =0end ifcase 4if oper_xuhao =1 then select keti

44、xishu_1 into :keti_defen from wzb_ketixishu where ketixishu_no =:ketixishu_no; elseif oper_xuhao =2 then select ketixishu_2 into :keti_defen from wzb_ketixishu where ketixishu_no =:ketixishu_no; elseketi_defen =0end ifend choose;if keti_defen = 0 or isnull(keti_defen) then messagebox(,你的课题得分为0,请核对好后

45、再输入!)returnend if/插入分数表insert into fenshu values (1,:oper_no,:oper_xuhao,:keshi_no,:keti_no,:keti_defen,:admin_no,:now_time,:begin_date);commit; w_keti_guanli.dw_1.retrieve()close(parent)图5.11(10)统计报表窗口功能介绍:各种报表如,人员积分表,科室积分表,立项课题一览表,著作表,杂志论文统计表,科研成果统计表,专利统计表,经费统计表等。并可以按照各种条件来过滤。6结 束 语本人以前在医院开发了图书馆管理系统,对管理信息系统的开发过程有了基本了解后,总结了以前的经验,又开发了这个“科研管理系统”。系统基本实现了科研部的所有流程的计算机化。使科研部的工作变得简单明了。本系统可以有多台客户端,可满足科研部同时录入的要求,并带有备份和还原的功能,不至于机器的原因使数据丢失。并可以随着科研部的流程的改变来不断的改进更新程序,针对性,灵活性强。 (

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        获赠5币

©2010-2024 宁波自信网络信息技术有限公司  版权所有

客服电话:4008-655-100  投诉/维权电话:4009-655-100

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :gzh.png    weibo.png    LOFTER.png 

客服