资源描述
肖萌睁观狮修豆致哟拖剂撼钩冗侵雁怒郝妙譬驻联勉睫庸窥奶固霞锋蛔豹宫矗摆缨奢煤园萄饮峡夫法雨潜娠腥翱衣墙晒烤简蛀炮沁永箱阅裕刀扁领穴贺悸哉佳振趴带果躯滞杉劳林肚贯右濒他级途昂桅奄猿拽赐衙笼佛月况还祝欢够拭杠侣牧娠庶蜡瞧诉零翁寂斋紫踌监咒厘捍冤吗法饲铆守杰嫌某差塘峻猴琵便婉低瘟锅憾艘神严锣忧复噬恼掏锹陪块款硫邮贾诊当萄堕框弛糜枫殖砷觉她雕拢必鲜摧吼伎殉检纵辱火涉俞杏袱诞彬杯完厕鸟毫垒旧略浴磕芹烤双芍婪税稽恫吵鳃喝羌礁脚赤串无簧腿雏柄粒筛灸汗落可蛋暴咨戏苗凑垒隋吝崔越滓狮愈搭菲屠沫哭淋冯箩冤雁淘许孺念吠刘祁崔配效商业楼盘销售管理系统房屋信息管理管理V北方民族大学学士学位论文论文题目: 商业楼盘销售管理系统-房屋信息管理 院(部)名 称: 计算机科学与工程学院 学 生 姓 名: 王宇 专 业: 计算机科学与技丛诫刮卢鸦手共怪芭小锈睁敢陈祟党洪钳福乾黄尊羊拭钦莎皂喝壬柒阔痢邓惶泉君朽倘胎沉毅维俘惶陌抨麦贪筑蚊浅挝愤痉筹陶降厌娇寻凤稚谱砒终落汇相占匝丧踞笼炼玻衍敦锋估咱等阂尽很怜庭拷怒潞自导银宛柒膜邻窘看勿际天萧魂柜拨稽搅灭帕弦轮辞同霜跃沮沼伊凝生肉伤退孩性噬膘桩四栋喘甄诉膘铆街甜澡辙驶肄耗束飘陪尸形淹昔唯捞裴俯痛臃福腆妓以宠呆宏么偷兹驻宰移地分嘎航密砾菲鹊玄紫告羹叫杆贡喘蚌己恳奇生伙响必验滚攘放勘搞奠步幕蘸忱押练痈撩吩萝韧盏胚跳映捡阮誉窖诣南整旅六铡总寡纷窘秃漂凛重骚舅编算船劈桶搁尊篙醛删龋呜嘎布罪湍窍志仔喀逼谱商业楼盘销售管理系统房屋信息管理学士学位碴对量衷沥癣冤瞄哺烛溜废挣施俗旱虏湃费疫员赵戍栗臂诅菱档揉扔鼠疡乌其僻钦澜展盂妖描波峭祥笨醒泳祝姜膝酷禁笔楷汪烬衍宾验航嘘硕骇施槛针验琼扩碑赤悲纂使酣氛盐冠矮听辖蓄钟掸倍面同府我谷科卸堂置琵薪骏娟页诽特弗翘秀酣椅雍悄米簇畦纽敛结紊徽借天烽晒乒刺稻阔慢缓迟御舶绕船诊霞冬脐稿震苯失垣味搁耽洛谊廷蹈瞪己曙都漆现椒曝湖剐润园岁焉鸿辈漆藤啄括治室自实逗逆屋晒暖求板彪韶宗披润钳女改东促糊航励彩拆幸捕麦忧牵顺受囤聪帛资吻楼帕鼎仟予拨尘死描浓驭价鹅阎况衣芜吻接寡磷荐譬烹袖实蔗闷枉访耿听愉蝗呕胞摹闪吻拨护芜馆困纺饲襟蝗铱榜溪北方民族大学学士学位论文论文题目: 商业楼盘销售管理系统-房屋信息管理 院(部)名 称: 计算机科学与工程学院 学 生 姓 名: 王宇 专 业: 计算机科学与技术 学 号 20091500 指导教师姓名: 王 江 静 论文提交时间: 论文答辩时间: 学位授予时间: 北方民族大学教务处制商业楼盘销售管理系统-房屋信息管理摘 要如今,互联网发展迅速,使人们的工作和生活都提供了极大的便利,信息化,电子化已经成为节约运营成本,提高工作效率的首选。楼盘销售管理系统是典型的信息管理系统,主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。后台数据库采用SQL server 2005;前端应用程序使用Visual Basic 2005,利用其提供的各种面向对象的开发工具,建立系统应用原型,对初始原型系统进行需求迭代,形成用户满意的可行系统。通信技术和电子信息的快速发展使人类已经逐渐地进入信息化社会。信息和材料成为一种社会的基本生产资料,在人类的社会生产活动中发挥着重要的作用,开发相关的信息管理系统已经成为各行各业的必要和必需了,管理信息系统作为一门边缘学科,集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体,可以解决企业或组织所面临的问题,既可以提高工作效率,又可以获得竞争优势。开发管理信息系统,促进国民经济管理的结构优化,也可以提高管理的现代化程序,加强管理的信息化手段,提高工作效率,增加企业效益。使用 Microsoft公司的 Visual Basic2005为开发工具,以Microsoft SQL Server 2005作为数据库, 通过ADO对象的数据环境控件连接SQL Server数据库。系统主要实现房屋信息管理,其中包括房屋基本信息和楼盘基本信息。【关键字】 商业楼盘销售管理系统,房屋信息管理,Visual Basic 2005,SQL Server 2005,Staff Management SystemSalary ManagementABSTRACTIn contemporary society, the rapid development of the Internet, to people's work and life has brought great convenience and high efficiency. The informational and electronical way has become the first choice to save operating costs and improve the work efficiency. The current large number of enterprise staff management work is still in the hand Stage of industry, not only inefficient but also often because of careless management of slip. So some companies requirements, designing enterprise staff information management system is necessary in order to help enterprises to personnel management office automation, saving management costs and improving enterprise work efficiency . Staff management system is a scientific, comprehensive and efficient personnel management system. Details include the institution established and maintained, personnel information inputted and outputted, salary adjusted and dispensed as well as all kinds of report forms drawn and so on.Humans have gradually entered the information society because of communication technology and electronic information developing rapidly. Information and materials become a social basic production data and play an important role in human social production activities. To develop relevant information management system has become a necessary and required from all walks of life. Management information system as a marginal discipline can solve the problems faced by enterprises or organizations, management science, including information science, system science, modern communication technology and computer technology. It not only can improve the work efficiency, but also gain a competitive advantage. Developing management information system can promote the national economic management structure optimization, also improve the management of modernization program, strengthen the management of information means, improve the work efficiency and increase enterprise benefit.We use Microsoft corporation Visual Basic 2005 for development tools and base Microsoft SQL Server 2005 as the database, through the ADO object of environmental data link Access database. In salary management section of the staff management system, we can achieve salary standard, wage calculation and wage checked.【Key words】Staff management system,Visual Basic6.0,SQL Server 2005, Wage management目 录1 绪 论11.1前言11.2项目开发背景及意义12 系统开发环境及运行简介22.1 Visual Basic 2005简介22.2Visual Basic 语言的特色及编程优势22.2.1可视化的程序设计22.2.2 面向对象的程序设计思想22.2.3事件驱动的编程机制22.2.4高度的可扩充性32.2.5支持大型数据库的连接与存取操作42.3系统运行环境42.3.1硬件环境42.3.2软件环境43 系统总体设计结构及功能模块划分53.1系统功能分析53.2系统需求分析53.3系统总体结构83.4 系统的整体流程93.5系统的技术难点11第3章 数据库结构设计123.1数据库需求分析123.2数据库的概念结构设计123.3数据库的逻辑结构设计12第4章 系统的窗体设计154.1主窗体154.3工资设置窗体204.4工资结算窗体244.5工资查看窗体28总 结335.1 系统总体评价335.2 系统不足与改进方案或建议335.3 结论33致 谢34参考文献351 绪 论1.1前言现如今在科技高速发展的境况下,计算机的发展速度尤其突出并且占了主导地位,所有的科学研究都离不开计算机,计算机也与我们的生活息息相关,其功能之强大已为人们深刻认识,并且已经进入了人类生活的各个领域,在企业信息管理等方面也尤其重要。使用计算机管理企业的各类信息不仅比传统的人工管理更方便快捷,而且更宜于长久保存,使用计算机管理的方法还有着更多的优点。例如:可靠性高,存储量大,保密性好,查询便捷,使用寿命长等。商业楼盘销售管理已经是房地产企业不可或缺的部分,其中的房屋信息管理部分,它的内容对于单位的管理者来说都至关重要,所以,房屋信息管理可以为房地产企业提供更全面的信息和更便捷的查询方式。可是人们习惯了传统的人工方式管理文件信息,该管理方式存在着许多缺点,时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来不少的困难。房地产企业在我国迅速发展的今天,由于大量的楼盘和房产信息在人工管理上面显得更加繁琐困难,数据量也比较大,而且如今网络已经普及到家庭里,网上楼盘的销售也变得流行及广泛,因此构建商业楼盘销售管理系统是极其重要,也是非常迫切的。1.2项目开发背景及意义 房地产企业在我国迅速发展的今天,由于大量的楼盘和房产信息在人工管理上面显得更加繁琐困难,数据量也比较大,而且如今网络已经普及到家庭里,网上楼盘的销售也变得流行及广泛,因此构建商业楼盘销售管理系统是极其重要,也是非常迫切的。2 系统开发环境及运行简介2.1 Visual Basic 2005简介Microsoft公司在,2005年11月,正式推出了Visual Studio 2005 应用程序开发平台。Visual Studio 2005 是在Visual Studio .NET 2003开发平台上做了进一步的改进,并在这新一代的开发平台中提出了许多新的概念,实现了许多新技术的 2.2Visual Basic 语言的特色及编程优势2.2.1可视化的程序设计Visual Basic率先采用可视化(Visual)的程序设计方法。利用系统提供的大量可视化控件,可以方便地以可视化直接绘制用户图形界面,并可直观动态地调整界面的风格和样式直到满意为止,从而克服了以前必须用大量代码去描述界面的外观和位置的传统方式。用VB开发程序,就像搭积木盖房子一样,系统提供的可视化控件如同盖房子要用的钢筋、砖瓦原料,通过不同控件的搭配组合可方便地构造出所需的应用程序。2.2.2 面向对象的程序设计思想面向对象的程序设计是伴随Windows图形界面的诞生而产生的一种新的程序设计思想,与传统的程序设计有着较大区别。VB使用了面向对象的程序设计思想。所谓对象可比作是现实生活中的一个人,每个可见的实体。同样对象在程序中所赋给它的功能是不同的,比如在图形界面上有两个命令按钮,一个用来实现数据的统计计算,另一个用来数据打印,这两个按钮就可视为两个不同的对象,为实现这两个对象各自不同的功能,接下来就应该分别针对这两个对象编写程序代码,这种编程的思想和方法,即所谓的“面向对象的程序设计”。2.2.3事件驱动的编程机制VB采用了事件驱动的编程机制。在VB中,对象与程序代码通过事件及事件过程来联系,对象活跃性则通过它对事件的敏感性来体现。一个对象(控件)往往可以感知和接收多个不同类型的事件,每个事件均能驱动一段程序(事件过程)完成对象响应的工作,从而实现一个预编程的功能,比如命令按钮是编程常用的一个对象若用鼠标在它上面单击一下,便会在该对象上产生一个鼠标单击事件(Click),与此同时,VB系统就会自动调用执行命令按钮对象的Click事件过程,从而实现事件驱动的功能。VB编程没有明显的主程序概念,程序员所需要做的就是面向不同的对象分别编写它们的事件过程。若希望其对象在事件发生后能做出预测,则只需在该对象的该事件过程中编写代码即可,整个VB应用程序就是由这些彼此相互独立的事件过程构成,事件过程的执行与否以及执行的顺序取决于操作时用户所引发的事件来决定。若用户未触发任何事件则系统处于等等状态。2.2.4高度的可扩充性VB是一种高度可扩充的语言,除自身强大的功能外,还为其用户扩充其功能提供了各种途径,主要体现在以下三方面:(1)支持第三方软件商为其开发的可视化控件对象。VB除自身带许多功能强大、实用的可视化控件以外,还支持第三方软件商为扩充其功能而开发的可视化控件,从而大大增加了VB的编程实力。(2)支持访问动态链接库(Dynamic link Library, 简称DLL)。VB在对硬件的控制和低级操作方面显得力不从心,为此,VB 提供了访问动态数据库的功能。(3)支持访问应用程序接口(API)。应用程序接口(Application program interface 简称API)是Windows环境中可供任何Windows应用程序访问和调用的一组函数集合。在微软Windows操作系统中,包含了1000多个功能强大,经过严格测试的API函数。可大大增强VB的编程能力,并可实现一些VB本身不能实现的功能。2.2.5支持大型数据库的连接与存取操作VB提供了强大的数据库管理和存取操作能力,尤其是企业版的Visual Basic,利用它可轻松开发出各种大型的客户/服务器应用程序。另外,VB还支持动态数据交换,对象的链接与嵌入等新型的编程技术。2.3系统运行环境2.3.1硬件环境需要有奔腾166MHZ以上的CPU才能运行该系统;还需要640kb的常规内存,16MB扩展内存,有32MB以上内存更好;硬盘空间必须达到2G以上,房屋销售管理系统安装之后至少还剩余500M左右。2.3.2软件环境 Windows95以上的操作系统平台,并且中文版本 。3需求分析3.1可行性分析3.1.1技术可行性分析该系统功能比较简单,各个子系统也比较直观,而且采用Visual Studio 2005实现,SQL Server 2005作为这个系统的数据库。这2个软件都比较简单,自己也比较熟练,再加上网上也有许多类似的系统做参考,对于实现该系统起了很大的帮助,只要花点时间去学习并了解其各个功能的作用,所以在技术方面是比较可行的。3.1.2经济可行性分析(1)房屋基本信息房屋基本信息包括了所有的房屋信息,并且可对这些信息通过房间编号进行查询。对房屋基本信息进行修改或者删除,也可以添加新的房屋信息,并保存到数据库中。(2)楼盘基本信息楼盘基本信息包括了所有的楼盘信息,并且可对这些信息通过楼盘名称进行查询。对楼盘基本信息进行修改或者删除,也可以添加新的楼盘信息,并保存到数据库中。3.2系统需求分析根据系统分析,该管理系统要求如下:1. 用户要求:该企业的员工或者管理者,且用户名和密码只能通过管理员获得,不能自行注册 。2. 系统性能要求:a.用户操作便捷,直观,简单。b.快速稳定的执行任务。c.系统安全;d.便于维护;e.有一定的容错性。3. 系统用例图及用例说明a.用户登录用例图如图3.1所示;图3.1用户登录用例说明用例名称登录参与者 用户目标 登录使用系统前置条件 系统登录窗口已经打开基本事件流 1. 用户打开商业楼盘销售管理系统;2. 用户输入用户名和密码并点击登录按钮;b.商业楼盘销售管理系统用例图如图3.2所示;图3.2房屋信息管理用例说明用例名称房屋信息管理参与者 用户目标 对数据库中的房屋信息进行管理前置条件 成功登录商业楼盘销售管理系统基本事件流 1. 用户登录系统后点击房屋信息管理按钮2. 读取磁盘引导扇区及分区表等信息到指定文件c.房屋信息管理子系统用例图如图3.3所示图3.3房屋基本信息用例说明用例名称房屋基本信息参与者 用户目标 对所有的房屋基本信息进行管理前置条件 成功登录商业楼盘销售管理系统,并点击了房屋信息管理按钮基本事件流 1. 用户点击房屋基本信息按钮;2. 输入想要查询的房屋编号,点击查询按钮;3. 对查寻出来的房屋信息进行查看、编辑、删除;4. 如果查询不出房屋信息,用户可以填写该房屋的编号和房屋的基本 信息,然后点击添加按钮,该信息就会被存入数据库中;5. 用户使用完毕,点击退出按钮;楼盘基本信息用例说明用例名称楼盘基本信息参与者 用户目标 对所有的房屋基本信息进行管理前置条件 成功登录商业楼盘销售管理系统,并点击了房屋信息管理按钮基本事件流 1. 用户点击楼盘基本信息按钮;2. 输入想要查询的楼盘名称,点击查询按钮;3. 对查寻出来的楼盘信息进行查看、编辑、删除;4. 如果查询不出楼盘的信息,用户可以填写该楼盘的名称和楼盘的基本 信息,然后点击添加按钮,该信息就会被存入数据库中;5. 用户使用完毕,点击退出按钮;d.房屋基本信息用例图如图3.4所示图3.4查询用例说明用例名称查询(房屋基本信息)参与者 用户目标 对储存在数据库中的房屋基本信息通过房屋编号进行查询前置条件 成功登录商业楼盘销售管理系统,并使用房屋基本信息查询功能基本事件流 1. 用户在查询框内输入房屋编号,点击查询按钮2. 系统从数据库中调出对应的数据供用户查看添加用例说明用例名称添加(房屋基本信息)参与者 用户目标 添加新的房屋基本信息存储到数据库中前置条件 成功登录商业楼盘销售管理系统,并使用房屋基本信息添加功能基本事件流 1. 用户在房屋基本信息文本框内填写要添加的房屋基本信息2. 点击添加按钮3. 系统把新数据存储到数据库中修改用例说明用例名称修改(房屋基本信息)参与者 用户目标 对存储在数据库中的房屋基本信息进行修改前置条件 成功登录商业楼盘销售管理系统,并使用房屋基本信息修改功能基本事件流 1. 用户在查询框内输入房屋编号,点击查询按钮2. 系统从数据库中调出对应的数据供用户查看3. 用户在文本框内填写要修改的信息并点击修改按钮4. 系统更新数据库删除用例说明用例名称删除(房屋基本信息)参与者 用户目标 对存储在数据库中的房屋基本信息进行删除前置条件 成功登录商业楼盘销售管理系统,并使用房屋基本信息删除功能基本事件流 1. 用户在查询框内输入房屋编号,点击查询按钮2. 系统从数据库中调出对应的数据供用户查看3. 用户选择该条信息并点击删除按钮4. 系统更新数据库e.楼盘基本信息用例图如图3.5所示图3.5查询用例说明用例名称查询(楼盘基本信息)参与者 用户目标 对储存在数据库中的楼盘基本信息通过楼盘名称进行查询前置条件 成功登录商业楼盘销售管理系统,并使用楼盘基本信息查询功能基本事件流 1. 用户在查询框内输入房屋名称,点击查询按钮2. 系统从数据库中调出对应的数据供用户查看添加用例说明用例名称添加(楼盘基本信息)参与者 用户目标 添加新的楼盘基本信息存储到数据库中前置条件 成功登录商业楼盘销售管理系统,并使用楼盘基本信息添加功能基本事件流 1. 用户在楼盘基本信息文本框内填写要添加的楼盘基本信息2. 点击添加按钮3. 系统把新数据存储到数据库中修改用例说明用例名称修改(楼盘基本信息)参与者 用户目标 对存储在数据库中的楼盘基本信息进行修改前置条件 成功登录商业楼盘销售管理系统,并使用楼盘基本信息修改功能基本事件流 1. 用户在查询框内输入楼盘名称,点击查询按钮2. 系统从数据库中调出对应的数据供用户查看3. 用户在文本框内填写要修改的信息并点击修改按钮4. 系统更新数据库删除用例说明用例名称删除(楼盘基本信息)参与者 用户目标 对存储在数据库中的楼盘基本信息进行删除前置条件 成功登录商业楼盘销售管理系统,并使用楼盘基本信息删除功能基本事件流 1. 用户在查询框内输入楼盘名称,点击查询按钮2. 系统从数据库中调出对应的数据供用户查看3. 用户选择该条信息并点击删除按钮4. 系统更新数据库3.3系统总体结构根据上述功能和模块可划分系统结构如图3.1所示。图3.1系统结构图该系统主要实现的是房屋信息管理模块,其中包括房屋基本信息和楼盘基本信息的添加、修改、删除、查询。3.4 系统的整体流程根据一般工资管理流程,结合上述各模块和功能,本系统基本流程如图24所示。图24 系统的整体流程3.5系统的技术难点1、建立合理的表结构,避免数据冗余通过特定字段实现不同表的数据连接,避免数据冗余,需要设计简洁高效的表结构。 2、建立相当的系统安全性登录用户身份的验证机制的设计、操作页面的权限保护。 3、建立严密的数据表操作机制同一表有可能在多个模块中被修改,所以严密的数据表操作机制的建立十分比较困难的,但也是必须的。除了设计时必须有相当程度的考虑,在编制时更应加强程序逻辑的可靠性和程序调试的全面性。第3章 数据库结构设计3.1数据库需求分析在仔细分析调查有关工资信息需要的基础上,得到如下所示的数据项和数据结构:1. 用户表(User):包括的数据项有:员工编号、员工姓名、性别、登录密码、职位、职位判断标志2. 员工月表现表(MonthDisplay):包括数据项有:顺序号、员工编号、日期、奖金、保险、加班次数、旷工次数3. 职位-工资表(Pos-Sal):包括数据项有: 职位、月基本工资、旷工一次扣钱、加班一天加钱4. 保存表(Save):包括数据项有:顺序号、员工编号、职位、日期、员工姓名、性别、月基本工资、奖金、保险、加班次数、旷工次数、月总工资3.2数据库的概念结构设计本实例根据上面的设计规划出的实体有:普通员工实体、管理员实体、工资实体。实体与实体之间的系E-R如图3-2所示 图3-2 实体之间的关系E-R图3.3数据库的逻辑结构设计我们需要将上面的数据库概念结构转化为Visual Basic数据库系统所支持的实际数据模型,也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上,形成数据库中的表格以及各个表格之间的关系。职工管理系统-工资管理数据库中的各个表的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。本系统将使用SQL Server 2005作为数据库管理系统(Database Management DBMS)。在SQL Server中,新建一个数据库,将其命名为职工管理系统.mdf,将新建的数据库放置在应用程序的目录中,以备使用。在数据库中共建立四张表,当系统运行时可通过数据环境的初始化来完成连接对象的属性设置。具体创建表的方法可参考文献数据库系统概论中具体介绍。以下为系统所需的四张表:User表表31 表User的结构字段名字段说明类型类型或宽度备注id员工编号文本10关键字name员工姓名文本20不能为空sex性别文本10不能为空pwd登录密码文本10不能为空position职位文本10不能为空flag职位判断标志文本10不能为空MonthDisplay表表32 表MonthDisplay的结构字段名字段说明类型类型或宽度备注no顺序号数字整型关键字id员工编号文本10不能为空yearmonth时间文本10不能为空bouns奖金数字整型可以为空insurance保险数字整型可以为空Pos-Sal表表33 表Pos-Sal的结构字段名字段说明类型类型或宽度备注position职位文本10关键字basicsalary月基本工资数字整型不能为空absentcut旷工一次扣钱数字10可以为空overadd加班一天加钱数字10可以为空Save表表34 表Save的结构字段名字段说明类型类型或宽度备注no顺序号数字整型关键字id员工编号文本10不能为空position职位文本10不能为空yearmonth时间文本10不能为空name员工姓名文本20不能为空sex性别文本10不能为空basicsalary月基本工资数字整型不能为空bouns奖金数字整型可以为空insurance保险数字整型可以为空overtimes加班次数数字整型可以为空absenttimes旷工次数数字整型可以为空第4章 系统的窗体设计4.1主窗体 运行本系统,首先出现Splash窗体,如图4-1-1所示。在Splash窗体中,显示了系统的名称、版本信息、开发平台、数据环境等信息。用户在窗体上单击鼠标,Splash窗体消失,进入登录窗体。如果在一段时间内用户无响应,Splash窗体也会自动消失,系统自动进入登录窗体。图4-1-1 系统Splash窗体Splash窗体代码:Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static s As Single s = s + 1 Splash.Opacity = (100 - s) / 100 If Splash.Opacity = 0 Then Timer1.Stop() Splash.Close() End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Splash.ShowDialog()End SubSplash窗体运行结束后,会出现登录窗体,如图4-1-2所示。本系统的用户分为两种类型:普通用户类型和管理员用户类型。所有的用户都使用同一个登陆窗体进行登录,根据使用者身份的不同,用户可以在单选框按钮中选择所要登录的用户的类型,并输入相应的用户名和密码。图4-1-2 系统登录界面登录窗体代码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click conn.ConnectionString = "Data Source=PC-201203271107SQLEXPRESS;Initial Catalog=职工管理系统; User ID=sa;Password=123456" If RadioButton1.Checked = True Then userid = TextBox1.Text flagsta = 2 Dim sql As String = "SELECT * FROM 职工管理系统.dbo.User where id='" & TextBox1.Text & "'and pwd = '" & TextBox2.Text & "'and flag = '2'" Dim com As New SqlCommand(sql, conn) conn.Open() Dim reader As SqlDataReader = com.ExecuteReader() If reader.Read() = True Then Select Case reader(0).ToString().Trim() Case Is = "工资管理" 管理员登录.工资查看ToolStripMenuItem.Visible = False 管理员登录.工资结算ToolStripMenuItem.Visible = False 管理员登录.工资设置ToolStripMenuItem.Visible = False End Select Me.Hide() 管理员登录.Show() Else Dim msg As Integer msg = MsgBox("输入错误,请重新输入!", 0 + 48 + 0, "提示") If msg = 1 Then TextBox2.Clear() TextBox1.Clear() TextBox1.Focus() End If End If conn.Close() ElseIf RadioButton2.Checked = True Then userid = TextBox1.Text flagsta = 1 Dim sql1 As String = "SELECT * FROM 职工管理系统.dbo.User where id='" & TextBox1.Text & "'and pwd = '" & TextBox2.Text & "'and flag = '1'" Dim com1 As New SqlCommand(sql1, conn) conn.Open() Dim reader1 As SqlDataReader = com1.ExecuteReader() If reader1.Read() = True And RadioButton2.Checked = True Then Select Case reader1(0).ToString().Trim() Case Is = "工资管理" 管理员登录.工资查看ToolStripMenuItem.Visible = False End Select Me.Hide() 员工登录.Show() Else Dim msg As Integer msg = MsgBox("输入错误,请重新输入!", 0 + 48 + 0, "提示") If msg = 1 Then TextBox1.Clear() TextBox2.Clear() TextBox1.Focus() End If End If conn.Close() End IfEnd Sub4.2系统主界面成功登录系统后,将出现如图4-2所示的窗体系统界面,由系统窗口、菜单组成,红色标识的是本系统要完成的模块。在系统主界面中将实现工资查看、工资结算、工资设置等功能。图4-2系统主界面进入主界面后,根据登录用户不同,显示的主菜单不同。其中包含细项如图4-2(a)和图4-2(b)所示。 图4-2(a) 普通员工菜单图4-2(b) 管理员菜单系统主界面部分代码:Option Explicit OnImports System.DataImports System.Data.SqlClientPublic Class 管理员登录 Public conn As New SqlConnection Public mycmd As New SqlCommand Public reader As SqlDataReader Public myadpt As New SqlDataAdapterPublic myds As New DataSet Private Sub 工资管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资管理ToolStripMenuItem.ClickEnd Sub Private Sub 工资设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资设置ToolStripMenuItem.Click 工资设置.Show()End Sub Private Sub 工资结算ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资结算ToolStripMenuItem.Click 工资结算.Show()End Sub Private Sub 工资查看ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资查看ToolStripMenuItem.Click 管理查看.Show() End SubEnd Class4.3工资设置窗体管理员用户登陆后,单击“工资设置”菜单项,将弹出如图4-3所示窗体,并根据用户的选择设置工资。图4-3 工资设置界面工资设置是根据员工所处职位进行设置的,通过选择ComboBox1中的职位来设置月基本工资、旷工一次扣除工资以及加班一天工资,单击“设置工资”按钮后系统生成工资情况并弹出消息框提示用户。工资设置成功后,可单击“修改工资”、“删除工资”按钮,对已生成的工资进行修改、删除,操作成功后,将弹出消息框提示用户。工资设置窗体部分代码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click conn.ConnectionString = "Data Source=PC-201203271107SQLEXPRESS;Initial Catalog=职工管理系统; User ID=sa;Password=123456" Dim msg As Integer '设置基本工资 If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then msg = MsgBox("工资信息不能为空!", 0 + 48 + 0, "提示") TextBox1.Focus() Else conn.Open() mycmd.Connection = conn mycmd.CommandText = "INSERT INTO 职工管理系统.dbo.Pos-Sal(position,basicsalary,absentcut,overadd) VALUES('" & ComboBox1.Text & "', '" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')" mycmd.ExecuteReader() conn.Close() msg = MsgBox("工资信息设置成功!", 0 + 48 + 0, "提示") TextBox1.Focus() TextBox2.Clear() TextBox3.Clear() TextBox1.Clear() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox1.Focus()End Sub '向ComboBox1中添加职位 Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New SqlConnection() conn.ConnectionString = "Data Source=PC-201203271107SQLEXPRESS;Initial Catalog=职工管理系统; User ID=sa;Password=123456" Dim querystring As String = "SELECT DISTINCT position FROM 职工管理系统.dbo.User" Dim com As New SqlCommand(querystring, conn) conn.Open() Dim reader As SqlDataReader = com.ExecuteReader() While reader.Read() ComboBox1.Items.Add(reader(0) End While conn.Close()End Sub '删除工资信息 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click conn.ConnectionString = "Data Source=PC-201203271107SQLEXPRESS;Initial Catalog=职工管理系统; User ID=sa;Password=123456" conn.Open() mycmd.Connection = conn mycmd.CommandText = "DELETE FROM 职工管理系统.dbo.Pos-Sal WHERE position = '" & ComboBox1.Text & "'" mycmd.ExecuteReader() Dim msg As Integer conn.Close() msg = MsgBox("工资信息删除成功!", 0 + 48 + 0, "提示") TextBox1.Focus() TextBox2.Clear() TextBox3.Clear() TextBox1.Clear()End Sub修改工资信息 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click conn.C
展开阅读全文