课 程: 记事本的开发
学 号: 201130210114
姓 名: 吕仕雄
班 级: 1 1 3 2 1 0 1
专 业: 信息工程（信息安全）
小组成员: 吴彧 刘金强
20##-1
引言
随着计算机硬件技术的不断进步，计算机已经从当初的计算工具演变为如今的信息终端性质的工具，服务于各个行业领域。人们获取信息的方式是多种多样的，飞速发展的计算机技术给人们带来的是丰富的信息和多样化的获取信息的途径。电子计算机已广泛的应用于信息管理、文字处理、辅助设计、辅助教学及人们的日常生活中。特别是在计算机的操作系统具有了图形化的界面后，使用计算机已经不再是某些专业人员的专利，各行各业的人们不需要经过专业化的训练就能自如的在计算机上进行各种复杂的操作。 时下，为了能创造更大的经济效益和社会效益，更有利于参与国际竞争，越来越多的企业、公司和学校迫切需要引入现代化的管理手段，而计算机的大容量操作，精确的计算，使它成为企业管理不可缺少的手段之一，但随着计算机应用的不断深入，用户对软件的需求也不断增加，越来越多的用户希望拥有适合自己需要的特殊软件来满足自己的特殊要求。而用VB技术制作的记事本软件以其小巧精湛而深的广大用户的宠
Visual basic介绍
VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。
1. VB语言的基本特点及VB应用程序的基本持点
①可视化设
②事件驱动
2．程序开发过程
① 创建应用程序界面
② 设置属性
③ 编写代码
④ 保存应用程序
⑤ 调试，运行应用程序
⑥ 生成可执行文
记事本的开发
功能描述
该记事本具有简单的文本编辑功能，其功能主要包括文件的新建、打开、剪切、粘贴等。同时，该记事本还可以进行内容的查找和字体大小以及颜色的改变
实现图及代码
通过两个文本框，对自动换行的实现。再有就是载入时对窗体大小的设计，以及窗体变化时文本框随着窗体大小的变换，其主要代码如下：
Private Sub Form_Load()
Text2.Visible = False
Text1.FontSize = 16
Text2.FontSize = 16
自动换行.Checked = False
CommonDialog1.CancelError = True
Text1.Top = Form1.ScaleTop
Text1.Left = Form1.ScaleLeft
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight '运行时与窗体大小一致
Text2.Top = Form1.ScaleTop
Text2.Left = Form1.ScaleLeft
Text2.Width = Form1.ScaleWidth
Text2.Height = Form1.ScaleHeight
End Sub
Private Sub Form_Resize()
Text1.Top = Form1.ScaleTop
Text1.Left = Form1.ScaleLeft
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight '放大与缩小时也与窗体一致
Text2.Top = Form1.ScaleTop
Text2.Left = Form1.ScaleLeft
Text2.Width = Form1.ScaleWidth
Text2.Height = Form1.ScaleHeight
End Sub
编辑菜单的设计
代码如下
打开：
Private Sub Open_Click()
On Error Resume Next
CommonDialog1.ShowOpen
On Error GoTo bb:
If Text1.Visible = False Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text2.Text = Text2.Text & inputdata & vbCrLf
Loop
Close #1
Else
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text & inputdata & vbCrLf
Loop
Close #1
End If
bb: Close #1
End Sub
另存为
Private Sub AsSaveFile_Click()
On Error Resume Next
CommonDialog1.FileName = CommonDialog1.FileTitle
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave
On Error GoTo aa:
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
MsgBox "文件保存成功", 64, "提示"
Text1.Text = ""
Text2.Text = ""
aa: Exit Sub
End Sub
打印
Private Sub FilePrint_Click()
On Error Resume Next
CommonDialog1.ShowPrinter
If Text1.Visible = True Then
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.Text
Next i
Else
For i = 1 To CommonDialog1.Copies
Printer.Print Text2.Text
Next i
End If
Printer.EndDoc
End Sub
退出
Private Sub FileExit_Click()
If Text1.Text = "" And Text2.Text = "" Then
X = MsgBox("确定退出吗？", vbYesNo)
If X = 6 Then
End
End If
Else
On Error Resume Next
CommonDialog1.FileName = CommonDialog1.FileTitle
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave
On Error GoTo aa:
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
MsgBox "文件保存成功", 64, "提示"
Text1.Text = ""
Text2.Text = ""
aa: Exit Sub
End If
End Sub
编辑菜单，以及其他功能，代码就不一一介绍了。
查找功能则换了另一个窗体，实现是由form2.show实现的，其代码是仿照书本附页
Private Sub Command1_Click()
Dim s1 As String, s2 As String, l1 As Integer, l2 As Integer, n As Integer
Static X As Integer
If flag = True Then
X = 0
k = 1
flag = False
End If
If Check1.Value = 1 Then
If n > 0 Then
Text1.SetFocus
X = X + n
i = MsgBox("找到了""" & Text2 & """", 1 + 48)
Text1.SelStart = X - 1
Text1.SelLength = Len(Text2)
s = Mid(s, n + 1)
Else
MsgBox ("没有找到""" & Text2 & s)
End If
End If
If Option2.Value = True Then
n = InStr(UCase(s), UCase(Text2))
If n > 0 Then
Text1.SetFocus
X = X + n
i = MsgBox("找到了""" & Text2 & """", 1 + 48)
Text1.SelStart = X - 1
Text1.SelLength = Len(Text2)
s = Mid(s, n + 1)
Else
MsgBox "没有找到""" & Text2 & """"
End If
Else
s1 = StrReverse(Text1)
s2 = StrReverse(Text2)
l1 = Len(Text1)
l2 = Len(Text2)
n = InStr(k, UCase(s1), UCase(s2))
If n > 0 Then
Text1.SetFocus
i = MsgBox("找到了""" & Text2 & """", 11 + 48)
Text1.SelStart = l1 - (n + l2 - 1)
Text1.SelLength = l2
k = n + l2
Else
MsgBox "没有找到" & Text2 & """"
End If
End If
End Sub
格式中背景色，以及字体颜变实现代码如下：
Private Sub beijingse_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
Text2.BackColor = CommonDialog1.Color
End Sub
Private Sub mnufont_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont
Text1.FontSize = CommonDialog1.FontSize
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.ForeColor = CommonDialog1.Color
Text2.FontSize = CommonDialog1.FontSize
Text2.FontSize = CommonDialog1.FontSize
Text2.FontBold = CommonDialog1.FontBold
Text2.FontItalic = CommonDialog1.FontItalic
Text2.FontStrikethru = CommonDialog1.FontStrikethru
Text2.FontUnderline = CommonDialog1.FontUnderline
End Sub
参考书：《visual basic案例教程》电子工业出版社，《visual basic 程序设计实验指导》冶金工业出版社
总结
通过编这个简易记事本，我觉得编程不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，也许就是因为一个符号或一个字母，就得花上个几个小时，半天，甚至更长。越是这样越不能灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我们就一定能找到问题所在，最后一定能露出开心的笑容，也一定能找到成功者的感觉。所以编程能很好的锻炼人的意志。 同时，我觉得良好的编程习惯是必不可少的。在很多人的编程语言中，用“+”来连接字符串，这样容易导致歧义。良好的习惯是用“&”来连接字符串。此外，变量命名应大小写,语句错落有秩。还有，尽量使用Debug.print进行调试，在很多人的调试中,习惯用MsgBox来跟踪变量值。其实用Debug.print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除。
第二篇：VB 课程设计报告 模板
长江大学工程技术学院 机械设计基础课程设计 （2012-2013学年 第二学期）
系 (部)
专业班级
学生姓名
学号/序号 完成时间
机械系 机电专61102班 李航 201162335/14 20xx年7月10日
长江大学工程技术学院 VB语言程序设计课程设计报告
（2012-2013学年 第二学期）
系 (部)
专业班级
学生姓名 学号/序号 指导教师
完成时间
机械系 机电专61102班 / 张国英(讲师) /刘怀海(讲师) 20xx年6月21日
图书管理系统
一、 功能描述
实现对图书的管理，在后台使用数据记录操作的数据，依靠这些数据库的管理系统的管理功能来整理数据，实现对书籍信息表，书籍归还表，书籍借出表的集中有序管理，从而达到减轻工作负担，也减少了借书者的不便
书籍信息表：实现对所有图书的综合管理，建立对图书的图书编号，作者，出版社，数量，出版日期，价格的综合信心
图书归还表：对所有借出的情况进行有效的管理，建立归还的资料，并可对未归还或归还的的图书进行查询，查询是否损坏
图书借出表：能够对借阅图书的读者进行管理。建立读者信息和读者类别的信息资料，能够查询读者借出书籍的信息，并可分别按照图书编号、学号和图书名查询读者的信息资料
●系统用户的登录：实现用户通过用户名和密码进行登录的功能。
●图书管理：实现对图书的添加、查找、删除和修改的功能。
●流通管理：实现对图书的借阅和归还等功能。
●退出系统：结束图书管理系统。
二、 概要设计
1、系统功能模块框图设计
根据功能描述，建立系统的体系结构，即将整个系统分解成若干子功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能。
程序流程框图如图所示：（仅供参考）
图1 程序流程图
通过登录界面进入图书管理系统，进入界面选择与之相匹配的表格，信息表实现对图书的总管理，各种图书信息的分类和汇总，图书归还表实现对借出书籍归还的管理，对归还的书籍的情况进行总结，图书借出表对图书借出者的姓名，借出日期等等进行记录，以确保图书的完整，在图书信息表，图书归还表和图书借出表里的各类命令根据书籍的所需进行整编和管理
2、数据库设计
包括数据库的组成说明，数据库中各表的结构说明（包括字段名、字段类型等），可以包含图片例如下表：
表1 学生信息表
三、 详细设计
详细说明主要窗体的实现过程，包括窗体的设计图片及其上所包含的控件名和属性设置；
详细说明主要操作的代码实现过程，包括过程间的调用关系（注：在此给出不完全代码）。如下所示：
1、账号登录
账号登录模块中登录与注册两按钮，单击注册会进入注册模块中，单击登录会进入系统进行下一步的操作，账号文本框与数据库相连接，当在账号文本框输入账号后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该账号，且该账号的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该账号或密码与账号不相匹配，则会提示“账号或密码错误”，账号文本框会得到焦点，让重新输入。
（1）窗体截图（如图2）
图2 注册窗体
（2）功能实现
2、学生信息查询窗体
图3 查询窗体
四、 调试中存在的问题及解决方法
包括调试过程中遇到的主要问题及采取的解决方法。例如：
1、注册账号出现的错误
数据库中账号被设为主键，当注册时的账号与数局库中的账号有相同时就会出错。
2、解决方法：在写入数据库前先进行查询数据库
五、 心得体会
本人在本次实习中取得的收获、遇到的困难、如何面对和克服各种困难、本系统的不足之处，将要改进的思想等。
六、 参考文献
[1] 罗朝盛. Visual Basic 6.0程序设计教程(第3版). 人民邮电出版社，20xx年2月
[2]
[3]
七、 附录
包括全部源程序清单(程序中应有足够的注释)。
