数据库课程设计---图书管理系统.doc

40目录第1章 绪论21.1系统开发背景介绍21.2开发工具的选择21.3系统主要内容简介 2第2章 需求分析32.1 总体需求32.2 管理员的需求分析32.3 借阅/还书的需求分析32.4 借阅者的需求分析32.5 图书信息的需求分析32.6 实际功能4第3章 概念结构设计53.1 E-R图简介53.2本系统的总体E-R图6第4章 数据库设计74.1数据库表74.1.1 图书表74.1.2 日期限定表74.1.3 年级表84.1.4学院表84.1.5管理员表84.1.6借阅者表94.1.7书种表9第5章 数据库的实现与程序105.1登录界面设计105.2管理员信息设计125.3借阅/还书管理设计21课程设计总结31学习体会32致谢33参考文献34第1章 绪论1.1系统开发背景介绍现在随着人们生活质量的提高，人们对图书的需求越来越来丰富，并且需要图书的数量也日趋增加。随着人们对图书需求的增加，图书管理者对图书的管理就日趋的困难，传统的纯手工记录图书记录已经发挥不了它原有的功能，反之，还会影响图书管理的功能，使用效率极低。在这样的人们对图书需求日趋增加的情况下，电子记录管理图书就被广泛应用起来。所以图书管理系统就应用而生。1.2系统开发工具系统运行平台：Windows7。系统前台开发平台即：VisualBasic6.0。系统后台开发平台即数据库管理系统软件：SQLServer2000。 1.3系统主要内容简介本系统主要是针对图书管理中出现的一些问题提供一些解决方法，并且应运计算机信息管理系统结合。其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。前台我们采用功能强大的可视化开发软件VB开发设计主界面，利用SQLServer做为后台数据库。主要分成登录信息管理、管理员信息管理、借阅/还书信息管理、借阅者信息管理、图书信息管理等功能模块。第2章 需求分析2.1总体需求这一章将介绍本系统的各个部分的需求。2.2管理员的需求分析管理者基本信息，包括管理者编号，管理者姓名，登陆密码，电话号码。其中本系统中还包含管理者信息的修改，增加，删除等功能。并且这个系统管理员经过登陆窗口才可进入。管理员在整个系统中起到统筹全局的功能，管理员可以对系统中各个部分起到控制的作用，可以增加、修改、删除借阅者信息，增加、修改图书信息，并且可以查询借阅与还书情况，在本系统中贯穿整个系统。2.3借阅/还书的需求分析借阅基本信息包括借阅者信息，借阅者已借阅书籍，借书日期，借书编号等信息。还书基本信息包括借阅者编号，借阅者还书的编号，并且附带有查询功能，查看借阅者借阅的图书是否过期。2.4借阅者的需求分析借阅者基本信息包括借阅者借阅卡号，借阅者姓名，借阅者学号，所在院校，电话号码等基本信息。其中本系统中还包含借阅者的增添与删除，可以实现新生入学借阅的增加，毕业生的借阅信息的删除功能。2.5图书信息的需求分析图书基本信息包括图书编号，图书姓名，图书作者，图书ISBN，图书种类，图书数量等基本信息。本系统中增加了图书库存管理功能，可以查看图书所在库存的状态，看是否可以借阅。并且增加了图书增加功能，图书修改功能，图书查询功能，可以查询图书在库各种信息，与借阅者的联系也一目了然。2.6 实际功能 管理员登陆 图书管理借阅/还书管理借阅者管理管理员管理增加修改归还图书借阅图书删除增加删除增加修改图2-1. 图书管理系统结构图第3章 概念结构设计3.1 E-R图简介实体-联系图(Entity-RelationDiagram)用来建立数据模型,在数据库系统概论中属于概念设计阶段，形成一个独立于机器，独立于DBMS的ER图模型。通常将它简称为ER图，相应地可把用ER图描绘的数据模型称为ER模型。ER图提供了表示实体（即数据对象）、属性和联系的方法，用来描述现实世界的概念模型。构成E-R图的基本要素是实体、属性和联系，其表示方法为：实体型：用矩形表示，矩形框内写明实体名；属性：用椭圆形或圆角矩形表示，并用无向边将其与相应的实体连接起来；多值属性由双线连接；主属性名称下加下划线；联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型在E-R图中要明确表明1对多关系，1对1关系和多对多关系。1对1关系在两个实体连线方向写1；1对多关系在1的一方写1，多的一方写N；多对多关系则是在两个实体连线方向各写N,M。实体与属性之间并没有形式上可以截然划分的界限，但可以给出两条准则：（1） 作为“属性”不能再具有描述的性质；（2） “属性”不能与其他实体具有联系。3.2 本系统的E-R图ID图书期限借书日期返还借阅管理操作借阅卡编号学号姓名年级电话借阅者ISBSN作者名称编号图书种类数量编号工作时间密码管理员mnnmnmnm 图3-1. 图书管理系统总E-R图 第4章 数据库设计4.1数据库表图书管理数据库含7个表，它们分别为：图书表（Book）;日期限定表（DataResrict）；年级表（Grade）；学院 表（Institute）；管理员表（Lidrarian）；借阅者表（Borrower）；书种表（Title）。我们来看一下表的结构：4.1.1图书表图书表包括图书编号、书名、状态、借阅卡号、被借阅时间属性，各个属性的类型、长度、约束条件如表示表4-1. 图书表4.1.2日期限定表日期限定表包括书种、天数属性，各个属性的类型、长度、约束条件如表示表4-2. 日期限定表4.1.3 年级表年级表包括年级编号、名称属性，各个属性的类型、长度、约束条件如表示表4-2. 年级表4.1.4学院表学院表包括学院编号、名称属性，各个属性的类型、长度、约束条件如表示表4-4. 学院表4.1.5管理员表管理员包括编号、ID、密码、工作时间、电话属性，各个属性的类型、长度、约束条件如表示表4-5. 管理员表4.1.6借阅者表借阅者包括借阅卡编号、学院编号、年级编号、姓名、学号、电话、已借书数目等属性，各个属性的类型、长度、约束条件如表示表4-6. 借阅者表4.1.7书种表书种表包括书名、作者、ISBSN、种类、数目等属性，各个属性的类型、长度、约束条件如表示表4-7. 书种表第5章 数据库的实现与程序5.1登陆界面设计输入“用户名”，“密码”，点击“确认”进入主题框；图5-1登陆该登陆界面代码如下所示：源代码： Public OK As BooleanPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdLogin_Click() 检验数据的有效性 If Trim(txtUserName.Text = ) Then MsgBox 请输入用户名！ txtUserName.SetFocus Exit Sub ElseIf Trim(txtPassword = ) Then MsgBox 请输入密码! txtPassword.SetFocus Exit Sub Else Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE Id= + txtUserName + AND Password= + txtPassword + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then OK = True Me.Hide FrmMain.Show 0 Else MsgBox 用户名和密码错误,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnect End If End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()End Sub5.2管理员管理设计管理员窗口的设计主要包括“修改”、“添加”、“删除”，“刷新”等功能。添加管理员是依照窗口的信息依次填写，点击“提交”即可；图5-2进入管理员信息栏图5-3. 添加管理者该管理者添加的代码如下：源代码：Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdSubmit_Click() 检验数据的有效性 If Trim(txtId) = Then MsgBox 请输入登录Id Exit Sub End If If Trim(txtPwd) = Then MsgBox 请输入登录密码 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE seq= + Trim(txtSeq) + Set rst = myDbOper.querySQL(sql) If rst.EOF = True Then With rst .AddNew !seq = Me.txtSeq !id = Me.txtId !Password = Me.txtPwd !onJobTime = Me.txtTime !telephone = Me.txtPhone .Update End With MsgBox 信息添加成功. Else MsgBox 该编号已经存在,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Label1_Click()End SubPrivate Sub txtId_Change()End SubPrivate Sub txtPwd_Change()End Sub删除图书管理员是在管理员列表中点击要删除的那一行，点击“删除”即可；图5-4删除管理者修改管理员首先在管理员列表中点击要修改的管理员信息，在编辑区填写要修改的信息，点击“修改”即可；图5-5修改管理者图5-6 刷新管理员列表该管理者的修改、删除代码如下所示：源代码：Private Sub cmdAdd_Click() FrmAddManager.Show 1End SubPrivate Sub cmdDelete_Click() Dim tmpSeq As String If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If p = Adodc1.Recordset.AbsolutePosition tmpSeq = Trim(Adodc1.Recordset.Fields(0) 确认删除 If MsgBox(是否删除当前行?, vbYesNo, 确认) = vbYes Then Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE seq= + Trim(txtSeq) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then With rst .Delete adAffectCurrent .Update End With Else MsgBox 发生错误,请重新操作. End If Refresh_DataList If p - 1 0 Then Adodc1.Recordset.Move 0 Adodc1.Recordset.Move p - 1 End If End IfEnd SubPrivate Sub cmdEdit_Click() 检验数据的有效性 If Trim(txtId) = Then MsgBox 请输入登录Id Exit Sub End If If Trim(txtPwd) = Then MsgBox 请输入登录密码 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE seq= + Trim(txtSeq) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then rst!id = Me.txtId rst!Password = Me.txtPwd rst!onJobTime = Me.txtTime rst!telephone = Me.txtPhone rst.Update MsgBox 信息修改成功. Else MsgBox 发生错误,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnect Refresh_DataListEnd SubPrivate Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdRefresh_Click() Refresh_DataListEnd SubPrivate Sub DataGrid1_Click() If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If 保存光标位置 p = Adodc1.Recordset.AbsolutePosition 读取当前记录的各列数据 Me.txtSeq = Trim(Adodc1.Recordset.Fields(0) Me.txtId = Trim(Adodc1.Recordset.Fields(1) Me.txtPwd = Trim(Adodc1.Recordset.Fields(2) Me.txtTime = Trim(Adodc1.Recordset.Fields(3) Me.txtPhone = Trim(Adodc1.Recordset.Fields(4) Refresh_DataList 恢复光标位置 Adodc1.Recordset.Move 0 Adodc1.Recordset.Move p - 1End SubPrivate Sub Refresh_DataList() 刷新管理员列表 Adodc1.RecordSource = SELECT * FROM Librarian ORDER BY seq Adodc1.RefreshEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Label4_Click()End Sub5.3 借阅/还书管理设计借阅图书时首先要输入“借书卡号”，点击“确定”，就会出来借阅者的一些的基本信息，再在“借书登记栏”中输入书刊编号查询，如果在库是，点击“提交”即可；图5-7 借阅借阅其代码如下；源代码：Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdEnter_Click() 检验数据的有效性 If Trim(txtBorrId) = Then MsgBox 请输入借书卡号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT b.StudentNum,,i.Institute,g.Grade,b.teleNumber,b.borrowBookNum _ + FROM Borrower b,Institute i,Grade g _ + WHERE b.InstituteID=i.InstituteID AND b.GradeID=g.GradeID _ + AND BorrowerId= + txtBorrId + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then With rst lblStuNum.Caption = .Fields(0) lblName.Caption = .Fields(1) lblInstitute.Caption = .Fields(2) lblGrade.Caption = .Fields(3) lblPhone.Caption = .Fields(4) End With Refresh_DataList1 Else MsgBox 用户不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub cmdQuery_Click() 检验数据的有效性 If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT b.BookID as 书刊编号, as 名称,b.loan as 状态, _ + t.author as 作者,t.isbsn as isbsn,t.type as 类型,b.BorrowDate as 借书日期 _ + FROM Book b , Title t WHERE = AND b.BookID= _ + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then Refresh_DataList2 (sql) Else MsgBox 该书刊不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub Refresh_DataList1() Dim sql As String sql = SELECT bo.BookID as 书刊编号, as 名称,bo.BorrowDate as 借书日期 _ + From Borrower b,Book bo _ + WHERE b.BorrowerID=bo.borrowerID and b.BorrowerID= _ + Trim(txtBorrId) + Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.ReBindEnd SubPrivate Sub Refresh_DataList2(sql As String) Adodc2.RecordSource = sql Adodc2.Refresh Set DataGrid2.DataSource = Adodc2 DataGrid2.ReBindEnd SubPrivate Sub cmdSubmit_Click() 检验数据的有效性 If Trim(txtBorrId) = Then MsgBox 请输入借书卡号 Exit Sub End If If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim nowDate As New BookDate Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String Dim update1_sql As String Dim update2_sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT loan FROM Book WHERE BookId= + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If Trim(rst.Fields(0) = 在库 Then 更新数据库表 update1_sql = UPDATE Book SET loan=借出,borrowerID= _ + Trim(txtBorrId) + ,BorrowDate= _ + nowDate.getDate + WHERE BookID= _ + Trim(txtBookId) + myDbOper.executeSQL (update1_sql) update2_sql = UPDATE Borrower SET borrowBookNum=borrowBookNum+1 WHERE BorrowerId= _ + Trim(txtBorrId) + myDbOper.executeSQL (update2_sql) Refresh_DataList1 MsgBox 操作成功. Else MsgBox 该书刊已经借出,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnect End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub DataGrid2_Click()End SubPrivate Sub Label5_Click()End Sub还书时输入书刊编号查询，确认无误后点击“还书提交”即可；图5-8. 还书还书的代码如下；源代码：Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdQuery_Click() 检验数据的有效性 If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Book WHERE BookID= + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then Refresh_DataList 显示书刊类别以及借用期限 Dim type_rst As ADODB.Recordset Dim type_sql As String type_sql = SELECT t.type,d.Dates_restrict _ + FROM Title t,DatesRestrict d,Book b _ + WHERE d.type=t.type and = and b.BookID= _ + Trim(txtBookId) + Set type_rst = myDbOper.querySQL(type_sql) With type_rst lblBookType = .Fields(0) lblDateRestrict = .Fields(1) End With Else MsgBox 该书刊不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub Refresh_DataList() Dim sql As String 定义查询语句 sql = SELECT b.BorrowerID as 借阅者编号,b.BorrowDate as 借书日期,b.BookID as 书刊编号, as 名称, _ + b.loan as 状态,t.author as 作者,t.isbsn as isbsn,t.type as 类型 _ + FROM Book b , Title t WHERE = AND b.BookID= _ + Trim(txtBookId) + Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.ReBindEnd SubPrivate Sub cmdSubmit_Click() 检验数据的有效性 If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim nowDate As New BookDate Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String Dim update1_sql As String Dim update2_sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT loan,borrowerID FROM Book WHERE BookId= + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If Trim(rst.Fields(0) = 借出 Then 定义更新语句 update1_sql = UPDATE Book SET loan=在库,borrowerID=Null,BorrowDate=Null _ + WHERE BookID= + Trim(txtBookId) + myDbOper.executeSQL (update1_sql) update2_sql = UPDATE Borrower SET borrowBookNum=borrowBookNum-1 WHERE BorrowerId= _ + rst.Fields(1) + myDbOper.executeSQL (update2_sql) Refresh_DataList MsgBox 操作成功. Else MsgBox 该书刊还未借出,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnect End SubPrivate Sub Form_Load()End Sub课程设计总结本系统为图书管理系统，由于时间原因，数据库的大部分功能只得到了很小的体现，有点部分没能体现出来，只是最为基础的部分在本系统中体现出来。其中实际功能包括管理员操控功能，借阅者信息修改功能，借阅/还书功能，图书管理功能。在借阅卡挂失部分没能具体的体现出来是本系统最大的缺点，还有最基本的逾期扣费功能等都没能具体体现出来。学习体会通过本次数据库课程设计，深深的体会到数据库在日常生活的体现，以前没有接触数据库这门课程的时候，没有感受到数据库在我们生活的重要性。数据库在日常生活中的应用那时候觉得是理所当然，就该存在的。不知道一个数据库的建立需要多道步骤，一步一步的实施下去，才能完成。本次数据库的设计虽是一个小的系统，但是它也包含了数据库设计的所有步骤：需求分析，概念结构设计，逻辑结构设计，物理设计，实施，运行与维护。这些我们在课堂上也都学习了，但印象不是特别的深刻。本次课程设计充分的联合书本知识，充分体现了理论联合实际的。这次的课程设计不仅让我学习到了数据库的一些实际的知识，还让我学习了一些有用的开发工具例如Delphi，VB等可视的开发工具，学习它们是我更加确定了以后自己的发展方向，因为我发现我个人在软件方面比较感兴趣，如果自己在软件部分发展会比在硬件方面更有发展前景。以后我会更加的专注于软件方面的学习与实际的开发，把我所学知识运用在生活中，并且为我以后的工作打基础。致谢在这次数据库课程设计中，感谢学校给我们提供了机房，感谢学院给我们一次动手操作的机会。在这次课程设计中，感谢刘中华、刘旭阳老师对我们的精心指导和谆谆教诲，使我在本次课程设计中顺利完成在小组中的任务！同时感谢小组成员乃至同班同学的帮助，在此致以衷心的感谢！参考文献：1刘大玮马传宝孙颖洁SQL Server 数据库项目案例导航北京：清华大学出版社20052萨师煊王珊数据库系统概论高等教育出版社20063李涛刘凯奎王永皎数据库开发与实例北京清华大学出版社20104赛奎春SQL Server 数据库开发案例解析机械工业出版社20065百度文库vb教程下面是赠送的励志文档需要的朋友可以好好欣赏，不需要的朋友可以下载后编辑删除！谢谢！不想穷，就好好读懂这些话！一言惊醒梦中人！ 1、成功的人，就是那种能用别人扔向他的石头来铺设路基的人。2、批评你的人是你今天的敌人，明天的朋友；吹捧你的人是你今天的朋友，明天的敌人。3、Nothing is impossible、只要选择了目标，不要再想太远，每天脚踏实地，风雨兼程。生命不息，战斗不止。4、你和你的朋友会一起在将来打造一个可能很辉煌的事业。很好听是吗？记住，你们都要努力。 5、后悔是一种耗费精神的情绪，后悔是比损失更大的损失，比错误更大的错误，所以不要后悔。6、别怕丢人，追求丢人是一种成功的尝试，至于为此笑话你的人，你可以把他们从你将来人生对手的名单中排除了，你也要为每一位上台唱歌的人鼓掌。7、人生在世，需要不断地为心灵除尘，自省、自责、自悟、自重。8、永远不要对可能是坏事的事好奇，否则可能要了你的命。永远不要在痛苦的时候做决定，否则你以后一定会后悔。9、别为你自己和别人下定论，你所看到听到的可能只是一面。10、如果周围有人嫉妒你，那么你可以把他从你的竞争者之列排除了。11、很多事情别人通知你了，要说谢谢，没有通知你，不要责怪，因为那些事你其实应该自己弄清楚。12、一个人最大的痛苦，莫过于被圈在自己设定的圈子里出不来。就像一只蚕，丝吐的越多，对自己捆绑得越紧，直到最后完全把自己包上，想出也出不来。13、善良是一种智慧，是一种远见，一种自信，一种精神力量，是一种文化，一种快乐。14、一个人的脚步再大，也永远无法丈量完脚下的道路。人生有限，道路无限，要想在有限的生命中多走一程，就时刻别停下脚步，别浪费分秒时间。15、遇到再大困难的时候，不要惊慌，千万要学会冷静；不要去想着求别人，以前有家人帮你，现在需要你一个人面对挑战，从绝望中寻找希望，人生终将辉煌。16、学会说谢谢，但谢谢并不是随便敷衍，是对别人帮助的肯定和回报；更要学会说对不起，但对不起不是借口，是对自己过错的弥补和内疚。17、处事不必求功，无过便是功；为人不必感德，无怨便是德。18、有时你的快乐是你的微笑之源，但是有时候你的微笑却可能是你的快乐之源。19、不论男人还是女人，如果还把容貌当作重要的东西而过分重视的话，可能不会吃亏，但是早晚会吃亏、可能，很可能。20、放假的时候，要么留在家里多陪陪父母，帮他们做点事，远走高飞的你能像以前天天守在他们身旁的时间已不多；要么多去社会中体验生活，因为你不但要懂得生活，还要学会如何去生活。21、心烦意乱或者无聊闲着的时候，多到图书馆去泡泡，书中有现实中难得的纯明和清静；多看些书，生活会渐渐少一些迷茫，多一些追求。22、一个人如果心中时刻能够想着别人，别人也一定会时刻想着你。多替别人着想，就等于给自己铺设一条道路。你付出的越多，你得到的也会越多，这就叫做感情投资或感情积累。23、你可输给任何人，但不能输给自己。24、经常给家里打个电话，即使嘴上都说不想对方，其实内心早已情动于中；有了女（男）朋友，也不能忘了爹和娘。25、多笑笑，会慢慢让自己真的快乐起来。26、好好利用公开场合锻炼、展示自我，哪怕只是一次课堂上的发言，别怕尴尬，更别怕丢人，也不要笑话在公众面前丢脸的人。27、小的眼睛里没有君子，君子的眼睛却可以识破小人。28、屈原说：“路漫漫其修远兮，吾将上下而求索。”这种精神可贵，但在现实之中却很少有人能这样执着了。如果有人能够做到，他一定会是最成功的人。29、永远别渴望做个任何人都不得罪的人，有人反对有人支持然后自己做出决定是精彩的人生。30、一个生命完结，另一个生命诞生，世界就是在这种循环中得到永恒。用不着为死去的过于悲哀，也用不着为新生的过分高兴。生命都是一种相同的过程，关键在于能否使它辉煌。如果一个人能活得无愧无悔，坦坦荡荡，虽未轰轰烈烈，但这仍可算作是伟大的一生。31、后悔是一种耗费精神的情绪、后悔是比损失更大的损失，比错误更大的错误、所以不要后悔。32、你的确要学的有心计，但是记住，永远记住，在社会上要胜利的唯一的方法永远只是一个，那就是实力，永远不用怀疑。34、人生百态，不要对新的看不惯的东西生气，无所谓的。35、我们确实活得艰难，一要承受种种外部的压力，更要面对自己内心的困惑。在苦苦挣扎中，如果有人向你投以理解的目光，你会感到