- 1、本文档共17页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
中图分类号查询系统设计报告
Visual Basic课程设计报告
中图分类号查询系统
姓名:xxxxxxxx 班级:xxxxxxxxxxx 学号:xxxxxxxxxx
难度:☆☆☆☆。知识点:(1)树形视图控件的应用;(2)文本文件的读写;(3)拖放操作;(4)选项卡的应用;(5)字符串处理;(6)图像列表控件的应用。
一、设计功能:
《中国图书馆分类法》是我国建国后编制出版的一部具有代表性的大型综合性分类法,是当今国内图书馆使用最广泛的分类法体系,简称《中图法》。,否则显示为。展开的大类显示文件夹图标。
(3)窗口右侧提供三个选项卡,提供查询、添加和删除功能。在“查询”选项卡的“查询关键字”文本框中输入要查询的学科名称(或名称的一部分),选择一种“查找方式”,然后点击“放大镜”按钮。用户单击“放大镜”按钮后,程序有哪些信誉好的足球投注网站用户要求的关键字所对应的分类号,并添加到列表框中。如在精确查找的模式下不能查找,则弹出消息框询问用户是否进行模糊查询。在模糊查询中,只要学科名中包含查找关键字即被有哪些信誉好的足球投注网站排列出来,前面有“+”号的表示的是大类,下辖子条目。另外,“查找结果”的列表框下面显示查到的条目数。
在“查找结果”列表框中双击一个分类号,左侧的树型视图中自动展开显示相应条目。
(4)中图分类号是在不断发展和更新的,通过“添加”选项卡可以添加新的分类号。首先在左侧树型视图中选择一个条目,在“添加”选项卡
的“新条目编号”和“新条目名称“中输入必威体育精装版内容,再单击”添加到当前条目“的按钮,新的条目会作为当前条目的子条目。如果选择的条目不是大类(无子条目),添加新条目之后,即升级为大类。
如果添加的条目编号已经存在,程序会显示“条目编号已经存在。╮(╯_╰)╭”。在该系统中,一个条目的编号一定是以上一级的编号为开头,所以添加新条目时,程序会自动判断新输入的内容是否满足命名规则,如果不符合会弹出对话框显示“请输入新条目编号和新条目名称!╮(╯_╰)╭”、“编号应以上一级编号开头。╮(╯_╰)╭”等。
(5)在“删除“选项卡,有两种方式可以删除已有的分类号,一种是从左边树型视图中选择一个条目,然后单击”删除所选条目“按钮;或者是在按住”Ctrl“键的同时,从树型视图中选择将要删除的条目,确认删除后将其拖放至窗口右下方的”垃圾箱“图标上,回收站的图标也随之改变为。
(6)修改分类号使用树型视图的“在位编辑”功能,类似于Windows资源管理器中文件夹的重命名。先要选择修改条目(双击即可),确认后进入编辑状态,输入新内容后,回车或单击非编辑区即可修改分类号。
(7)程序在退出时,弹出对话框,询问是否保存更改内容,单击“是”按钮保存并退出程序,单击“否”则不保存内容。而取消则回到上一步。
二、设计难点分析与心得:
(1)文本文件“ZTFLH.txt”的数据读入和保存时写入,即字符串的批量处理:
Ⅰ.在数据读入的过程中,首先需要使用Dir函数确认文件是否存在。
fn = App.Path \ZTFLH.txt
If Dir(fn) = Then ‘判断文件是否存在
msg1 = MsgBox(“ZTFLH.txt”文件遗失,请找回该文件!X﹏X, vbOKOnly, 中图分类号查询系统)
If msg1 = 1 Then ‘确定声明文件丢失
SSTab.Enabled = False ‘选项卡置灰
Exit Sub
End If
Ⅱ.接着需要使用InStr函数定位,Mid函数取出所选择的数据。
int1 = InStr(str1, *) ‘在字符串str1开始有哪些信誉好的足球投注网站“*”第一次出现的位置
str2 = Mid(str1, 1, int1 - 1) ‘删掉已读入的字符,读出它前一个的位置
Ⅲ.并用Line Input #语句整行读入。另外需要用EOF函数判断当前位置是否为文件尾位置。如果是,返回True;否则返回False。
Do While Not EOF(1) ‘EOF(1)为文件尾
Line Input #1, str1
文档评论(0)