VB课程设计报告 27.docx
- 文档编号:10035337
- 上传时间:2023-02-08
- 格式:DOCX
- 页数:13
- 大小:609.62KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课程设计报告 27 VB 课程设计 报告