条目中图分类号查询系统设计报告

分类号查询  时间:2021-02-28  阅读:()

Visual Basic课程设计报告

中图分类号查询系统

姓名:XXXXXXXX班级:XXXXXXXXXXX学号XXXXXXXXXX

难度☆☆☆☆©知识点 (1)树形视图控件的应用 (2)文本文件的读写;(3)拖放操作;

(4)选项卡的应用 (5)字符串处理 (6)图像列表控件的应用。

一. 设计功能

《中国图书馆分类法》是我国建国后编制出版的一部具有代表性的大型综合性分类法,是当今国内图书馆使用最广泛的分类法体系简称《中图法》 。本课程要求编制一个"中图分类号查询系统"程序供用户方便地浏览、查询、修改、添加和删除分类号。

具体需实现功能如下

(1) 启动程序后自动将中图分类号添加到树形视图中供用户实施浏览、查询、修改、添加和删除分类号的操作。

(2) 用户可以使用鼠标操作展开、折叠各个条目,浏览各个层次的分类号。如果一个分

□□

类号是一个大类(包含子条目)f显示文件夹图标~ ,否则显示为気。展开的大类显示

文件夹图标开3 。

(3)窗口右侧提供三个选项卡提供查询、添加和删除功能。在〃查询"选项卡的〃查询关键字〃文本框中输入要查询的学科名称(或名称的一部分) ,选择一种〃查找方式〃 然后点击〃放大镜"按钮放1 。用户单击"放大镜"按钮后,程序搜索用户要求的关键字所对应的分类号并添加到列

表框中。如在精确查找的模式下不能查找则弹出消息框询问用

户是否进行模糊查询。在模糊查询中只要学科名中包含查找关键字即被搜索排列出来前

面有"+"号的表示的是大类下辖子条目。另外 “查找结果"的列表框下面显示查到的条目数。

在"查找结果"列表框中双击一个分类号左侧的树型视图中自动展开显示相应条目。

4中图分类号是在不断发展和更新的通过"添加“选项卡可以添加新的分类号。首先在左侧树型视图中选择一个条目,在“添加〃选项卡的〃新条目编号"和〃新条目名称冲输入最新内容再单击〃添加到当前条目〃的按钮,新的条目会作为当前条目的子条目。如果选择的条目不是大类无子条目 添加新条目之后即升级为大类。

如果添加的条目编号已经存在程序会显示"条目编号已经存在。 、 丿_、  / 。在该系统中,一个条目的编号一定是以上一级的编号为开头所以添加新条目时程序会自动判断新输入的内容是否满足命名规则如果不符合会弹岀对话框显示〃请输入新条目编号和新条目

名称 、a编号应以上一级编号开头。 、 r等。

(5)在"删除"选项卡有两种方式可以删除已有的分类号,一种是从左边树型视图中选择一个条目然后单击"删除所选条目〃按钮或者是在按住"Ctrl 〃键的同时从树型视图中选择将要删除的条目确认删除后将其拖放至窗口右下方的"垃圾箱〃图标六上回收站的图标也随之改变为~

6修改分类号使用树型视图的〃在位编辑"功能类似于W i ndows资源管理器中文件夹的重命名。先要选择修改条目双击即可 确认后进入编辑状态输入新内容后回车或单击非编辑区即可修改分类号。

i j进入编辑迖态后只龍修改条目名擁不能修改编号\ 「厂 / 。

V注鎗卑与名称之向用一不空格芬隔。 

(7)程序在退出时 弹出对话框 询问是否保存更改内容,单击〃是"按钮保存并退出程序单击"否"则不保存内容。而取消则回到上一步。

二. 设计难点分析与心得:

(1)文本文件“ZTF L H.txt"的数据读入和保存时写入,即字符串的批量处理:

I .在数据读入的过程中首先需要使用Dir函数确认文件是否存在。

IfDir(fn)=”"Then 判断文件是否存在

msgl=MsgBox(…ZTFLH.txt”文件遗失,请找回该文件X X,vbOKOnlyf"中图分类号查询系

If msgl=1 Then '确定声明文件丢失

SS Tab.Enabled=False '选项卡置灰

End If

口.接着需要使用InStr函数定位Mid函数取出所选择的数据。in ti二In S tr(s td"*") '在字符串strl开始搜索*第一次出现的位置str2二Mid(strl,Z inti-1) '删掉已读入的字符,读出它前一个的位

皿.并用Line Input#语句整行读入。另外需要用EOF函数判断当前位置是否为文件尾位置。如果是返回True;否则返回False。

Do While Not EOF(l) 'EOF(])为文件尾e Input#1 s廿1 '读入—行IV.在写入修改文件时,需要使用For语句和Do. . .Loop的嵌套实现条目的逐个读入。

ForIngl二]7b Tree Viewl.Nodes.Count j二InStr(Tree Viewl.Nodes(lngl).text,"”)stKL=

Tree Vie wl ・No des(lngl).text '找到条目编

Setnodel二Tree Vie wl.Nodes(lngl) 存放该节Do 点

Set node2二nodel

If nodel.Parent Is Nothing Then '无父节点,无鱷作

Exit Do

End If

Set nodel=node2.Parent 有父节点s tr2二n o de l.Key&s tr2 '给str2赋上子时节点的数Loop Un til nodel Is Nothing strl 搜寻到根据条目时跳到下一个大类二strl&""&i&str2 i=0 '有父节点,则将子节点添加在航,并编s tr2二"”

Prin t#1,s trl

Next '将strl的数据写入文本文件"Z TFL H.txt"

(2)使用树型视图(TreeView)控件以层次形式显示分类号:

I •首先进行初始设置,并与ImageList空间连接。

Tree ViewLLineStyle二tvwTreeLines

TreeViewl. ImageList二ImageListl '使用ImageList图像控件保存图Tree Viewl.Style=tvwTreelinesPlusMinusPicture Text 标

I I •在程序运行中,要时刻注意TreeView状态的一致性,以删除过程为例保证图标的及时变化。

If msg二1 Then

If TreeViewLSelectedltem.Index v>0 Then

If Tree Viewl.Selectedltem.Previous Is Nothing And Tree ViewlSelectedltem.Next Is

Nothing Then

TreeViewl.Selectedltem.Paren t.Expa ndedlmage=3

TreeViewl.Nodes.Remove TreeViewl.Selectedltem.Index

TreeViewl.Nodes.Remove TreeViewl.Selectedltem.Index

End If

Imagel.Picture二ImageListl.ListImages(4) ・Picturechange=True

Exit Sub

End If

皿使用TreeView的在位编辑功能,注意要对新录入的条目仔细检查。

Private Sub TreeViewl_AfterLabelEdit(Can cel As Integer;NewString As String)

If NewString="“Then '未输入新内容

Cancel二1 'Cancel参数赋非零值,取消编辑回到之前内

Elself InStr(Ne wString, "")=0 Then '未输入正确格式

Call MsgBox("编号与名称之间用一个空格分隔! 、U vblnformation, "中图分类号查询系统7

Cancel二1 'Cancel参数赋非零值,取消编辑回到之前内

Else

inti二InStr(Ne wString,"”) '找到编号鏈_____If Mid(NewString,Z inti -1)v>Tree Viewl.Selectedltem.Key Then__________________________

'检查编号是否匹配Call MsgBox("只能修改条目名称不能修改编号 、 (-vblnformation, "中图分

类号查询系统") '不匹配报

Cancel二1 'Cancel参数赋非零值,取消编辑回到之前内

Else

CallMsgBoxC你所做的修改会在程序退出时自动保存! vb OKOnly+vblnformation,

"中图分类号查询系统") '弹出提示框

_______change=True '旧内容被改变,Change逻辑量置为真

End If

En d Sub

(3)使用拖放操作(Drag And Drop)实现拖动功能

「使用Drag方法实现什么时候调用该方法进入拖放状态也很重要。鼠标单击可以把插入点放置到文本框中为了不影响正常的编辑功能使用Ctrl键加鼠标启动拖放操作。

If Shift二2 Then '按下Ctrl键选择删除条目,开始拖放

久久网云-目前最便宜的国内,香港,美国,日本VPS云服务器19.9元/月起,三网CN2,2天内不满意可以更换其他机房机器,IP免费更换!。

久久网云怎么样?久久网云好不好?久久网云是一家成立于2017年的主机服务商,致力于为用户提供高性价比稳定快速的主机托管服务,久久网云目前提供有美国免费主机、香港主机、韩国服务器、香港服务器、美国云服务器,香港荃湾CN2弹性云服务器。专注为个人开发者用户,中小型,大型企业用户提供一站式核心网络云端服务部署,促使用户云端部署化简为零,轻松快捷运用云计算!多年云计算领域服务经验,遍布亚太地区的海量节点为...

RAKsmart含站群服务器/10G带宽不限流量首月半价

RAKsmart 商家估摸着前段时间服务器囤货较多,这两个月的促销活动好像有点针对独立服务器。前面才整理到七月份的服务器活动在有一些配置上比上个月折扣力度是大很多,而且今天看到再来部分的服务器首月半价,一般这样的促销有可能是商家库存充裕。比如近期有一些服务商挖矿服务器销售不好,也都会采用这些策略,就好比电脑硬件最近也有下降。不管如何,我们选择服务器或者VPS主机要本着符合自己需求,如果业务不需要,...

Vultr新用户省钱福利,最新可用优惠码/优惠券更新

如今我们无论线上还是线下选择商品的时候是不是习惯问问是不是有优惠活动,如果有的话会加速购买欲望。同样的,如果我们有准备选择Vultr商家云服务器的时候,也会问问是不是有Vultr优惠码或者优惠券这类。确实,目前Vultr商家有一些时候会有针对新注册用户赠送一定的优惠券活动。那就定期抽点时间在这篇文章中专门整理最新可用Vultr优惠码和商家促销活动。不过需要令我们老用户失望的,至少近五年我们看到Vu...

分类号查询为你推荐
jolicloud为什么开机时没有ubuntu的启动项啊个性qq资料`谁有最新 最有个性的QQ个性资料滚动代码来回滚动代码畅想中国淄博畅想中国消费怎么样雅虎天盾高手进来看看我该怎么办 新装的ie8 内存使用率达到100%了idc前线钢铁雄心2修改器分词技术什么是seo分词技术宽带接入服务器网络已连接,可无法连接到服务器为什么?网络已连接,可无法连接到服务声母是什么声母.韵母有哪些微信怎么看聊天记录微信在手机上怎么查看聊天记录
最便宜虚拟主机 美国主机排名 hawkhost mobaxterm evssl证书 标准机柜尺寸 论坛空间 双拼域名 空间论坛 七夕快乐英文 服务器维护方案 国外代理服务器地址 电信虚拟主机 重庆双线服务器托管 国外视频网站有哪些 银盘服务 美国盐湖城 东莞服务器托管 新加坡空间 中国电信测速网站 更多