老乡会会员信息管理系统

1、老乡会会员信息管理系统 2008 届 经济管理 系专 业 学 号 学生姓名 指导教师 完成日期 2011年7月2日1. 系统分析 1.1 需求分析1.1.1系统实现的目标随着交通条件的不断改善，人们可以走向全国各地各地。面对庞大的信息量，需要相应的管理系统来提高同乡间管理工作的效率，做到信息的规范管理、科学统计和快速查询，以减少管理方面的工作量。本系统便于大家查询基本资料、联系方式、各省市老乡信息共享，让老乡资源发挥更大作用，产生社会效益和经济效益。1.1.2功能需求分析本系统实现了同乡好友的查询、添加、删除、维护与管理以及用户管理等功能，方便老乡会信息的正确性，完整性。系统中的信息可分为会员

2、的基本信息和特殊信息（较重要活隐秘信息）两类，系统分为三个模块：管理员、会员和游客，各个功能模块如下：(1)管理员模块：对所有信息的查询、修改。查看系统公告打印报表修改自身及其他用户密码(2)会员模块：对会员基本信息和特殊信息的查询会员信息的打印修改自身密码（3）游客模块：对会员基本信息的查询系统公告的查询会员基本信息打印1.2 开发工具本系统程序基于powerbuilder而 9.0开发，使用odbc数据库。开发平台：win xp + powerbuilder 9.02. 系统设计2.1 系统业务流程管理员会员基本信息管理会员信息会员基本 信息查询会员信息登录系统会员游客浏览系统查询系统公告

3、系统公告用户名 密码用户名 密码查询基本信息会员基本信息密码信息管理密码信息管理系统公告系统公告信息导出会员基本信息会员特殊信息密码信息系统公告修改个人密码信息查询系统公告会员信息导出 会员基本信息会员特殊 信息会员特殊信息会员信息查询会员基本信息会员特殊信息会员特殊信息图1 系统业务流程图2.2 系统功能结构根据老乡会信息管理系统的实际需求，将老乡会信息管理系统划分为游客、会员、管理员三个角色；功能包括信息管理、信息查询、信息导出、用户管理及系统公告管理等多个部分，各个部分的具体功能的系统功能结构图如图2所示。基本信息查询特殊信息查询信息查询系统公告查询个人密码修改信息导出会员老乡会信息管理

4、系统管理员会员管理用户密码管理系统公告管理游客浏览基本信息系统公告查询会员查询个人密码管理会员导出基本信息查询特殊信息查询基本信息查询特殊信息查询基本信息查询特殊信息查询图2系统功能结构图2.3 数据库设计本系统使用的数据库管理系统为sql server 2005。数据库中的表如下：表1user字段名称数据类型 长度允许空主键用户名char10not null密码char10not null权限char10not null表2基本信息字段名称数据类型 长度允许空主键编号char10not null姓名char10not null性别char10yes null籍贯char40yes null婚

5、否char10yes nullqq号char20yes null表3特殊信息字段名称数据类型 长度允许空主键编号char10not null工作单位char20yes null所在部门char20yes null担任职务char20yes null 移动电话char20yes null家庭住址char20yes null3. 系统实现3.1 欢迎界面用户点击进入图3欢迎界面3.2 登录界面登录可分为游客登录和用户登录。若为游客则可点击直接登录，用户登录时输入用户名，密码，根据自己的不同权限应用不同菜单功能，如果用户输入的内容和数据表中的内容相符，则通过验证，登录成功并转向相应的操作页面；否则登

6、录失败。如图4所示。图4登录界面3.3 主界面图5主界面3.4 信息管理部分（1） 基本信息的界面图6基本信息管理界面（2） 特殊信息的界面图7特殊信息管理界面3.5 信息查询部分（1） 基本信息图8基本信息查询界面（2） 特殊信息图9特殊信息查询界面3.6 信息导出部分图9特殊信息打印界面基本信息打印与特殊信息的类似3.7 密码修改界面图10密码修改界面3.8 用户管理界面图11用户管理界面3.9 系统公告界面图12系统公告界面4. 算法核心代码(1) 连接数据库代码：/ profile studbstring strkeyboot,strcurrdirectory,keyvaluestrc

7、urrdirectory=getcurrentdirectory()+datastrkeyboot=hkey_local_machinesoftwareodbcodbc.inidatabaseregistryget(strkeyboot,databasefile,regstring!,keyvalue)if keyvaluedatabase then registryset(strkeyboot,databasefile,regstring!,strcurrdirectory+database.db) registryset(strkeyboot,databasename,regstring!

8、,database) registryset(strkeyboot,driver,regstring!,c:program filessybasesql anywhere 8win32dbodbc8.dll) registryset(strkeyboot,enginename,regstring!,database) registryset(strkeyboot,pwd,regstring!,dba) registryset(strkeyboot,start,regstring!,c:program filessybasesql anywhere 8win32dbeng8.exe -d -c8

9、m) registryset(strkeyboot,uid,regstring!,sql)end ifsqlca.dbms = odbcsqlca.autocommit = falsesqlca.dbparm = connectstring=dsn=database;uid=dba;pwd=sqlconnect;if sqlca.sqlcode0 thenmessagebox(提示,连接失败，具体原因请与系统管理员联系！,stopsign!)end ifopen(w_welcome)(2) 登录代码：string username,passwordstring uname,pwordusern

10、ame=trim(sle_username.text)password=trim(sle_password.text) select user.用户名, user.密码 ,user.身份 into :uname, :pword,:sf from user where ( user.用户名 = :username ) and ( user.密码 = :password ) ;/if unameusername then messagbox(,fail)if sqlca.sqlcode=100 thenmessagebox(提示,用户名或密码错误，请重新输入)elseopen(w_main)clo

11、se(parent)end if(3) 主窗体代码：choose case sf case 管理员 case 会员m_main.m_信息管理.enabled=falsem_main.m_用户管理.enabled=false case 游客 m_main.m_信息管理.enabled=falsem_main.m_信息查询.m_特殊信息查询.enabled=falsem_main.m_信息导出.enabled=falsem_main.m_用户管理.enabled=falsem_main.m_密码修改.enabled=falseend choose(4) 窗口连接数据代码：dw_1.settrans

12、object( sqlca)dw_1.retrieve( )dw_retrieve.settransobject( sqlca)dw_retrieve.retrieve( )(5) 添加代码：dw_insert.insertrow( 1)dw_insert.scrolltorow( 1)(6) 删除代码：long currowcurrow=dw_insert.getrow( )dw_insert.deleterow(currow)dw_insert.update( )(7) 修改代码：string mima,usename/ 数据库连接参数/ profile jnsqlca.dbms = od

13、bcsqlca.autocommit = falsesqlca.dbparm = connectstring=dsn=老乡会/连接数据库connect;/检索用户名和密码记录select user.用户名, user.密码 into :usename, :mima from user where user.用户名 = :sle_1.text ;/判断用户输入的用户名是否正确if sle_1.text= or sle_2.text= or sle_3.text= or sle_4.text= or sle_3.textsle_4.text thenmessagebox(错误！,用户名或密码不能为

14、空,并且新密码不能两次输入相同！,exclamation!,ok!,2)elseif usename=sle_1.text and mima=sle_2.text then/修改用户的密码update user set 密码 = :sle_4.text where user.用户名 = :sle_1.text ;messagebox(密码修改成功！,请记住新密码，下次登录时请使用新密码！,information!,ok!,2)elsemessagebox(错误！,用户名或密码错误，请重新输入！,exclamation!,ok!,2)end ifend if(8) 报表代码：dw_employe

15、e.setrowfocusindicator(hand!)/设置事物对象dw_employee.settransobject(sqlca)/获取数据dw_employee.retrieve()/隐藏水平轨迹条htb_zoom.visible=truest_zoom.visible=truest_1.visible=truest_2.visible=true(9) 打印预览报表代码：if cb_preview.text=打印预览 then /执行打印一览功能dw_employee.object.datawindow.print.preview=yes/显示标示dw_employee.object.datawindow.print.preview.rulers=yescb_preview.text=取消预览elsecb_preview.text=打印预览dw_employee.object.datawindow.print.preview=noend if5. 结论经过一周的时间，在同学和老师的帮助下基本完成本次课程的设计，基本达到了工资管理系统的要求。通过这次课程设计，使我受到一次转业知识、专业技能分析和解决问题能力的全面系统锻炼，是我在管理信息系统知识的使用方面，在pb软件开发的基本思想、方法及在常用编程设计思路技巧的掌握方面都能