VB课程设计报告 27.docx
《VB课程设计报告 27.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告 27.docx（13页珍藏版）》请在冰豆网上搜索。
VB课程设计报告27
沈阳航空航天大学
课程设计
学号
班级____
姓名____
指导教师______
2012年3月10日
沈阳航空航天大学
课程设计任务书
学院：
机电工程学院专业：
机械设计制造及其自动化班级：
04060101
学号：
2010040601023题目：
旅店登记系统
一、课程设计时间
2011年3月05日~9日（第1周），共计1周,20学时。
二、课程设计内容
用VB编写软件完成以下任务：
（1）输入房间信息（旅店的房间号，价钱，是否住旅客等）保存在hotel.txt文件中。
（2）新入住旅客住店登记。
（3）旅客信息（旅客房间号，姓名，旅客身份证号，联系方式等）保存在person.txt
文件中。
（4）旅客退店。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“房间信息添加”、“旅客入住”、“退房间”、“退出”4项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
____学生签名：
____
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点6
主要界面截图8
总结10
完整的源程序11
参考文献14
需求分析
利用VB编程对txt文本进行输入和读取，运行界面上有题目的编号，题目的描述，知识点系数，难度系数以及有该题目的运行界面。
实现对旅店登记系统题目的增加，删除，编辑和浏览等功能。
设计分析
（1）概述：
通过数组和随机变量实现对txt文本的输入和读取，使查询结果显示在相应的对话框内，以达到满足旅店登记系统的目的。
使用随机变量对记录进行浏览和操作。
利用总记录数表示总房间上。
（2）总体设计：
图一（整体流程图）
（3）详细设计：
图二（添加修改房间信息）
图三（浏览更改旅客住店情况）
技术要点
1关于数据的记录
利用随机变量和数组建立一个txt文本文件，通过设置数据的“0”、“1”实现单选按钮的作用，将房间信息和住店情况显示在相应的文本框中。
2If…Then条件语句的应用
（1）If<表达式>Then
<语句块>
（2）If<表达式>Then<语句>
3随机文件
在随机文件中，文件中每条的长度都是相同的，记录与记录之间不需要特殊的分隔符号。
用户只要给出记录号，就可以直接访问某一特定记录。
因此，与顺序文件相比，它的优点是存取速度快，更新简便。
4Msgbox的应用
用Msgbox函数来提示相关内容。
例如：
MsgBox"成功了",,"提示":
5文本框属性的变化
改变文本框的属性，防止错误操作。
例如：
Text1.Enabled=True
Text1.Enabled=flase
主要界面截图
图三（主要界面
（1））
图四（person.txt的记录方式）
图五（添加公共模块定义数据类型）
总结
通过这次课设的VB程序设计，让我更加深入的了解了关于VB程序设计和随机变量和数组等的的一些知识，对所学的知识有了更好的运用。
在要求的课设内容中，应用相对独立的、完整的单元知识解决实际项目，设计编写一个小的程序，利用VB用以实现旅店登记系统的管理和维护。
运用了增加，删除，编辑和浏览等功能。
开始时对VB的程序结构把握和了解不全面，对编程机理了解不透彻，容易盲目的照搬书上的程序代码却不理解其意义。
但应用在自己不同的题目中还是有问题，通过认真看书上的解释每个控件的作用真正理解程序的意思。
经过不断修改，编辑运用在自己的程序中。
最终完成题目要求，较全面的成功编写程序。
完整的源程序
（一）Public模块
TypePerstype
iNo1AsInteger
strNameAsString*20
strSexAsString*1
strNo2AsString*1000
sNo3AsString*200
EndType
'在窗体的“通用”段中定义记录变量
TypeHotetype
kNo4AsInteger
strMoneAsString*200
sYnAsString*1
EndType
（二）Private模块
DimPersonAsPerstype
DimRecord_No1AsInteger
DimHotelAsHotetype
DimRecord1_No4AsInteger'在窗口中定义事件过程
SubForm_load（）
Open"C:
\person.txt"ForRandomAs#1Len=Len（Person）'打开随机文件
Label7.Caption=LOF
（1）/Len（Person）'计算总记录数并显示
Close#1'关闭文件
Open"D:
\hotel.txt"ForRandomAs#2Len=Len（Hotel）'打开随机文件
Label13.Caption=LOF
（2）/Len（Hotel）'计算总记录数并显示
Close#2'关闭文件
EndSub
'添加记录
SubCommand1_Click（）
WithPerson'使用With语句将输入数据赋给记录变量
.iNo1=Val（Text1.Text）
.strName=Text2.Text
.strSex=IIf（Option1.Value,"1","0"）
.strNo2=Val（Text3.Text）
.sNo3=Val（Text4.Text）
EndWith
Open"C:
\person.txt"ForRandomAs#1Len=Len（Person）
Record_No1=LOF
（1）/Len（Person）+1
Label7.Caption=Record_No1
Put#1,Record_No1,Person
Close#1
EndSub
'显示记录
SubCommand2_click（）
Open"C:
\person.txt"ForRandomAs#1Len=Len（Person）'打开随机文件
Record_No1=Val（Text5.Text）
Get#1,Record_No1,Person
Text1.Text=Person.iNo1
Text2.Text=Person.strName
IfPerson.strSex="1"Then
Option1.Value=True
Else
Option2.Value=True
EndIf
Text3.Text=Person.strNo2
Text4.Text=Person.sNo3
Record_No1=LOF
（1）/Len（Person）
Close#1
EndSub
SubCommand3_click（）
WithPerson'使用With语句将输入数据赋给记录变量
.iNo1=0
.strName=0
.strSex=0
.strNo2=0
.sNo3=0
EndWith
Open"C:
\person.txt"ForRandomAs#1Len=Len（Person）
Record_No1=Val（Text5.Text）
Put#1,Record_No1,Person
Close#1
EndSub
'显示记录
SubCommand4_click（）
WithHotel'使用With语句将输入数据赋给记录变量
.kNo4=Val（Text6.Text）
.strMone=Text7.Text
.sYn=IIf（Option3.Value,"1","0"）
EndWith
Open"C:
\hotel.txt"ForRandomAs#2Len=Len（Hotel）
Record1_No4=LOF
（2）/Len（Hotel）+1
Label13.Caption=Record1_No4
Put#2,Record1_No4,Hotel
Close#2
EndSub
'显示记录
SubCommand5_click（）
Open"C:
\hotel.txt"ForRandomAs#2Len=Len（Hotel）'打开随机文件
Record1_No4=Val（Text6.Text）
Get#2,Record1_No4,Hotel
Text7.Text=Hotel.strMone
IfHotel.sYn="1"Then
Option3.Value=True
Else
Option4.Value=True
EndIf
Record1_No4=LOF
（2）/Len（Hotel）
Close#2
EndSub
SubCommand6_click（）
WithHotel
.kNo4=Val（Text6.Text）
.strMone=Text7.Text
.sYn=IIf（Option3.Value,"1","0"）
EndWith
Open"C:
\hotel.txt"ForRandomAs#2Len=Len（Hotel）
Record1_No4=Val（Text6.Text）
Put#2,Record1_No4,Hotel
Close
EndSub
SubCommand7_click（）
a=Val（InputBox（"退出请按1,其它键为无效操作"））
Ifa=1ThenEnd
EndSub
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2005
[2]白晓勇．《VisualBasic程序设计——案例分析》．北京：
清华大学出版社，2007
升级会员 