学生信息管理系统的论文 毕业设计用vb

学生信息管理系统的 论文 政研论文下载论文大学下载论文大学下载关于长拳的论文浙大论文封面下载 毕业设计用vb 大学毕业设计论文 班主任学生信息管理系统 学 校 塔里木大学 姓 名 严开亮 学 号 5011205020 学 科 专 业 计算机科学与技术 指 导 教 师 司春景 日期: 2009 年 3 月 学生信息管理系统说明书 前 言 学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件学生信息，这种管理方式存在着许多缺点,如:效率低、保密性差,随着时间的推移,将产生大量的文件和数据,这对于查找、更新和维护带来和很大的困难。随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。 长时间以来，学校的学生信息管理基本上都是靠手工进行,随着大学扩招,学生管理各个方面的工作给老师和学校工作人员形成了一定的压力，有关有的学校不得不靠增加人力,物力来进行学生信息管理.但手工管理具有效率底,出错率高.所以学生信息管理系统的开发还是有一定的意义的。 因此开发适合学校需要的学生管理信息系统，通过这样的系统，可以做到信息的规范管理、科学统计和快速查询，并减少管理方面的工作量。 作为计算机应用的一部分,使用计算机对学生学生信息信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析访客管理的不足，创建了一套行之有效的计算机管理学生的 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 。文章介绍了访客管理信息系统的系统分析部分，包括可行性分析、业务流程分析等;系统设计部分主要介绍了系统功能设计和数据库设计及代码设计;系统实现部分说明了几个主要模块的算法， 本系统面友好，操作简单，比较实用。本章我们将以一个学生信息管理系统为例子，来讲述如何建立一个学生信息管理系统。因为Visual Basic6.0具有强大的数据库管理功能，我们选定Visual Basic6.0实现学生管理信息系统中的各项功能。 摘 要 学生信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 本系统主要完成对学生信息的管理，包括添加、修改、删除，查询，打印信息以用户管理等六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。 系统的核心是添加、修改和删除三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成添加或删除操作时系统会自动地完成学生信息的修改。查询功能也是系统的核心之一，在系统中主要根据学生姓名和学号进行查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。 系统采用Microsoft Office中的Access 2000来设计数据库，并使用当前优秀的开发工具—VB 6.0 ，它有着最为灵活的数据库结构，对数据库应用有着良好的支持。 论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。 关键字:控件、窗体、数据库，visual basic语言，学生信息 1 系统分析 1.1开发背景 现在我国的学生信息管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我希望可以在这方面有所贡献。归纳起来，好处大约有以下几点:可以存储学生的基本信息以及历届的学生信息，安全、高效;只需一到二名信息录入员即可操作系统，节省大量人力;可以迅速查到所需信息。 1.2需求分析 21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域。使原本的旧的管理方法 越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。我所开发的这个系统所采用的是当前较为流行的编程软件VISUAL BASIC 6.0作为实现语言，以数据库Microsoft SQL Server2000作为系统的后台操作，其功能在系统内部有源代码直接完成。我们只需按系统要求输入即可操作。 伴随社会的高速发展，全国各高校的学生数量一直在增加，在这样的形式下，必须要求学校有一种高效有序的方法来管理学生的信息。通过调查,要求系统需要有以下功能: (1)由于操作人员的计算机知识普遍较差，要求有良好的人机界面; (2)由于该系统的使用对象多，要求有较好的权限管理; (3)原始数据修改简单方便，支持多条件修改; (4)方便的数据查询，支持多条件查询; 5)在相应的权限下，删除数据方便简单，数据稳定性好; ( (6)数据计算自动完成，尽量减少人工干预。 1.2.2需求信息的整理 想要把收集到的信息(如文件、图表、票据、笔记等)转化为下一设计阶段可用形式的信息，必须对需求信息做分析整理工作。 1业务流程分析 业务流程分析的目的是获得业务流程及业务与数据联系的形式描述。一般采用数据流分析法，分析结果以数据流图(DFD)表示。是一个数据流图的示意图。图中有向线表示数据流，圆圈中写上处理的名称、圆圈代表一个处理、带有名字的双线段表示存储的信息。以本系统中的学生基本信息管理为例，基本信息管理的数据流图如图1-1所示。 原始输入 筛选 输出 输入处理 查找分析 输出处理 数据库 图1-1数据流图示意图 下面是学生信息管理数据库系统设计的业务流程分析，原始的数据是学生的信息，系统要求统计学生的信息，并根据信息统计的结果由奖学金评委评选出获得奖学金的学生，其数据流图如图1-2所示。 信息清单 统计处理 报表清单 输入处理 产生报表 输出处理 获 奖 清存储文件 单 图1-2学生信息统计的数据流图 1.3 E-R图设计 2 开发工具的选择 本系统的设计是在Windows XP操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，本系统选用的数据库语言介绍如下。 2.1选择VB作为开发工具 Visual Basic具有以下特点: (1)可视化编程: 用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界 面的效果不满意，还要回到程序中修改有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性封装起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 (2)面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。 2.2选择ACCESS2000开发数据库 3 数据库设计 3.1数据库的概念 数据库处理在信息系统的研究中一直是非常重要的主题，然而，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。数据库技术能使Internet应用超越具有早期应用特点的简单的发布。同时，Internet技术提供了一种向用户发布数据库内容的标准化的访问方法。这些技术没有脱离经典数据库技术的要求。它们只是加重了数据库技术的重要性。 数据库的目的是帮助人们跟踪事务。经典的数据库应用涉及诸如订单、顾客、工作、员工、学生、电话之类的项，或其它数据量较大、需要密切关注的事务。最近，由于数据库的普及，数据库技术已经被应用到了新的领域，诸如用于Internet的数据库或用于公司内联网的数据库。数据库也被越来越多地应用于生成和维护多媒体应用程序上。 数据库在一个信息管理系统中占有非常重要的位置，数据库结构设计的好坏将直接对应用系统的效果产生影响。合理的数据库设计可以提高数据库存储效率，保证数据的完整和一致。同时合理的数据结构也将有利于程序的实现。 设计数据库系统时，应该首先了解用户的各个方面的需求，包括现有的以及将来可能增加的。 3.2 VB连接ACCESS2000数据库 用vb编写一个管理系统，首先要解决vb连接数据库的问题。先看看VB是如何与ACCESS2000数据库相连接的。 Sub ConnStr() '连接数据库 Set conn = CreateObject("ADODB.Connection") '建立数据库连接对像 DBpath = App.Path & "\" & "data.mdb" '设置数据的路径 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath ' 打开数据库连接 Set rs = CreateObject("ADODB.Recordset") '设置数据库对像 End Sub 上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。声明公用变量的方法如下: Public conn Public rs 上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。 3.3 数据库的实现 数据库设计与应用等程序设计是分离的，数据库的设计非常重要。有了数据库模型，数据库的设计就简单多了。在学生管理信息系统中，首先要创建学生管理信息系统数据库，然后在数据库中创建需要的表和字段。下面分别讲述本系统中数据库的设计。本例采用Access2000数据库系统来进行数据库的设计。 1、创建数据库 下面给出在Access2000中创建数据库的过程。 (1)运行Access2000应用程序，在“新建数据库”选项组中选取“空Access数据库”单选，按钮，然后单击“确定”按钮，如图4-1所示。 图4-1新建数据库 (2)在“文件新建数据库”窗口指定数据库的存放位置与数据库文件名称(本例为Stu.mdb)然后单击“创建”按钮，如图4-2所示。 图4-2指定数据库的存放位置与数据库文件名称 2、创建表 下面给出在Access 中创建表的过程。 (1)创建数据库后，进入主界面，单击“Stu:数据库”子窗口中的“设计”按钮。此时将会出出“表1:表”窗口，如图4-3所示。 图4-3设计表 (2)在表的设计窗口“表1:表”中，按表6建立数据字段，并指定字段的数据类型与相关属性。 表6学生基本信息表 字 段 名 称 数 据 类 型 学号 文本 姓名 文本 性别 文本 出生年月 日期/时间 民族 文本 家庭地址 文本 联系电话 文本 备注 文本 建立数据库字段并指定字段的数据类型与相关属性后，字段设计界面如图6所示。 (3)在StuId字段上单击鼠标右键，选择快捷菜单中的“主键”选项，让StuId字段成为主要索引字段，则StuId 字段前方将出邮一个钥匙图标，如图4-4所示。 图4-4字段设计 (4)字段设计完毕后，单击工具栏中的“保存”按钮，此时将会出现“另存为”对话框，在“表名称”文本框输入“StuInfo”，如图9所示，然后单击“确定”按钮将这个表保存。 5)回到“Stu:数据库”子窗口中，如果出现了StuInfo 这个表项目，就代( 表现在已经完成学生数据文件的设计，如图24所示。 图4-5保存表 重复步骤(1)—(5)，建立剩余的表，并指定表中各字段的数据类型与相关属性，这样就完成了数据库的设计。下面简单介绍各个表中的数据类型与相关的属性。 1.学生基本信息的查询、修改、删除。包括学生姓名、性别、学号、出生年月、所在宿舍、家庭住址、联系电话、担任职务等信息的查询。 学生基本信息 字段名称 类型 备注 姓名 文本 学号 数字 主键 性别 文本 出生年月 日期/时间 家庭住址 文本 宿舍 文本 电话 数字 职务 文本 备注 文本 2.成绩管理包括课程名称、课程类型(选修、必修)、是否挂科(如有挂科， 用红色字体表明成绩)。 成绩管理 字段名称 类型 备注 学号 数字 主键 姓名 文本 课程名称 文本 分数 数字 3(课程管理。课程界面上按课表的形式显示。需要管理的内容包括课程名称、 课程教师姓名、课时。 课程管理 字段名称 类型 备注 课程编号 数字 主键 课程名称 文本 教师名称 文本 课时 数字 3.学生平时受到奖励或处罚的“奖罚管理”。平时参加学校活动的可以加平时 分。平时违纪违规的要减平时成绩。这里面需要显示奖罚的时间、姓名、受到奖罚 的原因(对事情简单的描述)、应加减多少分。能对奖罚管理进行查询、删除、修改操作。 奖罚管理 字段名称 类型 备注 编号 数字 主键 时间 日期/时间 姓名 文本 奖罚原因 备注 加减分 文本 4.参加课外活动的课外活动管理。课外活动和比赛有区别。课外活动不涉及加分。需要管理的内容有活动举行的时间、地点、参与人的姓名、活动的简单介绍、活动的意义。能对课外活动管理进行查询、删除、修改操作。 课外活动管理 字段名称 类型 备注 编号 数字 主键 时间 日期/时间 地点 文本 参与人 文本 意义 备注 5、比赛管理。主要指学生参加学校、学院等举行的比赛。比赛管理涉及到加平时成绩，与奖罚管理挂钩。主要管理的内容有:比赛的时间、地点、参与人的姓名、比赛的简单介绍(比如取得了什么名次等)，应加多少分。能对比赛管理进行查询、删除、修改操作。 比赛管理 字段名称 类型 备注 编号 数字 主键 时间 日期/时间 地点 文本 参与人 文本 活动简介 备注 加分 数字 6.出勤 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 。是对学生平时上课、出操等信息的统计。每星期统计一次。 考勤管理 字段名称 类型 备注 编号 数字 主键 时间 日期/时间 姓名 文本 缺勤原因 备注 7.校规班规等规章 制度 关于办公室下班关闭电源制度矿山事故隐患举报和奖励制度制度下载人事管理制度doc盘点制度下载 的查询。把写好的规章制度显示在界面上。然后显示违反了此项规章制度后需要扣多少分。规章制度主要是与奖罚管理联系在一起。是作为对学生的惩罚情况的主要依据。 8.用户管理表。用户对学生成绩的查询、添加、删除等操作的权限。用户主要分为3类:班主任、管理员、普通用户。其中班主任拥有最高管理权限，可以对系统里面的信息进行任意的查询、添加、删除、修改操作。管理员只能由班主任设置班中的学生为管理员。管理员可以对信息进行查询、添加、删除、修改等操作。管理员只能对普通用户进行操作。普通用户只能查询信息，不能对信息进行添加、删除、修改等操作。 用户管理 字段名称 类型 备注 用户名 文本 主键 密码 文本 类别 文本 9.数据的存储管理。当对信息进行修改后，涉及到数据的保存问题。 4 系统总体规划 4.1系统功能 学生用户通过输入学生基本信息、课程基本信息等,由系统自行生成相应的数据 以供学生查询,另外人事处的管理用户还可以对这些基本信息进行更新和删除, 学校学生管理信息系统力求给用户方便快捷的途径去管理这些繁琐的数据。具体系统功能需求描述如下: (1) 学生基本信息管理 每年的大量新生入学，老生毕业都需要处理大量的学生信息。每个班主任可以在新学期开始之前，通过这一模块，实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、家庭电话、家庭住址、学号等信息。 (2)课程信息管理 通过本模块可以轻松的添加以及更新课程。可以根据课程名、课程号或者班级的选择，并对值的输入，可以看到数据集中显示符合条件的课程数据信息，而且可以根据修改要求进行数据的添加、删除、修改的操作。 该项管理对课程的属性进行了具体化的分类，而且根据条件的选择大大得提高了对各学期课程数据的记录操作，很大得帮助了教工们工作效率的提高。 (3)成绩信息管理 本模块实现了信息的输入、删除、更新。还能查询到平均信息以及单科最高最低信息以及个人信息。把信息统计这个繁琐的工作简单化，为学生信息的管理方面提高工作效率。 (4)其他信息管理系统 实现了学生的课外活动管理、比赛管理、奖罚管理、考勤记录的管理,可添加、删除学生的奖惩记录，通过查询学号可方便地查看到学生的课外活动管理、比赛管理、奖罚管理、考勤记录信息，可以大大提高工作效率。 (5)信息查询 通过输入学号便可以查询到这个学生的全部信息，包括姓名、性别、生日是、班号、入学日期、联系电话、奖惩日期、奖惩名称和成绩表都一目了然，很大的方便了教工们查询学生信息的过程。 4.2系统模块图 学生信息管理系统 基课成奖考比课 本程绩惩勤赛外 信管管管管管活 息 理 理 理 理 理 动 图5-1系统模块图 4.3 数据流程图 数据流图描绘系统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。因为数据流图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流图只需考虑系统必须完成的基本逻辑功能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。本系统主要是为了对教师业绩及其它相关信息等进行计算机管理。所以主要的数据源应是教师业绩有关方面的各种信息。它们在系统中流动和处理详细见下面的数据流程图。如图5-2,3。 学生信息 课程信息 成绩信息 信息管理 课外活动 比赛管理 奖惩管理 考勤管理 图5-2信息管理 用户管理 系统管理 密码管理 图5-3系统管理 5 系统具体实现 5.1登录模块实现 登录界面是用户最先看到的系统界面，所以直观上给用户的感觉很重要，所以做一个好的界面，提高软件的亲和力。 利用用户登录成功能实现对用户操作权限的限制。管理员和学生的权限不一样，管理员拥有系统的所有权限，学生只有查询修改个人信息和打印成绩单的权限。用户必须输入正确的密码才能进入下一界面，如果用户的密码输入错误，应用程序会提示错误信息。用户如果连续3次输入错误，应用程序会强迫使用者退出并终止应用程序的运行，下图所示是用户登录界面窗体。本管理系统登录界面如图6-1。 图6-1 登录界面 根据登录模块的功能，管理员和普通用户界面统一在一起。系统自动判断用户的要权限。管理员有所有的权限，普通用户只有检索和改本人的密码权。如果三次 登录都出错，系统自动退出。 数据库的连接采用的是ADO对象。连接代码如下: If CN.State Then CN.Close CN.ConnectionString = "Provider=jet4;Integrated Security=SSPI; Persist Security Info=False " CN.Open 引擎采用jet来连接access 2000数据库。详细代码实现请参考附录程序源代码。 5.2 系统管理实现 班主任学生管理信息系统主界面主要实现考勤管理、奖惩管理、成绩管理、学生信息管理和查询修改等功能。选择该界面中不同的身份按钮，就会进入实现不同权限的窗体。 登录系统后进入主界面如图6-2。在系统功能设计中，系统维护功能主要有添加用户，删除用户和管理员密码修改，如图6-3所示。 添加用户:在用户名称中输入要添加用户的名，原始密码为12345，可以修改，之后点添加。完毕。如果系统已经添加的该用户，系统自动提示，重新添加。 删除用户:选中要删除的用户，直接点删除、系统有提示是否真的删除，点是，就删除了此用户。 图 6-2管理系统界面 图6-3 用户管理 用户密码修改是指普通和管理员用户的密码修改。如图6-4。 图6-4 用户密码修改 修改密码:输入原始登录密码，在“新密码“中输入新密码，在“新密码核实”中再输入一次新密码，单击“修改”，系统提示“操作成功～”。这样下一次再进入本系统时本用户的密码就改为新密码。代码实现请参考附录程序源代码。 5.3 信息管理 信息输入中主要是对所有数据信息的添加、修改、删除的功能。也是本次开发的重点。其中学生信息、课程参数信息、成绩、其他，也包括全部字典信息可以在下拉列表可以选择。界面如图6-5。 图6-5 学生信息 各按钮的功能: <<:移动到第一条记录。 <:移动到上一条记录。 >:移动到下一条记录。 >>:移动最后一条记录。 添加:是添加一新的记录。 浏览:是查看全的记录。 删除:是删除当前的记录。 保存:是在添加和修改记录后，保存记录。 修改:移动到要修改的记录，点修改，修改完后，点保存后就修改完毕。 所有的信息表中的序号及各种编号一定要统一、规范。这样有利于信息检索。代码实现请参考附录程序源代码。 5.4 查询管理实现 查询打印模块包括成绩信息、评定结果信查询打印，查询以成绩信息为例。在菜单中可以选择信息查询，在检索名称中输入要检索的字段。在后面下拉框中选择条件。再输入关键字，点检索按钮。在查询完后，可以输出Excel报表。 在选择条件包括=，<,>,<=,>=,like，其中like是用于模糊检索。 检索完之后，点Excel报表输出，系统自动输出成报表。编辑格式以后就可以打印。 代码实现请参考附录程序源代码。其他功能请参考源程序。 图6-6规章查看 图6-7 查询管理 5.5系统关于与帮助 系统关于如下图6-8 图6-8 关于 6 软件测试 7 总结 回顾该系统从选题，到调研、需求分析、设计、编码实现、测试，论文的撰写，这系列连贯的过程，感想颇多，收获也很多。 1(设计开发一个软件，首先要了解所涉及到行业的现状，一定要想办法进行行业调研，从不同途径获取该行业的专业知识。合理安排系统设计开发时间，进行实际开发会发现需求分析与系统设计占主要的时间，如果前面的工作做好了，编码实现占用的时间很短。所以我们要借助软件工程的思想---对软件开发过程进行控制。 2. 在开发一个系统时，前期的分析准备工作非常的重要。对于系统的需求要明确，这样才能做到有的放矢。特别是对于系统中数据的存储和重要算法的设计，设计的不好会出现大量的冗余，不仅浪费存储空间，还影响查询效率。例如:系统中图的存储设计和求最短路径算法设计。 3.在设计的初期，对一个功能模块的设计，要想出两种或两种以上方案，这样可以进行比较，从而获得更佳的设计方案，设计开发过程中一定要吸取经验教训，避免返工。尤其是一些重要算法或功能。在对具体实现功能模块进行编程时，要养成良好的加注释的习惯，这样的话不仅能理清思路，而且可以为以后的调试程序带来很大的方便。 4. 独立思考的同时，要虚心向别人请教，可以达到事半功倍的效果。在具体编 程实现系统功能的过程中，我遇到了不少的问题，我曾通过不同渠道向老师、同学、上相关网站、到论坛寻求答案，收到了很好的效果。 通过独立完成学生信息管理系统的分析设计开发后，发现自己在进行软件开发方面提高不少，同时积极利用所学到的新技术用于自己的设计开发过程。由于本人是初次开发系统，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。如:用户界面不够美观，出错处理不够等多方面问题。在本次开发过程由于多方面的限制，系统还有不足之处。 尽管本系统存在着很多不足，但其实现了最重要的功能就是可以对学生信息进行管理。这个对于一个学生信息系统是十分重要的。该系统是根据班级管理的特点制作的信息系统，可以给班主任管理班级提供方便。通过开发这个系统，我掌握了开发系统的基本过程，了解了VB语言的基本知识，巩固了我对Visual Basic的学习，但在这次毕业设计中的最大收获并不是这些，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。 致 谢 在论文即将完成之际，本人在此向所有关心、帮助我的老师和同学们致以最真诚的感谢。 在本次毕业设计中，我从指导老师——司春景老师身上学到了很多东西。她认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢她耐心的辅导。在撰写论文阶段，司春景老师审阅我的论文，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。 另外，我还要感谢在这几年来对我有所教导的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。 参考文献 [1] 袭沛曾，杨志强. Visual Basic 程序设计教程(6.0版).高等教育出版社.2000年 [2] 肖建，薛凤武，吴静.Visual Basic 6.0 基础教程.中国电力出版社.2002年 [3] 张大年，廖智勇，刘检锋.Visual Basic数据库应用开发与实例.清华大学出版社. 2002年 [4] 杨宗志.Visual Basic数据库程序设计.清华大学出版社.2001年 [5] 陈豫龙， 何旭洪. Visual Basic 6.0数据库开发实例导航.人民邮电出版社.2002年 [6] Visual Basic 6.0 时尚编程百例.机械工业出版社.2001年 [7] 飞思科技产品研发中心.Access 2000数据处理技术.电子工业出版社.2001年 [8] 谭浩强，王晓敏，李海波，杨红兵.Visual Basic 程序设计.中国铁道出版社. [9] 张勇 Visual Basic 课程设计案例精编.中国水利水电出版社. [10] 张海藩，牟永敏.面向对象程序设计实用教程.清华大学出版社.2002.10,11 [11] Ronaad J.Norman,Obiect-Oriented Systems and Design.1996.20,21 [12] 邓良松，刘海岩，陆丽娜.软件工程.西安电子科技大学出版社.2004.71,78 [13] 董士海.计算机软件工程环境与软件工程.北京:北京科学出版社.1990.45,48 附录: 程序源代码 源代码: Public miCount As Integer Private Sub cmdCancel_Click() ''退出程序 End End Sub Private Sub cmdOK_Click() ''进入..确定 'On Error GoTo Err Dim txtSql As String UserName = "" If Trim(txtUserName.Text) = "" Then ''判断用户名是否为空 MsgBox "请输入帐号～", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Exit Sub End If If Trim(txtPassword.Text) = "" Then '判断密码是否为空 MsgBox "请输入密码～", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus Exit Sub End If ''判断是否有这个用户 txtSql = "select * from 用户信息表 where 用户名称= '" & txtUserName.Text & "'" If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then ''如果没有这个用户 MsgBox "没有这个帐号，请重新输入帐号!", vbOKOnly + vbExclamation, "警告" txtUserName.Text = "" txtPassword.Text = "" txtUserName.SetFocus Else ''如果有用户 If Trim(rs.Fields(1)) = Trim(txtPassword.Text) Then ''判断权限 UserPrivs = "" If Trim(rs.Fields(2)) = "管理员" Then ''管理员权限 IsUserMode = 1 ElseIf Trim(rs.Fields(2)) = "操作员" Then ''普通用户权限 IsUserMode = 2 Else ''无权 IsUserMode = 0 MsgBox "你没有权限!", vbExclamation, "警告" End End If UserPrivs = Trim(rs.Fields(2)) UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show Exit Sub Else MsgBox "输入密码不正确，请重新输入～", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If rs.Close miCount = miCount + 1 If miCount = 3 Then ''三次错误,自动退出程序 End End If Exit Sub Err: MsgBox Err.Description & "登录出错,请找管理员!", vbExclamation Ok = False End End Sub Private Sub Form_Activate() txtUserName.SetFocus End Sub Private Sub Form_Load() On Error GoTo Err ''连数据库代码 If CN.State Then CN.Close CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Persist Security Info=False" CN.Open miCount = 0 Ok = False txtUserName.Text = GetSetting(App.Title, "Settings", "user_name", "") Label2.MouseIcon = cmdOK.MouseIcon Exit Sub Err: MsgBox Err.Description, , "数据库连接错误" End End Sub Private Sub Label1_Click() Form5.Show 1 End Sub Private Sub Label2_Click() End End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If End Sub Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus End If End Sub 主界面图及代码: Private Sub DatabaseHf_Click() frmHF.Show 1 End Sub Private Sub Exit_Click() End End Sub Private Sub FindStudent_Click() Form2.Show 1 End Sub Private Sub Findxg_Click() Form8.Show 1 End Sub Private Sub Form_Load() PrivsSeting ''加载权限设置 End Sub Private Sub Form_Resize() On Error GoTo Err '''改变控件位置代码 Picture1.Top = 0 Picture1.Left = 0 Picture1.Height = Me.ScaleHeight - StatusBar1.Height Picture1.Width = Me.ScaleWidth StatusBar1.Panels(1).Text = "操作员:" & UserName Label9.Left = (Picture1.ScaleWidth - Label9.Width) / 2 Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2 Label1.Top = Label9.Top + 50 Label1.Left = Label9.Left + 50 ''加载背景代码 Image1.Picture = LoadPicture(App.Path & "\1.jpg") Picture1.Refresh Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.Height Err: End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub HelpFiles_Click() '''帮助文件 On Error GoTo Err Mainfrm.StatusBar1.Panels(2).Text = "帮助文件" Dim strPath As String strPath = App.Path + "\系统说明.doc" ShellExecute hWnd, "open", mFso.GetFileName(strPath), lpParameters, mFso.GetParentFolderName(strPath), 5 Exit Sub Err: MsgBox Err.Description End Sub Private Sub Infocj_Click() strTableName = "成绩信息" Form6.Show 1 End Sub Private Sub InfoCqjl_Click() strTableName = "考勤信息" Form7.Show 1 End Sub Private Sub InfoJf_Click() strTableName = "奖罚信息" Form7.Show 1 End Sub Private Sub InfoKc_Click() strTableName = "课程信息" Form1.Show 1 End Sub Private Sub InfoKwhd_Click() strTableName = "课外活动信息" Form7.Show 1 End Sub Private Sub infoStudent_Click() strTableName = "学生基本信息" Form1.Show 1 End Sub Private Sub InofBs_Click() strTableName = "比赛信息" Form7.Show 1 End Sub Private Sub Sjbf_Click() frmDatabase.Show 1 End Sub Private Sub SysAbout_Click() ''关于 frmAbout.Show 1 End Sub Private Sub sysManager_Click() Form3.Show 1 End Sub Private Sub Userpasword_Click() ''用户密码 Form4.Show 1 End Sub Public Sub PrivsSeting() '权限设置 If IsUserMode = 1 Then ''管理员 ElseIf IsUserMode = 2 Then sysManager.Visible = False Infomanage.Visible = False End If End Sub 用户管理代码 Private Sub cmdExit_Click() Unload Me End Sub Private Sub Command2_Click() ''添加用户 On Error GoTo Err If Trim(Text8.Text) <> "" And Trim(Text9.Text) <> "" And Trim(Combo1.Text) <> "" Then Dim rs1 As New ADODB.Recordset If rs1.State Then rs1.Close rs1.Open "select count(*) from user_Form where user_Id='" & Trim(Text8.Text) & "'", Cn, adOpenStatic, adLockOptimistic If rs1.Fields(0) > 0 Then MsgBox "用户已经存在! 请改user_Id!", , "系统提示" Text8.Text = "" Exit Sub End If If rs1.State Then rs1.Close rs1.Open "select * from user_Form", Cn, adOpenStatic, adLockOptimistic rs1.AddNew rs1.Fields(0).Value = Trim(Text8.Text) rs1.Fields(1).Value = Trim(Text9.Text) rs1.Fields(2).Value = Date rs1.Fields(3).Value = Trim(Combo1.Text) rs1.Update Combo5.AddItem Trim(Text8.Text) MsgBox "用户添加成功!,初始密码为" & Text9.Text, , "系统提示" Text8.Text = "" End If Exit Sub Err: MsgBox Err.Description End Sub Private Sub Command3_Click() ''删除用户代码 If Trim(Combo5.Text) = UserName Then MsgBox "不能删除正在操作的用户!" Exit Sub End If Cn.Execute "delete from user_Form where user_Id='" & Trim(Combo5.Text) & "'" Combo5.RemoveItem (Combo5.ListIndex) MsgBox "操作已成功!", , "提示" End Sub Private Sub Form_Load() ''初始化代码 On Error GoTo Err Text8.Text = "" Dim rs1 As New ADODB.Recordset rs1.Open "select * from user_Form", Cn, adOpenStatic, adLockOptimistic Combo5.Clear While Not rs1.EOF If Not IsNull(rs1.Fields(0)) Then Combo5.AddItem Trim(rs1.Fields(0)) rs1.MoveNext Wend Err: End Sub 查询界面及源代码 Dim rs2 As New ADODB.Recordset '''记录集,检索用的 Private Sub cmdExcel_Click() ''excel输出 On Error GoTo Err If MSHFlexGrid1.TextMatrix(0, 0) = "" Then Exit Sub Dim i As Integer Dim j As Integer Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets(1) '设置活动工作表 For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1 xlSheet.Cells(i + 1, j + 1) = Trim(MSHFlexGrid1.TextMatrix(i, j)) Next j Next i xlApp.Visible = True Exit Sub Err: MsgBox Err.Description, , "错误" xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdLook_Click() ''查询代码 If Trim(Combo2.Text) <> "" And Trim(Combo3.Text) <> "" And Trim(Combo4.Text) <> "" And Trim(Text1.Text) <> "" Then Dim strsql As String strsql = "select * from " & Trim(Combo2.Text) & " where " & Trim(Combo3.Text) & " " & Trim(Combo4.Text) & "'" If Combo4.Text = "like" Then strsql = strsql & "%" & Trim(Text1.Text) & "%'" Else strsql = strsql & Trim(Text1.Text) & "'" End If If rs2.State Then rs2.Close rs2.Open strsql, CN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = rs2 Else MsgBox "请选择或输入数据!", , "系统提示" End If End Sub Private Sub Combo2_Click() If rs2.State Then rs2.Close rs2.Open "select * from " & Trim(Combo2.Text), CN, adOpenStatic, adLockOptimistic Dim i As Integer Combo3.Clear For i = 0 To rs2.Fields.Count - 1 Combo3.AddItem rs2.Fields(i).Name Next i Combo3.Text = Combo3.List(0) Set MSHFlexGrid1.DataSource = rs2 End Sub Private Sub Form_Load() Me.Caption = "综合检索" 'Combo2.Text = strTableName Mainfrm.StatusBar1.Panels(2).Text = strTableName & "检索" End Sub 下面是余秋雨经典励志语录,欢迎阅读。 不 需要的朋友可以编辑删除，， 关于年龄 1.一个横贯终生的品德基本上都是在青年时代形成的,可惜在那个至关重要的时代,青年人受到的正面的鼓动永远是为成功而搏斗,而一般所谓的成功总是带有排他性、自私性的印记。结果,脸颊上还没有皱纹的他们,却在品德上挖下了一个个看不见的黑洞。 2.我不赞成太多地歌颂青年,而坚持认为那是一个充满陷阱的年代。陷阱一生都会遇到,但青年时代的陷阱最多、最大、最险。 3.历史上也有一些深刻的哲人,以歌颂青年来弘扬社会的生命力。但这里显然横亘着一种二律背反,越是坚固的对象越需要鼓动青年去对付,但他们恰恰因为年轻,无法与真正的坚持相斡旋。 4.青年时代的正常状态是什么,我想一切还是从真诚的谦虚开始。青年人应该懂得,在我们出生之前,这个世界已经精精彩彩、复复杂杂地存在过无数年,我们什么也不懂,能够站正脚下的一角建设一点什么,已是万幸。 5.中年是对青年的延伸,又是对青年的告别。这种告别不仅仅是一系列观念的变异,而是一个终于自立的成熟者对于能够随心所欲处置各种问题的自信。 6.中年人的当家体验是最后一次精神断奶。你突然感觉到终于摆脱了父母、兄长、老师的某种依赖,而这种依赖在青年时代总是依稀犹在的;对于领导和组织,似乎更贴近了,却又显示出自己的独立存在,你成了社会结构网络中不可缺少的一个点;因此你在热闹中品尝了有生以来真正的孤立无援,空前的脆弱和空前的强大集于一身。 7.中年人一旦有了当家体验,就会明白教科书式的人生教条十分可笑。当家管着这么一个大摊子,每个角落每时每刻都在涌现着新问题,除了敏锐而又细致地体察实际情况,实事求是地解开每一个症结,简直没有高谈阔论、把玩概念的余地。这时人生变得很空灵,除了隐隐然几条人生大原则,再也记不得更多的条令。 8.中年人的坚守,已从观点上升到人格,而人格难以言表,他们变得似乎已经没有顶在脑门上的观点。他们知道,只要坚守着自身的人格原则,很多看似对立的观点都可相容相依,一一点化成合理的存在。于是,在中年人眼前,大批的对峙消解了,早年的对手找不到了,昨天的敌人也没有太多仇恨了,更多的是把老老少少各色人等照顾在自己身边。请不要小看这“照顾”二字,中年人的魅力至少有一半与此相关。 9.中年人最可怕的是失去方寸。这比青年人和老年人的失态有更大的危害。中年人失去方寸的主要特征是忘记自己的年龄。一会儿要别人像对待青年那样关爱自己,一会儿又要别人像对待老人那样尊敬自己,他永远活在中年之外的两端,偏偏不肯在自己的年龄里落脚。 10、某个时期,某个社会,即使所有的青年人和老年人都中魔一般荒唐了,只要中年人不荒唐,事情就坏不到哪里去。最怕的是中年人的荒唐,而中年人最大的荒唐,就是忘记了自己是中年。 11、中年太实际、太繁忙,在整体上算不得诗,想来难理解;青年时代常常被诗化,但青年时代的诗太多激情而缺少意境,按我的标准,缺少意境就算不得好诗。 12、一般情况下,老年岁月总是比较悠闲,总是能够没有功利而重新面对自然,总是漫步在回忆的原野,而这一切,都是诗和文学的特质所在。老年人可能不会写诗或已经不再写诗,但他们却以诗的方式生存着。看街市忙碌,看后辈来去,看庭花凋零,看春草又绿,而思绪则时断时续,时喜时悲,时真时幻。 13、老人的年龄也有积极的缓释功能,为中青年的社会减轻负担。不负责任的中青年用不正当的宠溺败坏了老人的年龄,但老人中毕竟还有冷静的智者,默默固守着年岁给予的淡然的尊严。 14、只有到了老年,沉重的人生使命已经卸除,生活的甘苦也已了然,万丈红尘已移到远处,宁静下来了的周际环境和逐渐放慢了的生命节奏构成了一种总结性、归纳性的轻微和声,诗的意境出现了。 15、中青年的世界再强悍,也经常需要一些苍老的手来救助。平时不容易见到,一旦有事则及时伸出,救助过后又立即消失,神龙见首不见尾。这是一种早已退出社会主体的隐性文化和柔性文化,隐柔中沉积着岁月的硬度,能使后人一时启悟,如与天人对晤。老年的魅力,理应在这样的高位上偶尔显露。不要驱使,不要强求,不要哄抬,只让它们成为人生的写意笔墨,似淡似浓,似有似无。 关于人生 1.我们对这个世界,知道得还实在太少。无数的未知包围着我们,才使人生保留迸发的乐趣。当哪一天,世界上的一切都能明确解释了,这个世界也就变得十分无聊。人生,就会成为一种简单的轨迹,一种沉闷的重复。 2.人有多种活法,活着的文明等级也不相同,住在五层楼上的人完全不必去批评三层楼的低下,何况你是否在五层楼还缺少科学论证。 3.人生的道路也就是从出生地出发,越走越远。一出生便是自己,由此开始的人生就是要让自己与种种异己的一切打交道。打交道的结果可能丧失自己,也可能在一个更高的层面上把自己找回。 4.不管你今后如何重要,总会有一天从热闹中逃亡,孤舟单骑,只想与高山流水对晤。走得远了,也许会遇到一个人,像樵夫,像路人,出现在你与高山流水之间,短短几句话,使你大惊失色,引为终生莫逆。但是,天道容不下如此至善至美,你注定会失去他,同时也就失去了你的大半生命。 5.人生的过程虽然会受到社会和时代的很大影响,但贯穿首尾的基本线索总离不开自己的个体生命。个体生命的完整性、连贯性会构成一种巨大的力量,使人生的任何一个小点都指点着整体价值。 6.如果有一天,我们突然发现,投身再大的事业也不如把自己的人生当做一个事业,聆听再好的故事也不如把自己的人生当做一个故事,我们一定会动手动笔,做一点有意思的事情。 7.杰出之所以杰出,是因为罕见,我们把自己连接于罕见,岂不冒险?既然大家都很普通,那么就不要鄙视世俗岁月、庸常岁序。不孤注一掷,不赌咒发誓,不祈求奇迹,不想入非非,只是平缓而负责地一天天走下去,走在记忆和向往的双向路途上,这样,平常中也就出现了滋味,出现了境界。 8.就人生而言,应平衡于山、水之间。水边给人喜悦,山地给人安慰。水边让我们感知世界无常,山地让我们领悟天地恒昌。水边让我们享受脱离长辈怀抱的远行刺激,山地让我们体验回归祖先居所的悠悠厚味。 9.第一根白发人人都会遇到,谁也无法讳避,因此这个悲剧似小实大,简直是天网恢恢,疏而不漏,而决斗、毒药和暗杀只是偶发性事件,这种偶发性事件能快速置人于死地,但第一根白发却把生命的起点和终点连成了一条绵长的逻辑线,人生的任何一段都与它相连。 10、谁也不要躲避和掩盖一些最质朴、最自然的人生课题如年龄问题。再高的职位,再多的财富,再大灾难,比之于韶华流逝、岁月沧桑、长幼对视、生死交错,都成了皮相。北雁长鸣,年迈的帝王和年迈的乞丐一起都听到了;寒山扫墓,长辈的泪滴和晚辈的泪滴却有不同的重量。 11、人格尊严的表现不仅仅是强硬。强硬只是人格的外层警卫。到了内层,人格的天地是清风明月,柔枝涟漪,细步款款,浅笑连连。 12、黄山谷说过,“人胸中久不用古今浇灌,则尘俗生其间,照镜觉面目可憎,对人亦语言无味。”这就是平庸的写照。如此好事,如果等到成年后再来匆匆弥补就有点可惜了,最好在青年时就进入。早一天,就多一份人生的精彩;迟一天,就多一天平庸的困扰。 13、再高的职位,再多的财富,再大灾难,比之于韶华流逝、岁月沧桑、长幼对视、生死交错,都成了皮相。北雁长鸣,年迈的帝王和年迈的乞丐一起都听到了;寒山扫墓,长辈的泪滴和晚辈的泪滴却有不同的重量。 14、人生不要光做加法。在人际交往上,经常减肥、排毒,才会轻轻松松地走以后的路。 15、几乎每一个改革探索者都遇到过嫉妒的侵扰,更不要说其中的成功者了。人们很容易对高出自己视线的一切存在投去不信任,在别人快速成功的背后寻找投机取巧的秘密。 关于文化 1.真正的文化精英是存在的,而且对国家社会非常重要。但是这些年来,由于伪精英的架势实在是太让人恶心了,结果连真的精英的名声也败坏了。真精英总是着眼于责任,伪精英总是忙着装扮;真精英总是努力地与民众沟通,伪精英总是努力地与民众划分,这就是最根本的区别。 2.凡是文化程度不高的群落,总是会对自己不懂的文化话语心存敬畏,正是这种敬畏心理被一些投机文人利用了。 3.在文化上,无效必然导致无聊,无聊又必然引来无耻。但是,即使到了这种“三无”的低谷,也不必过于沮丧。因为只有低谷,才能构成对新高峰的向往。 4.当今天下百业,文化最大。当今天下百行,文化届最小。那么,岂能再让一个日渐干涸的小池塘,担任江河湖海的形象代表? 5.古代绘画中无论是萧瑟的荒江、丛山中的苦旅,还是春光中的飞鸟、危崖上的雏鹰,只要是传世佳品,都会包藏着深厚的人生意识。贝多芬的交响曲,都是人生交响曲。 6.善良,这是一个最单纯的词汇,又是一个最复杂的词汇。它浅显到人人都能领会,又深奥到无人能够定义。它与人终生相伴,但人们却很少琢磨它、追问它。 7.社会理性使命已悄悄抽绎,秀丽山水间散落着才子、隐士,埋藏着身前的孤傲和身后的空名。天大的才华和郁愤,最后都化作供后人游玩的景点。 8.阅读的最大理由是想摆脱平庸,早一天就多一份人生的精彩;迟一天就多一天平庸的困扰。 9.为什么那么多中国民众突然对韩国的电视剧,对超女表现出那么单纯的投入,很重要的原因是,韩国艺术家不知道中国评论家,而超女根本不在乎评论家的存在。 10、一切美丽都是和谐的,因此总是浑然天成,典雅含蓄。反之,一切丑陋都是狞厉的,因此总是耀武扬威,嚣张霸道。如果没有审美公德的佑护,美永远战胜不了丑。 11、什么季节观什么景,什么时令赏什么花,这才完整和自然。如果故意地大颠大倒,就会把两头的况味都损害了。“暖冬”和“寒春”都不是正常的天象。 12、文明的人类总是热衷于考古,就是想把压缩在泥土里的历史扒剔出来,舒展开来,窥探自己先辈的种种真相。那么,考古也就是回乡,也就是探家。探视地面上的家乡往往会有岁月的唏嘘、难言的失落,使无数游子欲往而退;探视地底下的家乡就没有那么多心理障碍了,整个儿洋溢着历史的诗情、想像的愉悦。 13、我们的历史太长、权谋太深、兵法太多、黑箱太大、内幕太厚、口舌太贪、眼光太杂、预计太险,因此,对一切都“构思过度”。 14、中华文化的三大优点,一、不喜远征。中国人不会举一国之力去攻打远方之国。二、不喜极端。儒家讲究“中庸之道”,会努力寻找一个中间点,规避极端三、不喜无序。中国一直处于集权统治的状态中,习惯所有的事务都在管理之中,中国失控的时候是很少见的。 关于爱情 很多女孩子觉得责任感不太重要,男人没有责任感反而给了女方一种权利。其实对男人来说,还有什么比没有责任感可怕地呢?与没有责任感的男人谈恋爱,就像与朝雾和晚霞厮磨,再美好也没有着落。 爱情非常珍贵,不仅值得用斗争来保卫,而且即使付出生命的代价也值得。 其实,未经艰苦寻找的草率结合,对她也是不尊重。她和你一样,都有寻求深刻爱情的权利。 每一男女都处在自转之中,当一个男人最散发魅力的一面转向了一位女人,而这女人最美好的一面也刚好朝向了这个男人,那么爱情就挡也挡不住了。当然不是每个人都如此幸运,自转的方向和速度,相对于那个有可能出现或已经错过的异性,总要有偏差,所以老有人找不到自己的爱情。 2、能够慢慢培养的不是爱情,而是习惯。能够随着时间得到的,不是感情而是感动。所以爱是一瞬间的礼物,有就有,没有就没有。但反过来说,爱和婚姻实际并不是一回事情,并不是所有的爱情都要结婚的,也不是所有婚姻都有爱情的。 6、爱情里,总有一个主角和一个配角,累的永远是主角,伤的永远是配角;有时,爱也是种伤害,残忍的人,选择伤害别人,善良的人,选择伤害自己;人生就是一种承受,需要学会支撑。支撑事业,支撑家庭,甚至支撑起整个社会,有支撑就一定会有承受,支撑起多少重量,就要承受多大压力。 7、假如你想要一件东西,就放它走。它若能回来找你,就永远属于你;它若不回来,那根本就不是你的。爱情也是如此。 8、为什么把择定终身的 职责 岗位职责下载项目部各岗位职责下载项目部各岗位职责下载建筑公司岗位职责下载社工督导职责.docx ,交付给半懂不懂的年岁;为什么把成熟的眼光,延误地出现在早已收获过的荒原? 9、说了那么多旳——“如若你不在,我等待你归来。”也比不过你一句——“我不会等,我去找你!” 关于友情 1.常听人说,人世间最纯净的友情只存在于孩童时代。这是一句极其悲凉的话,居然有那么多人赞成,人生之孤独和艰难,可想而知。我并不赞成这句话。孩童时代的友情只是愉快的 嘻戏,成年人靠着回忆追加给它的东西很不真实。友情的真正意义产生于成年之后,它不可能在尚未获得意义之时便抵达最佳状态。 2.很多人都是在某次友情感受的突变中,猛然发现自己长大的。仿佛是哪一天的中午或傍晚,一位要好同学遇到的困难使你感到了一种不可推卸的责任,你放慢脚步忧思起来,开始懂得人生的重量。就在这一刻,你突然长大。 3.在人生的诸多荒诞中,首当其冲的便是友情的错位。友情的错位,来源于我们自身的混乱。 4.置身于同一个职业难道是友情的基础?当然不是。如果偶尔有之,也不能本末倒置。情感岂能依附于事功,友谊岂能从属于谋生,朋友岂能局限于同僚。 5.在家靠父母,出外靠朋友。这种说法既表明了朋友的重要,又表明了朋友的价值在于被依靠。但是,没有可靠的实用价值能不能成为朋友?一切帮助过你的人是不是都能算作朋友? 6.患难见知己,烈火炼真金。这又对友情提出了一种要求,盼望它在危难之际及时出现。能够出现当然很好,但友情不是应急的储备,朋友更不应该被故意地考验。 7.真正的友情不依靠什么。不依靠事业、祸福和身份,不依靠经历、方位和处境,它在本性上拒绝功利,拒绝归属,拒绝契约,它是独立人格之间的互相呼应和确认。它使人们独而不孤,互相解读自己存在的意义。因此所谓朋友也只不过是互相使对方活得更加自在的那些人。 8.真正的友情都应该具有“无所求” 的性质,一旦有所求,“求”也就成了目的,友情却转化为一种外在的装点。我认为,世间的友情至少有一半是被有所求败坏的,即便所求的内容乍一看并不是坏东西;让友情分担忧愁,让友情推进工作……,友情成了忙忙碌碌的工具,那它自身又是什么呢?应该为友情卸除重担,也让朋友们轻松起来。朋友就是朋友,除此之外,无所求。 9.无所求的朋友最难得,不妨闭眼一试,把有所求的朋友一一删去,最后还剩几个? 10.真正的友情因为不企求什么不依靠什么,总是既纯净又脆弱。世间的一切孤独者也都遭遇过友情,只是不知鉴别和维护,一一破碎了。 11.“君子之交谈如水”,这种高明的说法包藏着一种机智的无奈,可惜后来一直被并无机智、只剩无奈的人群所套用。怕一切许诺无法兑现,于是不作许诺;怕一切欢晤无法延续,于是不作欢晤,只把微笑点头维系于影影绰绰之间。有人还曾经借用神秘的东方美学来支持这种态 度,只可意会,不可言传;不着一字,尽得风流;羚羊挂角,无迹可寻……这样一来,友情也就成了一种水墨写意,若有若无。但是,事情到了这个地步,友情和相识还有什么区别? 12.强者捆扎友情,雅者淡化友情,俗者粘贴友情,都是为了防范友情的破碎,但看来看去,没有一个是好办法。原因可能在于,这些办法都过分依赖技术性手段,而技术性手段一旦进入感情领域,总没有好结果。 13.万不能把防范友情的破碎当成一个目的。该破碎的让它破碎,毫不足惜;虽然没有破碎却发现与自己生命的高贵内质有严重羝牾,也要做破碎化处理。罗丹说,什么是雕塑?那就是在石料上去掉那些不要的东西。我们自身的雕塑,也要用力凿掉那些异己的、却以朋友名义贴附着的杂质。不凿掉,就没有一个像模像样的自己。 14.该破碎的友情常被我们捆扎、粘合着,而不该破碎的友情却又常常被我们捏碎了。两种情况都是悲剧,但不该破碎的友情是那么珍贵,它居然被我们亲手捏碎,这对人类良知的打击几乎是致命的。 15.其实,世上哪有两片完全相同的树叶,即便这两片树叶贴得很紧?本有差异却没有差异准备,都把差异当作了背叛,夸张其词地要求对方纠正。这是一种双方的委屈,友情的回忆又使这种委屈增加了重量。负荷着这样的重量不可能再来纠正自己,双方都怒气冲天地走上了不归路。凡是重友情、讲正气的人都会产生这种怒气,而只有小人才是不会愤怒的一群,因此正人君子们一旦落入这种心理陷阱往往很难跳得出来。高贵的灵魂吞咽着说不出口的细小原因在陷阱里挣扎。 16.友情好像是一台魔力无边的红外线探测仪,能把一切隐藏的角落照个明明白白。不明不白也不要紧,理解就是一切,朋友总能理解,不理解还算朋友?但是,当误会无可避免地终于产生时,原先的不明不白全都成了疑点,这对被疑的一方而言无异是冤案加身;申诉无门,他的表现一定异常,异常的表现只能引起更大的怀疑,互相的友情立即变得难于收拾。 17.友情本是超越障碍的翅膀,但它自身也会背负障碍的沉重,因此,它在轻松人类的时候也在轻松自己,净化人类的时候也在净化自己。其结果应该是两相完满,当人类在最深刻地享受友情时,友情本身也获得最充分的实现。 18.现在,即便我们拥有不少友情,它也还是残缺的,原因在于我们自身还残缺。世界理应给我们更多的爱,我们理应给世界更多的爱,这在青年时代是一种小心翼翼的企盼,到了生命的秋季,仍然是一种小心翼翼的企盼。但是,秋季毕竟是秋季,生命已承受霜降,企盼已洒上寒露,友情的渴望灿如枫叶,却也已开始飘落。