小学低年级学生日记起步教学的若干策略及高校图书馆管理系统的设计与实现

关于小学低年级学生日记起步教学的若干策略【内容摘要】日记教学是语文教学的一个有机组成部分，具有不可忽视的“载道”作用，是进行语文素质教育的一种有效形式。写日记一旦成为孩子的日常习惯和爱好，将对提高孩子的习作能力起到促进的作用，这种力量是教师的教育和家长的指导无法替代的。对低年级孩子如何进行日记指导，笔者以为要用丰富有趣的内容和生动的教学方法来吸引学生，激发学生写日记的兴趣，并且持之以恒。【关键词】日记教学生活素质教育

问题呈现日记教学是语文教学的一个有机组成部分，具有不可忽视的“载道”作用，是我们进行语文素质教育的一种有效形式。对于小学生来说，常写日记好处多，不仅可以提高观察能力，积累习作素材，提高习作水平，而且有益于培养勤于思考的好习惯，形成持之以恒的好品质。新课标中指出：日记要从低年级开始练起，写自己想说的话，写出自己对周围事物的认识和感想。但是，学生刚开始接触日记时总认为日记难写，不少学生因“无话可写”或“从何写起”抓耳挠腮，不知所措。对于初学日记的低年级小学生而言，其感受尤其如此。有位同学曾这样写过：今天早上，我起chuang就和爸爸去玩了，玩了一下子，我就和爸爸回家了。到了下午，我就做作业了。做到了3点钟我就到下面去玩了，玩了一会儿就回家了。又一天早上，我又去玩了。到了下午，我吃过中饭又去玩了。爸爸ma我了，我就做作业了。这则日记言之无物，像记流水帐，且标点符号也使用不正确，还有许多的错别字。如果这样时间久了，在习作中孩子得不到成就感，就容易产生厌烦情绪。其实，生活是个万花筒，从理论上来看，它本是取之不尽、用之不竭的材料宝库，蕴藏着许许多多丰富多彩的习作素材。可对于初入学的小学生而言，由于年龄的差异和认知结构的特点，事实上并非如此。因为许多时候，他们往往缺少发现，缺少感悟。缘于此，千方百计思考日记写什么好就成了众望所归。要想克服这一点，必须认真对学生进行日记指导：激发兴趣，指导选材，授以方法。只有这样，才能彻底走出日记教学的怪圈，才能彻底放松学生的手脚，才能有真正意义上的快乐日记。那么，怎样才能让学生把日记当作最好的伙伴呢？策略与实践一、从一句话入手在教了新教材后，我开始打破以前的方法。从学生进入一年级的第二学期时，我开始让学生写话，用拼音试着写上一句话，每隔两天写一次，自已想写什么写什么，写法和格式都不作要求，第二天收上来后将这些作品全贴在后面黑板上进行展评，每天抽半节课进行评讲，找同学读自己写的句子，对写得通顺的大加表扬，写的不通顺的我总是找他的优点来表扬，因此学生是只要写了都可以得到不同程度的表扬和奖励。同学们是这样写的：今天早上下shuang了，草上白白的一层。Meimeifashao了，e头guntangguntang的。今天上了一节体育课，我们进行了tiaoshengbisai,我leiji了。二、写好一段话到了二年级的上学期，得开始让学生写日记了。我告诉他们以后我们就不再每两天写一句话了。每人准备一个精美的笔记本,开始把你每天的所见、所闻、所做、所感中选择最有意义的事写下来。顿时，学生兴趣盎然。兴趣是最好的老师，要让学生写日记的热情保持下去，教师还要用丰富有趣的内容和生动的教学方法来吸引学生，使学生的精神得到最大的满足。那么，如何激发学生写日记的兴趣，并且持之以恒呢？（一）、上好日记课学生刚开始写日记时，我安排每周上日记课一节。我上日记课的方式有：1、指导写范文。选择一、两幅图先指导学生看图：弄清画面上画的是什么时间，什么地方，都画了些什么，谁在做些什么等，大体了解图意，掌握基本内容；再抓住重点和细节，深入观察和想象。然后说一说，再大家一起板书在黑板上，并且同时教学标点符号的正确用法。2、选典型日记，师生评议。在认真批改日记之后，然后选择几篇典型日记，由教师朗读，先请学生评议，说说日记的闪光点以及需要改进的地方，包括标点符号。最后教师做整体评价。3、分组竞赛，每组自选两篇日记，学生上讲台朗读。每组选评委一名，就日记质量和朗读水平进行评分（10分制），每次评出优秀小组一名，优秀个人两名。在评比过程中，没有评比上的从中找到了自己的缺点，明确了努力的方向，评比上的，戴着皇冠，拿着奖品，真正感受到了成功的喜悦。4、记者招待会。让每周在写日记中有特殊表现的同学举行记者招待会，这样既能激发同学们习作的欲望，又能让同学们互相交流，同时还锻炼了大家的听评能力。（二）、开拓材源，丰富内容叶圣陶先生说：“生活就如泉源，文章犹如溪水，泉源丰盛而不枯竭，溪水自然活泼地流个不歇。”可见作文来自于生活。这也是新课改的重要理念。学生刚开始写日记，其内容一般较为单一，主要是自己日常生活中的琐事。我就逐步地引导学生跳出这个圈子，拓展题材的来源。引导学生多观察，多思考，做生活的有心人。1．巧用插图看图写话，图画就是写话材料，看图就成了写话的基础。现行的人教版新教材配有许多美丽的插图，这些插图不仅画面优美，而且趣味盎然，有很大的习作空间。我在指导学生写日记的过程中，曾写了多幅插图，如语文二下教材的封面，一位同学是这样写的：春天来了，春天来了，草绿了，花开了，小树也发芽了。我和丁丁、小红来到草坪上玩，丁丁躺在草坪上正在享受阳光，突然，一只小鸟朝丁丁飞来了，小红看到了漂亮的野花，真的好想去闻闻它，一只漂亮的蝴蝶朝我飞来，我真想把它抓住。啊，春天真的好美啊！多富有想象力，观察得多仔细。这样的练习让孩子知道生活中的精彩有很多，要学会观察，做生活的有心人。2、走进大自然在都市，虽然满眼都是高楼大厦，纵横交错的立交桥，但也有能工巧匠建造的花园，有上苍赋予也是人工雕琢的丰富的自然景观：花草树木、鸟兽虫鱼、日月星辰、风霜雨雪。关注它们，珍视它们，生命的灵性与活力能得到凸现，独特的感受会油然而生，童真童趣会获得释放，写景状物时孩子们就不仅有话可写，而且写得还颇有情趣。你看学生写路边花坛里的花：上学路边花坛里开了几种花，我都不知道它们叫什么名字，其中有一种花儿很小，qie子的yan色，外形就像爸爸爱喝的pijiugai儿，wen一Wen，只那么一点儿香气，我qingqing地用手chumo一下，它左右yaobai，像在逗我似的。走进大自然，教师还要善于抓住契机，引导孩子们去观察。比如深秋的一天，刮起了风。顿时，落叶纷飞。树上的叶子飘然而下，地上的叶子也追着、赶着往前跑，好一幅大自然的美景。在我的课堂上，我赶紧组织学生们出来观察。同学们一出教室，就被吸引住了，争着拾飘飞的落叶，追着捡地上的落叶，还比赛谁捡的多，谁捡的漂亮。回到教室，我让大家分组说说自己看到的景象。同学们七嘴八舌，争着说自己的发现，整个教室充满了热烈的气氛。在大家的共同讨论下，我们决定以《落叶》为题写一篇日记。不久，在大人眼中司空见惯的落叶竟被学生形容得妙不可言。有位同学写道：刮风了，一片片落叶跳着Wu呢！它们互相追zhu着，飘飘悠悠，在空中打着zhuan儿，恋恋不舍地离开了树妈妈，极不情愿地落在地上。又像tao气的孩子，脚一着地又立刻飞了起来，好像总也玩不够。不一会儿，叶子在地上不动了。轻轻吹来一阵风，它们又慢慢地san起步来，直到走累了为止。形象的表达，真情的流露，孩子们在习作的过程中体验了成功，尝到了走进大自然的甜头。紧随的便是自觉地去拥抱大自然而乐此不疲。3、和日记一起编童话故事《新课程标准》中指出：“要引导学生说真话、实话、心里话，不说假话、空话、套话。激发学生展开想象和幻想，鼓励写想象中的事物。”童话故事是儿童最喜欢的一种文学形式，是儿童认识世界的门户。对儿童来说，再没有比童话故事吸引人的了，孩子们从幼儿到小学阶段，接触的各种动画片，连环画，故事，大都是童话。而且学生的想象是丰富的，利用这一优势，我运用几个不相干的词语，让学生巧妙编排出一个有趣的故事。如一堂课上我用“小狗”，“阳光明媚”，“湿淋淋的”这几个词语让学生自己编故事。学生们看完词语后，不用讨论，就开始写了。看来用这几个词语来写故事并不难，同学们编写的故事也是五花八门，有的写小狗在一个阳光明媚的星期大出去玩，结果下雨，把身上弄的湿淋淋的；有的写小狗太调皮，掉到河里弄湿了身上：有的写小狗为了救别的小动物弄湿的……甚至有的主人公不仅仅是小狗，还有小猫，小兔等故事编写得真是丰富多彩。也可以利用图画来写童话或是多幅图进行续编故事。如《小白兔采磨菇》、《小熊送伞》等，指导学生充分发挥想象，不拘泥于图画本身，要根据图画想到图画以外的东西，使情节更加丰富精彩。一个个生动有趣的童话故事，让人仿佛置身于童话的海洋中。4、写学校里的事学校在一个学期中会举行许多的活动，如春游，洁美大行动，法制教育讲座等等。每次活动过后让学生写一写活动后的感想也是很好的日记题材。有次学校举行了安全教育讲座，我抓住了这个契机，让学生写了一篇日记，效果很好。其中有位同学这样写到：今天，我们举行了安全知识讲座，听了以后，我觉得安全是很重要的事。我每天上学放学都要过马路，这是很危险的。所以都要细心，要先看一下左右的车辆，再走ban马线。5、写学科日记当前的课堂教学不仅注重学生的认知，还注重学生内在的情趣、体验。让学生把自己的体验写出来就是一篇很好的日记。下面是几位学生写的数学日记：今天，妈妈洗衣服的时候，我数了数：深色的有2件；浅色的有2件；棕色的4件；蓝色的2件，我用2+2+4+2=10，一共有10件衣服。妈妈真辛苦啊！今天，我和爸爸一同称体重，爸爸重120斤，我重50斤，我比爸爸轻了一些，我用120—50=70（斤），算出了我比爸爸轻70斤，爸爸说吃饭时要多吃、不挑食，等到长大了，也能和他一样健壮！效果还不错，学生会观察身边的事物了，也更加深刻地体会到数学就在身边！6、写绘画日记小朋友喜欢画画，他们能利用自己听到，看到的加上自己的想象，把图画的栩栩如生。画过以后，让学生用文字来表述一下画的过程和内容，也是很好的日记。一位同学这样写：今天我画了一个苹果。我先画了一个椭圆，再画上柄，然后涂上红色。很漂亮，我真想吃一口。（三）、认真批改，赏识鼓励面对学生的每一篇日记，我都会认真批改。法国教育家第斯多惠说“教学艺术的本质不在于传授，而在于激励、唤醒和鼓舞。”新课改的批改原则是“鼓励多与批评，赏识多于修改”。遵循这些思想和原则，我经常利用闪光点来表扬学生的日记，哪怕是一句闪光的语言，我都如获珍珠般在班上诵读。在日记中鼓励，写心语。一个叫小斌的男同学，调皮，爱动，他在日记中写道：老师，我的成绩那么差，又那么调皮，同学们都说您喜欢我,真的吗？我在批语中写道：小斌，你每天都在进步，这不，你的日记语句写得多么通顺，字体又是那么端正，老师喜欢你，大胆地进步吧！大家都有会场喜欢你的。此外，适时的给学生一些意外的惊喜也可以激发兴趣。比如：在持之以恒写日记的学生的日记本中夹上一枚火红的枫叶，给获得好成绩的同学照上一张合影，给取得飞速进步的同学发张奖状，给有突出表现的同学写张喜报……文章想像丰富画对飞翔的翅膀，拟人手法用得好给他画个卡通人物，画张笑脸以示对他的鼓励……意外惊喜，应是教师创造的杰作，教师应有创造的思维，努力用新奇的方式去激励。教师的创新，不仅培养了学生爱写日记的兴趣，而且也启发了学生的创造性思维，有创新型教师，便有了创新型学生。收获与感悟通过近一年多的努力，学生的写日记的兴趣浓厚了，词汇丰富了，语句通顺了。综合起来有以下几个方面的收获：一、巩固语言基础知识。学生所学的语言基础知识只有在不断的应用中才能真正成为自己的知识，形成基本技能。日记同作文一样，要运用学生自己所学的字、词、句、段、篇以及语法、修辞等方面的语言基础知识。日记一旦形成习惯，就具有广泛性和经常性。所以在日记中，语言基础知识也会有意或无意地得到最广泛、最自觉的实践运用。二、养成客观观察的习惯。“写东西，要观察”，这是老舍先生的经验之谈。学生写日记必须对所写的事项进行客观的观察，只有耐心细致地去观察生活、体验生活，才能写好日记。我有计划、有目的、有价值地引导学生开展了观察活动，进行观察实践，并要求学生把最深刻的观察所得用文字表述出来，养成学生观察生活的习惯。三、培养坚韧顽强的毅力写日记同样需要顽强的意志，也同样能培养学生坚韧顽强的毅力。事实上，写日记本身就是一种意志与毅力的培养途径。有人曾这样道破“天机”：写日记是一项道德长跑。谁有恒心，锲而不舍，谁就能锻炼出坚韧的意志与毅力。在日记教学中，最困难的一点就是如何能让学生持之以恒地写下去。对此，我对学生进行必要的思想教育，还采取一定的恰当措施予以保证。例如落实一日一篇的制度；定期开展评选优秀日记的活动，采取多种方式鼓励日记佳作；这样就有效地激发了学生写日记的积极性，并保证持之以恒，养成学生坚韧顽强的意志与毅力。四、倾听心灵，分担喜乐。一般来说，学生日记的内容是真实的，流露出来的思想情操是可信的。因此，这是了解学生心灵窗口的第一手材料。读学生的日记(在学生愿意的前提下)，就像是在向你倾诉衷肠。认真阅读学生的日记，可以了解到许多在平时根本无法了解到的情况，诸如他们的思想动态，生活或学习方面的特点、习惯、要求等信息。当然，要想了解学生内心深处的这种实情，阅读者首先要动机良好而纯真，完全是出于“教书育人”的天职与需要，并将己心换彼心，获得学生的绝对信任。在这个前提下去认真阅读，有意了解，并把捕捉到的一些特定的信息及时记录在“工作手册”之中，以便针对实际情况，进行有效的思想教育。我一直认为，日记是师生之间情感沟通的桥梁，他们能把心理话真实地倾诉给老师，让老师与他们分担忧愁，分享快乐。从日记中我可以看到孩子们心灵的最深处。所以每当我翻开孩子们那一本本日记时，心里就很激动，好像看见那一张张可爱的小脸在与我对话。当我看见一个小女孩在日记上写到：“老师，我和我的朋友因一点小事发生了矛盾，我们谁都不想向对方解释，怎么办？我不想失去她，心里痛苦极了，求您帮帮我。”于是我在日记上写到：你是一个心地善良的女孩，你能够珍惜朋友之间的友谊，这正是你可爱之处。不要站在那徘徊，大胆地向前走一步，你们会合好如初。日记发下去了，那个小女孩也笑了。一天还没到，两个小伙伴又形影不离了。看见她们快乐的样子，我知道了什么是幸福。总之，在引导学生写日记的过程中，我深深地感受到：作为语文教师，我们应该引导学生走进生活，观察生活，记录生活并予以合理地评价，以促使学生产生对习作的兴趣，提高习作的能力。让我们伴着新课改的理念，走出课堂，走进生活，用日记汇集习作的源泉。让日记伴孩子们成长。

【参考文献】[1]方洲《特级教师教小学生获奖作文》[M].北京：华语教学出版社.[2]《小学语文新课程教学法》[M].浙江：高等教育出版社.[3]《小学生阅读与写作》[J].长春：三年级版2009年第5至10期.[4]《语文教学艺术论》[M].南宁：广西教育出版社.[5]《小学语文教材》[P].北京：人民教育出版社.毕业设计（论文、作业）毕业设计（论文、作业）题目：高校图书馆管理系统的设计与实现年级、专业：信息管理学生姓名：学号：指导教师：完成日期：

目录内容摘要 3关键字: 3一、 系统的需求分析 4(一) 用户的主要业务功能需求 4(二) 用户的操作权限管理方面的需求 4(三) 用户对系统操作界面的各种需求 4二、系统的总体设计 4（一）系统的功能模块划分 5（二）系统的权限划分和操作流程 51、人员表的设计 62、书籍表的设计 63、借书卡表的设计 74、分类表的设计 75、交流表的设计 7三、系统的详细设计和制作 8（一）系统主窗体，用户登录，修改密码窗体的设计制作 81、 系统主窗体的设计制作 82、 登录窗体的设计制作 9(二) 内部管理模块的设计制作 111、 注册窗体的设计制作 113、 新书录入窗口的设计制作 134、 书籍添置窗体的设计制作 165、 书籍报废窗体的设计制作 17(三) 书库查询模块的设计制作 191、分类查询书库窗体的设计制作 192、新书介绍窗体的的设计制作 213、热门排行榜窗体的设计制作 23(四) 书籍借阅管理模块设计 241、借书窗体的设计制作 242、还书窗体的设计制作 27(五) 书友交流模块的设计制作 281、提交心得模块的设计 282、交流心得窗体的设计制作 30五、系统调试和维护 32参考文献： 33致谢 34内容摘要随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。图书馆管理系统可以说是一个综合性的管理系统，它集成了读者基础资料管理系统、借阅管理系统、还书管理系统、查询管理系统、内部管理、书友交流管理，因而具有较强的实用性和先进性。本软件是教务管理系统。利用MicrosoftVisualStudio.NET2005设计工具和MicrosoftSQLServe2005开发设计，本文介绍了在VisualBasic.NET环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个图书馆管理信息系统的过程。通过分析某一学校图书馆管理的不足，创建了一套行之有效的计算机管理图书的方案。软件分为用户登入管理模块、图书借阅模块、内部管理和书友交流4部分模块。基础资料管理模块包括：用户注册、用户登录、密码修改等功能。内部管理模块包括：管理人员注册、图书分类管理、书籍管理、新书录入、书籍添置、书籍报废等功能。图书借阅管理模块包括：借书、还书功能。书库查询模块：分类查阅、新书介绍、热门排行榜功能。书友交流模块：提交心得、交流心得功能。本软件的基本功能是对图书馆基本信息管理、内部管理、图书借阅管理等具有浏览、新增、查询、修改、等功能。整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。关键字:毕业设计管理信息系统子系统图书馆管理系统VS.Net2005SQL2005

图书馆管理系统系统的需求分析作为毕业设计项目的图书馆管理系统,还远远不能囊括一般图书馆的所有管理功能.经过一些调查研究,对本图书馆管理系统的需求做出如下分析:用户的主要业务功能需求由于图书馆馆藏图书种类繁多,为便于检索查找,必须对图书实现分类管理.除类别外,对每一种图书的检索资料,还必须包括书名,作者,出版社,版本,内用提要等信息.要有新增书种输入,修改等管理.要有破旧书籍的报损功能.要有对新增读者借书卡的注册功能.要有图书借阅,还书等功能.为此,必须有每种图书的库存数量即时统计.要有便于读者使用的各类图书的检索查询功能.要有向读者推介新书,热门书籍等功能.为了便于读者相互交流,向读者提供发表和看阅读书心得的平台.用户的操作权限管理方面的需求由于图书馆属于公益性单位,权限管理要求相对来说比较简单,仅分为管理员和读者两种.管理员的主要权限为:图书的分类,新增,报损,借阅,归还和为新读者办理注册等.读者的权限为:查询馆藏图书,借还书,发表读书心得,看阅其他读者的读书心得.用户对系统操作界面的各种需求由于图书馆的服务对象是不同层次的人群,计算机操作的熟练程度参差不齐,因此要求系统的操作界面简洁明了,操作流畅,尽可能避免由误操作引起的系统崩溃等后果.由于图书馆主要的服务用品是中文书籍,因此如何减少汉字输入量是提高普通读者查询,借还书籍等操作的效率的主要手段,希望尽可能采用选择输入法来完成上述功能.二、系统的总体设计（一）系统的功能模块划分根据对用户的需求分析,对系统的功能模块作出如下图所示的划分:图书馆管理系统图书馆管理系统修改密码书友交流读者注册管理人员注册分类管理书籍管理新书录入 书籍添置书籍报废分类查询新书介绍热门排行榜借书 还书交流心得退出内部管理册书库查询书籍借阅提交心得登录图1系统的模块划分示意图（二）系统的权限划分和操作流程根据对用户需求的分析,本系统的操作人员登录成功后的操作权限和流程如下图所示：输入用户名和密码输入用户名和密码判断是读者是管理员用户注册修改密码内部管理书友交流书库查询书库查询书籍借阅书友交流登陆失败退出系统tong图2系统的操作权限划分和操作流程（三）系统数据表结构的设计根据对用户的需求分析，建立了数据库《图书馆》，在这个数据库里我们建立五个数据表，分别是人员表、书籍表、借书卡表、分类表、交流表。鉴于现在的电脑价格低廉，功能强大，硬盘早已不是稀缺资源，而编程人员的工资成本却十分高昂，因此在设计书库时，对数据库的要求不应再片面注重于节省硬盘，而应更加注重于提高编程效率和代码可读性，降低降低维护的复杂性。为此，本系统的数据库在满足第二范式的前提下，权衡利弊后适当保留了一些冗余字段。五个数据表的结构分别为：1、人员表的设计用来记录人员信息，设计其字段结构如下表：表1人员表的数据结构专业表列名数据类型长度允许空id（主键）int4姓名char8密码char6身份char12、书籍表的设计用来记录所有书籍的基本信息，设计其字段结构如下表：表2书籍表的数据结构学生表列名数据类型长度允许空类号char2书号(主键)char6书名nchar50作者nchar16出版社nchar24封面nchar12单价int4数量int4借出int4库存int4日期datetime8简介ntext16允许借次int4允许3、借书卡表的设计用来记录用户借书的信息，设计其字段结构如下表：表3借书卡表的数据结构学生成绩表列名数据类型长度允许空id(主键)numeric9读者char8类号char2书号char6书名nchar50借出日期datetime8应还日期Datetime8实还日期Char8允许4、分类表的设计用来记录书籍分类的信息，设计其字段结构如下表：表4分类表的数据结构年级表列名数据类型长度允许空类号(主键)char2类名char85、交流表的设计用来记录读者交流的信息，设计其字段结构如下表：表5交流表的数据结构教师表列名数据类型长度允许空id(主键)int4读者char8类号char2书号char6书名nchar50心得ntext16日期datetime8三、系统的详细设计和制作（一）系统主窗体，用户登录，修改密码窗体的设计制作系统主窗体的设计制作系统运行时主窗体的界面如下图。窗体初始状态下只提供[登录]和[退出]功能。不同权限的用户登录成功后，他们能够操作使用的功能菜单栏会变为有效可用状态，其它菜单栏仍为禁用状态。图3系统主窗体运行初始界面为了实现主窗体的导航功能,把其设置为MDI窗体,并使它运行时最大化，添加一个图片框控件PictureBox1,为它装入一幅图片。添加一个主菜单，按照总体设计中的模块划分示意图建立各模块的对应菜单栏或菜单项，除[登录]和[退出]外，设置其它一级菜单栏的Enabled=False。最后再为主窗体添加一个定时器控件Timer1。以下是为主窗体及其上面控件编写的事件过程：为使图片框和屏幕大小相适应，编写主窗体的Form1_Load()事件过程代码为：PictureBox1.Width=Me.WidthPictureBox1.Height=Me.HeightPictureBox1.Left=0PictureBox1.Top=0编写主菜单上各菜单项的Click()事件过程，代码类似为：Dimfr1AsNew登录fr1.Show()用户登录成功后，为根据他们的权限导航到他们可以使用的功能菜单，编写定时器控件Timer1_tick()事件过程如下：SelectCaseTimer1.Tag.ToStringCase"0"Me.MenuItem2.Enabled=TrueMe.MenuItem3.Enabled=FalseMe.MenuItem12.Enabled=TrueMe.MenuItem13.Enabled=TrueMe.MenuItem17.Enabled=TrueCase"1"Me.MenuItem2.Enabled=TrueMe.MenuItem3.Enabled=TrueMe.MenuItem12.Enabled=TrueMe.MenuItem13.Enabled=FalseMe.MenuItem17.Enabled=TrueCase""Me.MenuItem2.Enabled=FalseMe.MenuItem3.Enabled=FalseMe.MenuItem12.Enabled=FalseMe.MenuItem13.Enabled=FalseMe.MenuItem17.Enabled=FalseEndSelectTimer1.Enabled=False登录窗体的设计制作登录窗体的设计界面如图4。注意设置输入姓名文本框的Maxlength=8，输入姓名文本框的Maxlength=8，并设置它的PasswordChar=”*”。为了实现窗体的功能，本窗体连接了教务系统数据库中的人员表，它的数据环境如图5：图5登录出图4登录窗体的设计界面为实现和其它窗体交流信息，在系统内创建一个模块文件moduler1,定义两个全局变量：PublicsfAsInteger=2PublicxmAsString用户登录成功后，要用主窗体及其定时器控件的Tag属性记录下登录者的记录序号及权限，为此编写登录按钮的Button1_Click()事件过程代码为：ForiAsInteger=0ToMe.图书馆DataSet.人员.Rows.Count-1IfTextBox1.Text.Trim=Me.图书馆DataSet.人员(i).姓名.TrimAndTextBox2.Text.Trim=Me.图书馆DataSet.人员(i).密码.TrimThenForm1.Tag=iForm1.Timer1.Tag=Me.图书馆DataSet.人员(i).身份xm=Me.图书馆DataSet.人员(i).姓名Form1.Timer1.Enabled=TrueMe.Close()ExitSubEndIfNextLabel3.Text="登录失败！重新输入姓名密码。"退出按钮Button2_Click事件过程的代码为：Me.Close()修改密码窗体的设计制作用户登录成功之后，可以更改自己的初始密码。修改密码窗体的设计界面如下图：图6修改密码窗体的设计界面修改密码窗体也只用到人员数据表，其数据环境和登录窗体完全一样（见图5）。为实现窗体功能，编写了以下事件过程：窗体初运行时，会显示“欢迎XXX修改自己密码”，为此，编写修改密码_Load（）事件过程代码为：Me.人员TableAdapter.Fill(Me.图书馆DataSet.人员)IfForm1.Tag=NothingThenLabel3.Text="你还没有登录！"ExitSubElseLabel1.Text="欢迎"+Me.图书馆DataSet.人员(Integer.Parse(Form1.Tag.ToString)).姓名.Trim+"修改自己的密码"EndIf(2)实现关闭修改密码窗口的Button2_Click事件的代码如下所示：Me.Close()内部管理模块的设计制作只有以管理员身份登录的用户才能使用此模块下的功能，包括对读者和管理员的注册，分类管理和书籍管理。注册窗体的设计制作注册窗体的设计界面如下图。数据环境同登陆窗体（见图5）。图7注册窗体的设计界界面为了实现为不同身份的人员注册，编写了以下代码。在主窗体的主菜单里，内部管理菜单栏下有“读者注册”和“管理人员注册”两个菜单项，点击后都可以运行入注册窗体。为了分清是从哪个菜单项进入注册窗体的的，在系统里添加了Modulel文件，在里面定义了一个项目级全局变量：PublicsfAsInteger=2在主窗体的“读者注册”和“管理人员注册”两个菜单项的Click事件过程里分别写入的代码为：sf=0Dimfr3AsNew注册fr3.Show()sf=1Dimfr3AsNew注册fr3.Show()在注册按钮Button1_Click事件过程里写入：Me.人员BindingSource.Filter="姓名='"+TextBox1.Text+"'Andm密码='"+TextBox2.Text+"'"IfMe.人员BindingSource.Count>0ThenLabel3.Text="已经有同姓名人注册！"ExitSubEndIfIfsf=0Then图书馆DataSet.人员.Add人员Row(TextBox1.Text,TextBox2.Text,"0")Else图书馆DataSet.人员.Add人员Row(TextBox1.Text,TextBox2.Text,"1")EndIfMe.人员TableAdapter.Update(图书馆DataSet.人员)图书馆DataSet.人员.AcceptChanges()Label3.Text="注册成功!"为了在窗体初运行时提示注册人员类型，编写窗体的注册_Load（）事件过程：Me.人员TableAdapter.Fill(Me.图书馆DataSet.人员)Ifsf=0ThenLabel1.Text="为普通读者注册"ElseLabel1.Text="为图书管理员注册"EndIf退出按钮Button2_Click事件的代码如下所示：Me.Close()分类管理窗体的设计制作：分类管理窗体的设计界面如图9；它要用到分类表，数据环境如图8。图8分类管理窗体的数据环境图9分类管理窗体的设计界面用户可以直接在数据表格里完成对分类表的添加，修改等操作。在更新按钮Button1_Click事件过程里编写了以下代码：Me.Validate()Me.分类BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.图书馆DataSet)在退出按钮Button2_Click事件过程里编写了以下代码：Me.Close()新书录入窗口的设计制作新书录入窗口的设计界面如下图：图10新书录入窗体的设计界面本窗体使用了分类表和书籍表，数据环境如下图：图11新书录入窗体的数据环境为了实现窗体功能,编写了以下事件过程:定义三个窗体级的全局变量:Dimc1,c2,c3AsString为了实现自动编制书号,编写了过程bh()如下:Subbh()IfMe.图书馆DataSet.书籍.Count=0ThenTextBox1.Text=Me.图书馆DataSet.分类(ComboBox1.SelectedIndex).类号+"0001"ElseDimnAsInteger=Integer.Parse(Me.图书馆DataSet.书籍(Me.图书馆DataSet.书籍.Count-1).书号.Substring(2,4))+1Ifn<10ThenTextBox1.Text=ComboBox1.SelectedValue+"000"+n.ToStringIfn>=10Andn<100ThenTextBox1.Text=ComboBox1.SelectedValue+"00"+n.ToStringIfn>=100Andn<1000ThenTextBox1.Text=ComboBox1.SelectedValue+"0"+n.ToStringIfn>=1000ThenTextBox1.Text=ComboBox1.SelectedValue+n.ToStringEndIfEndSub为实现窗体处世运行正常,编写窗体新增书籍_Load()事件如下:Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ComboBox1.SelectedIndex=0ComboBox1_SelectedIndexChanged(sender,e)TextBox7.Text=Today分类下拉列表ComboBox1_SelectedIndexChanged()事件过程代码如下:Me.图书馆DataSet.书籍.Clear()Dimc1AsString="select*from书籍where类号='"&ComboBox1.SelectedValue&"'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(Me.图书馆DataSet.书籍)DataGrid1.DataSource=Me.图书馆DataSet.书籍DataGrid1.Refresh()bh()封面上传按钮Button1_Click()事件过程代码为:c3=""IfButton1.Text="封面上传"ThenIfOpenFileDialog1.ShowDialog()=DialogResult.OKAndOpenFileDialog1.FileName<>""ThenMe.PictureBox1.Image=Image.FromFile(OpenFileDialog1.FileName)EndIfButton1.Text="保存封面"Elsec3=OpenFileDialog1.FileNamec3=c3.Substring(c3.LastIndexOf("\")+1)Me.PictureBox1.Image.Save(Application.StartupPath+"\image\"+c3)Button2.Enabled=TrueButton1.Enabled=FalseEndIf新书入库按钮Button2_Click()事件过程代码为:IfTextBox2.Text=""OrTextBox3.Text=""OrTextBox4.Text=""OrTextBox5.Text=""OrTextBox6.Text=""OrTextBox7.Text=""ThenMsgBox("书名等资料都不能为空！")ExitSubEndIfMe.图书馆DataSet.书籍.Add书籍Row(ComboBox1.SelectedValue,TextBox1.Text.Trim,TextBox2.Text.Trim,TextBox3.Text.Trim,TextBox4.Text.Trim,c3,CInt(TextBox5.Text),CInt(TextBox6.Text),0,CInt(TextBox6.Text),TextBox7.Text,Me.RichTextBox1.Text,0)Me.书籍TableAdapter.Update(图书馆DataSet.书籍)Me.图书馆DataSet.书籍.AcceptChanges()DataGrid1.Refresh()Button1.Text="封面上传"Button1.Enabled=TrueButton2.Enabled=Falsebh()TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text="0"TextBox6.Text="0"Me.RichTextBox1.Text=""退出按钮Button3_Click()事件过程代码为:Me.Close()EndSub书籍添置窗体的设计制作书籍添置窗口设计界面如下图：图12书籍添置窗体的设计界面为了实现窗体的功能，使用了图书馆数据库中的分类表和书籍表，它的数据环境如下图：图13书籍添置窗体的数据环境编写窗体的各事件过程代码如下：窗体的添加书籍_Load()事件过程代码为:Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ComboBox1.SelectedIndex=0ComboBox1_SelectedIndexChanged(sender,e)Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ComboBox1.SelectedIndex=0ComboBox1_SelectedIndexChanged(sender,e)下拉列表ComboBox1_SelectedIndexChanged()事件过程代码为:图书馆DataSet.书籍.Clear()Dimc1AsString="select*from书籍where类号='"&ComboBox1.SelectedValue&"'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)数据表格DataGrid1_CurrentCellChanged()事件过程代码为:IfMe.图书馆DataSet.书籍.Count>0ThenTextBox1.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).书号TextBox2.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).书名Me.PictureBox1.Image=Image.FromFile(".\image\"+图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).封面)Me.PictureBox1.Visible=TrueEndIf添加按钮Button2_Click()事件过程代码为:图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).数量+=CInt(TextBox6.Text)图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).库存+=CInt(TextBox6.Text)Me.书籍TableAdapter.Update(图书馆DataSet.书籍)图书馆DataSet.书籍.AcceptChanges()图片框PictureBox1_Click()事件过程代码为:Me.PictureBox1.Visible=False退出按钮Button3_Click()事件过程代码为:Me.Close()书籍报废窗体的设计制作书籍报废窗体的sheji界面如下图：图13书籍报废窗体的设计界面为了实现窗体功能，本窗体使用了图书馆数据库中的分类表和书籍表，它的数据环境,如下图：图14书籍报废窗体的数据环境窗体的各事件过程如下:窗体添加书籍_Load()事件过程代码为:Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ComboBox1.SelectedIndex=0ComboBox1_SelectedIndexChanged(sender,e)下拉列表ComboBox1_SelectedIndexChanged()事件过程代码为:图书馆DataSet.书籍.Clear()Dimc1AsString="select*from书籍where类号='"&ComboBox1.SelectedValue&"'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)数据表格DataGrid1_CurrentCellChanged()事件过程代码为:IfMe.图书馆DataSet.书籍.Count>0ThenTextBox1.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).书号TextBox2.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).书名Me.PictureBox1.Image=Image.FromFile(".\image\"+图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).封面)Me.PictureBox1.Visible=TrueEndIf报废按钮Button2_Click()事件过程代码为:Me.图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).数量-=CInt(TextBox6.Text)Me.图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).库存-=CInt(TextBox6.Text)Me.书籍TableAdapter.Update(Me.图书馆DataSet.书籍)Me.图书馆DataSet.书籍.AcceptChanges()图片框PictureBox1_Click()事件过程代码为:Me.PictureBox1.Visible=False退出按钮Button3_Click()事件过程代码为:Me.Close()书库查询模块的设计制作这个模块对所有登录成功者开放，包括“分类查询”、“新书介绍”和“热门排行榜”三个功能窗体，用户可以按照自己的需求点击主菜单中相应菜单项进入查询。1、分类查询书库窗体的设计制作分类查询窗体的运行界面如图16所示。为了实现窗体的功能，本窗体使用了图书馆数据库中的分类表和书籍表，它的数据环境如图15：图15分类查询书库窗体的数据环境图16分类查询书库窗体的运行界面窗体的各事件过程如下：窗体的分类查询书库_Load()事件过程代码为：Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ForiAsInteger=0To图书馆DataSet.分类.Rows.Count-1Me.ToolBar1.Buttons(i).Text=图书馆DataSet.分类(i).类名Me.ToolBar1.Buttons(i).Tag=图书馆DataSet.分类(i).类号Next图书馆DataSet.书籍.Clear()Dimc1AsString="select*from书籍where类号='01'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)DataGrid1.CurrentRowIndex=0DataGrid1_CurrentCellChanged(sender,e)数据表格DataGrid1_CurrentCellChanged（）事件过程代码为：Me.PictureBox1.Image=Image.FromFile(".\image\"+图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).封面)Me.RichTextBox1.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).简介工具条ToolBar1_ButtonClick()事件过程代码为：Ife.Button.Tag=""ThenMe.closeEndIf图书馆DataSet.书籍.Clear()Dimc1AsString="select*from书籍where类号='"&e.Button.Tag&"'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)If图书馆DataSet.书籍.Count>0ThenDataGrid1.CurrentRowIndex=0DataGrid1_CurrentCellChanged(sender,e)ElseMe.PictureBox1.Image=NothingMe.RichTextBox1.Text=""EndIf2、新书介绍窗体的的设计制作新书介绍窗体运行时界面如下图。图17新书介绍窗体的运行界面为了实现窗体的功能，本窗体使用了图书馆数据库中的分类表和书籍表，它的数据数据环境如下图：图18新书介绍窗体的数据环境窗体的各事件过程如下:窗体分类查询书库_Load()事件过程代码为:Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ForiAsInteger=0To图书馆DataSet.分类.Rows.Count-1Me.ToolBar1.Buttons(i).Text=图书馆DataSet.分类(i).类名Me.ToolBar1.Buttons(i).Tag=图书馆DataSet.分类(i).类号Next图书馆DataSet.书籍.Clear()Dimc1AsString="selecttop5*from书籍where类号='01'orderby日期desc"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)DataGrid1.CurrentRowIndex=0DataGrid1.CaptionText="文学小说类新书一览表"DataGrid1_CurrentCellChanged(sender,e)数据表格DataGrid1_CurrentCellChanged()事件过程代码为:Me.PictureBox1.Image=Image.FromFile(".\image\"+图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).封面)Me.RichTextBox1.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).简介工具条ToolBar1_ButtonClick()事件过程代码为:Ife.Button.Tag=""ThenMe.closeEndIf图书馆DataSet.书籍.Clear()Dimc1AsString="selecttop5*from书籍where类号='"&e.Button.Tag&"'"+"orderby日期desc"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)If图书馆DataSet.书籍.Count>0ThenDataGrid1.CurrentRowIndex=0DataGrid1_CurrentCellChanged(sender,e)ElseMe.PictureBox1.Image=NothingMe.RichTextBox1.Text=""EndIf3、热门排行榜窗体的设计制作热门排行榜窗体的设计运行界面如图20。为了实现窗体的功能，本窗体使用了图书馆数据库中的分类表和书籍表，它的数据环境如图19：图19热门排行榜窗体的数据环境图20热门排行榜窗体的运行界面窗体的各事件过程如下：窗体分类查询书库_Load()事件过程代码为：Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)ForiAsInteger=0To图书馆DataSet.分类.Rows.Count-1Me.ToolBar1.Buttons(i).Text=图书馆DataSet.分类(i).类名Me.ToolBar1.Buttons(i).Tag=图书馆DataSet.分类(i).类号Next图书馆DataSet.书籍.Clear()Dimc1AsString="selecttop5*from书籍where类号='01'orderby借次desc"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)DataGrid1.CurrentRowIndex=0DataGrid1.CaptionText="文学小说类新书一览表"DataGrid1_CurrentCellChanged(sender,e)数据表格DataGrid1_CurrentCellChanged()事件过程代码为：Me.PictureBox1.Image=Image.FromFile(".\image\"+图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).封面)Me.RichTextBox1.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).简介工具条ToolBar1_ButtonClick()事件过程代码为:Ife.Button.Tag=""ThenMe.closeEndIf图书馆DataSet.书籍.Clear()Dimc1AsString="selecttop5*from书籍where类号='"&e.Button.Tag&"'orderby借次desc"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)If图书馆DataSet.书籍.Count>0ThenDataGrid1.CurrentRowIndex=0DataGrid1_CurrentCellChanged(sender,e)ElseMe.PictureBox1.Image=NothingMe.RichTextBox1.Text=""EndIf书籍借阅管理模块设计借书和还书是图书馆管理系统中的主要功能模块。登录成功后读者可以点击主菜单里相应的菜单项进入这两个功能窗体。1、借书窗体的设计制作借书窗体的运行界面如下图：图21借书窗体的运行界面本窗体使用了图书馆数据库中的分类表和书卡表，它的数据环境,如下图：图22热门排行榜窗体的数据环境窗体的各事件过程如下：定义窗体级变量：DimnAsInteger=0窗体借书_Load()事件过程代码为：Me.借书卡TableAdapter.Fill(Me.图书馆DataSet.借书卡)Me.分类TableAdapter.Fill(Me.图书馆DataSet.分类)Me.书籍TableAdapter.Fill(Me.图书馆DataSet.书籍)图书馆DataSet.借书卡.Clear()Dimc1AsString="select*from借书卡where读者='"&xm&"'and实还日期='9999-12-31'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.借书卡)If图书馆DataSet.借书卡.Count>0ThenMsgBox("你还有书没有还，请先还书后再借！"):Me.Close():ExitSubDataGrid2.DataSource=图书馆DataSet.借书卡ForiAsInteger=0To图书馆DataSet.分类.Count-1Me.ToolBar1.Buttons(i).Text=图书馆DataSet.分类(i).类名Me.ToolBar1.Buttons(i).Tag=图书馆DataSet.分类(i).类号Next图书馆DataSet.书籍.Clear()Dimc2AsString="select*from书籍where类号='"&Me.ToolBarButton1.Tag&"'"Dimad1AsNewSqlClient.SqlDataAdapter(c2,Me.书籍TableAdapter.Connection)ad1.Fill(图书馆DataSet.书籍)工具条ToolBar1_ButtonClick()事件过程代码为：Ife.Button.Tag=""ThenMe.Close()EndIf图书馆DataSet.书籍.Clear()Dimc1AsString="select*from书籍where类号='"&e.Button.Tag&"'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.书籍TableAdapter.Connection)ad.Fill(图书馆DataSet.书籍)退出按钮Button2_Click()事件过程代码为：Me.Close()数据表格DataGrid1_CurrentCellChanged()事件过程代码为：DimiAsInteger=DataGrid1.CurrentRowIndexIfi>0ThenMe.PictureBox1.Image=Image.FromFile(".\image\"+图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).封面)Me.RichTextBox1.Text=图书馆DataSet.书籍(DataGrid1.CurrentRowIndex).简介IfMe.RadioButton1.CheckedThenIfn=5ThenMsgBox("你已经借满5本书！"):ExitSub图书馆DataSet.借书卡.Add借书卡Row(xm,图书馆DataSet.书籍(i).类号,图书馆DataSet.书籍(i).书号,图书馆DataSet.书籍(i).书名,Today,Today.AddDays(30),"9999-12-31")n+=1ElseForjAsInteger=0To图书馆DataSet.书籍.Rows.Count-1If图书馆DataSet.书籍(j).书号=图书馆DataSet.借书卡(DataGrid2.CurrentRowIndex).书号Then图书馆DataSet.书籍(j).借次-=1Me.书籍TableAdapter.Update(图书馆DataSet.书籍)图书馆DataSet.书籍.AcceptChanges()ExitForEndIfNext图书馆DataSet.借书卡(DataGrid2.CurrentRowIndex).类号=图书馆DataSet.书籍(i).类号图书馆DataSet.借书卡(DataGrid2.CurrentRowIndex).书号=图书馆DataSet.书籍(i).书号图书馆DataSet.借书卡(DataGrid2.CurrentRowIndex).书名=图书馆DataSet.书籍(i).书名EndIfMe.借书卡TableAdapter.Update(图书馆DataSet.借书卡)图书馆DataSet.借书卡.AcceptChanges()DataGrid2.Refresh()图书馆DataSet.书籍(i).借次+=1Me.书籍TableAdapter.Update(图书馆DataSet.书籍)图书馆DataSet.书籍.AcceptChanges()EndIf2、还书窗体的设计制作还书窗体的设计界面如下图：图23还书窗体的设计界面本窗体使用了图书馆数据库中的分类表和书卡表，它的数据环境,如下图：图24还书窗体的数据环境窗体的各事件过程如下：窗体还书_Load（）事件过程代码为：Me.借书卡TableAdapter.Fill(Me.图书馆DataSet.借书卡)图书馆DataSet.借书卡.Clear()Dimc1AsString="select*from借书卡where读者='"+xm+"'and实还日期='9999-12-31'"DimadAsNewSqlClient.SqlDataAdapter(c1,Me.借书卡TableAdapter.Connection)ad.Fill(图书馆DataSet.借书卡)Label1.Text="欢迎"+xm.Trim+"前来还书"If图书馆DataSet.借书卡.Rows.Count=0ThenMsgBox("你没有未归还的书！"):Me.Cl