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

分类号查询  时间: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键选择删除条目,开始拖放

收到几个新商家投稿(HostMem,无忧云,青云互联,TTcloud,亚洲云端,趣米云),一起发布排名不分先后

7月份已经过去了一半,炎热的夏季已经来临了,主机圈也开始了大量的夏季促销攻势,近期收到一些商家投稿信息,提供欧美或者亚洲地区主机产品,价格优惠,这里做一个汇总,方便大家参考,排名不分先后,以邮件顺序,少部分因为促销具有一定的时效性,价格已经恢复故暂未列出。HostMem部落曾经分享过一次Hostmem的信息,这是一家提供动态云和经典云的国人VPS商家,其中动态云硬件按小时计费,流量按需使用;而经典...

ftlcloud9元/月,美国云服务器,1G内存/1核/20g硬盘/10M带宽不限/10G防御

ftlcloud(超云)目前正在搞暑假促销,美国圣何塞数据中心的云服务器低至9元/月,系统盘与数据盘分离,支持Windows和Linux,免费防御CC攻击,自带10Gbps的DDoS防御。FTL-超云服务器的主要特色:稳定、安全、弹性、高性能的云端计算服务,快速部署,并且可根据业务需要扩展计算能力,按需付费,节约成本,提高资源的有效利用率。活动地址:https://www.ftlcloud.com...

incogne$2.5/月t芬兰VPS,AMD Ryzen、1Gbps带宽

IncogNet LLC是个由3个人运作的美国公司,主要特色是隐私保护,号称绝对保护用户的隐私安全。业务涵盖虚拟主机、VPS等,支持多种数字加密货币、PayPal付款。注册账号也很简单,输入一个姓名、一个邮箱、国家随便选,填写一个邮箱就搞定了,基本上不管资料的真假。当前促销的vps位于芬兰机房,全部都是AMD Ryzen系列的CPU,性能不会差的!5折优惠码:CRYPTOMONTH,支持:BTC,...

分类号查询为你推荐
打开网页出现错误我打开网页老出现错误是怎么了?bluestacksbluestacks怎么用?arm开发板ARM开发板和树莓派有什么区别唱吧电脑版官方下载电脑上可以安装唱吧吗?神雕侠侣礼包大全神雕侠侣手游每天送的元宝买什么合适ios7固件下载iOS7如何升级固件?人人逛街为什么女人都喜欢逛街?谢谢了,大神帮忙啊idc前线求电影敢死队电影里的歌曲!idc前线怎么知道我电脑是3兆的宽带?如何快速收录如何掌握百度收录之快速收录
工信部域名备案查询 抗投诉vps主机 fdcservers 163网 抢票工具 xfce 一元域名 网通ip 华为网络硬盘 anylink cdn加速原理 阿里校园 傲盾官网 umax120 昆明蜗牛家 东莞idc 服务器维护 php服务器 免费php空间 买空间网 更多