VB实训报告.docx
- 文档编号:9882098
- 上传时间:2023-05-21
- 格式:DOCX
- 页数:14
- 大小:184.36KB
VB实训报告.docx
《VB实训报告.docx》由会员分享,可在线阅读,更多相关《VB实训报告.docx(14页珍藏版)》请在冰点文库上搜索。
VB实训报告
用户控制界面实训报告
学号:
081011041
姓名:
王跃
班级:
应电101
专业:
应用电子技术
目录
一、设计题目1
二、设计目的1
三、设计任务1
四、设计内容1
五、设计界面1
六、程序流程图6
七、程序清单及注释7
八、设计心得16
九、参考资料17
一、设计题目:
(1)题目:
学生学籍管理与串行通信综合系统
二、设计目的:
用户控制界面开发课程设计是本专业完成教学大纲要求的重要实践性环节之一,是培养应用性人才的一种教学形式。
《用户控制界面开发课程设计》通过运用VisualBasic6.0设计用户GUI界面,并实现PC机与PC机的串行通信以及单片机与上位机的串行通信,使得学生能真正掌握上位机的开发设计方法,并培养学生独立思考,刻苦钻研,同时注意树立团队意识,为今后走向工作岗位打下良好的基础。
三、设计任务
1、利用VisualBasic6.0独立设计用户GUI界面。
2、根据设计内容,画出程序的流程图并编写程序,实现程序相应的功能。
3、调试程序,测试所设计的软件直到满足设计要求。
四、设计内容
1、设计用户登录、管理及主界面等的GUI界面。
2、利用VisualBasic6.0的ADO或DATA控件实现对access数据库的相应
操作
3、利用VisualBasic6.0的MSComm控件实现PC机与PC机、PC机与单片机的相互通信。
五、设计界面
1、数据库访问:
利用VB界面实现对access数据库先注册后登录操作,然后对数据库中的纪录进行增加、删除、修改以及浏览操作。
2、菜单和工具栏的设计:
菜单和工具栏的建立,参见主界面。
任务二VB控制界面设计
利用串行控件实现与计算机或下位单片机的数据通信与控制。
使用VB6.0中的通信控件Microsoft Communication Control6.0(简称MSComm),对其属性和事件进行相应编程操作,以实现PC机的RS232串行接口和单片机异步串行通信接口之间的相互通信。
六、程序流程图
七、程序清单及注释
1、开始界面程序如下:
PrivateSubCommand1_Click()局部的子过程对象窗体装载事件
开始界面.Visible=False开始界面隐藏
主界面.Visible=True主界面显示
EndSub
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left-100'使标签的left属性(控件与窗体左边界的距离)值每隔0.1秒减少100,实现向左移动100个twip(长度单位,1twip=1/1440
IfLabel1.Left+Label1.Width<0Then'如果标签的left属性+标签width属性<0就执行下面的
Label1.Left=开始界面.Width'标签的left事件=窗体的width事件
EndIf
2、主界面程序如下
PrivateSubct_Click()
串通实验界面.Show
EndSub
privateSubdl_Click()
用户登录界面.Show
EndSub
PrivateSubEdit_Click()
学生信息界面.Show
EndSub
PrivateSubForm_Load()
Toolbar1.Buttons.Item(4).Enabled=False
Toolbar1.Buttons.Item(5).Enabled=False
EndSub
PrivateSubtc_Click()
End
EndSub
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
Case"dl"
dl_Click
Case"ct"
ct_Click
Case"xj"
Edit_Click
Case"zc"
用户注册界面.Show
Case"zx"
用户注销界面.Show
EndSelect
EndSub
PrivateSubzc_Click()
用户注册界面.Show
EndSub
PrivateSubzx_Click()
用户注销界面.Show
EndSub
3.用户登录界面程序如下:
DimcAsInteger
PrivateSubCommand1_Click()
a=Text1.Text:
b=Text2.Text:
c=c+1
Ifa<>""Orb<>""Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find"用户名='"&a&"'"
EndIf
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"用户名不存在,请重新注册",,"提示"
ExitSub
Adodc1.Recordset.MoveFirst
EndIf
Ifb<>Adodc1.Recordset.Fields("密码")Andn<3Then
MsgBox"用户名或密码错误请重新输入,还有"&3-c&"次机会"
Ifc=3ThenEnd
ExitSub
Else
UnloadMe
学生信息界面.Show
主界面.ct.Enabled=True
主界面.Edit.Enabled=True
主界面.Toolbar1.Buttons.Item(4).Enabled=True
主界面.Toolbar1.Buttons.Item(5).Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click()
用户登录界面.Hide
主界面.Show
EndSub
PrivateSubCommand3_Click()
用户注册界面.Show
EndSub
4.用户注册界面
PrivateSubCommand1_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand2_Click()
IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""Then
MsgBox"学号用户名密码有为空,请重新输入",,"提示"
ExitSub
EndIf
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find"用户名='"&Text1.Text&"'"
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名存在,请重新输入"
Adodc1.Recordset.MoveFirst
ExitSub
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名")=Text1.Text
Adodc1.Recordset.Fields("密码")=Text2.Text
Adodc1.Recordset.Fields("确认密码")=Text3.Text
Adodc1.Recordset.Fields("真实姓名")=Text4.Text
Adodc1.Recordset.Fields("年龄")=Text5.Text
Adodc1.Recordset.Fields("班级")=Text6.Text
Adodc1.Recordset.Update
EndIf
EndSub
5.学生信息界面
DimaAsInteger
PrivateSubCommand1_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOF=TrueThen
Adodc1.Recordset.MoveFirst
EndIf
EndSub
PrivateSubCommand2_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand3_Click()
IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""Then
MsgBox"信息有空,请重新输入",,"提示"
ExitSub
EndIf
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find"学号='"&Text1.Text&"'"
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"学号存在,请重新输入"
Adodc1.Recordset.MoveFirst
ExitSub
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("学号")=Text1.Text
Adodc1.Recordset.Fields("姓名")=Text2.Text
Adodc1.Recordset.Fields("性别")=Text3.Text
Adodc1.Recordset.Fields("年龄")=Text4.Text
Adodc1.Recordset.Fields("班级")=Text5.Text
Adodc1.Recordset.Fields("专业")=Text6.Text
Adodc1.Recordset.Update
EndIf
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Fields("学号")=Text1.Text
Adodc1.Recordset.Fields("姓名")=Text2.Text
Adodc1.Recordset.Fields("性别")=Text3.Text
Adodc1.Recordset.Fields("年龄")=Text4.Text
Adodc1.Recordset.Fields("班级")=Text5.Text
Adodc1.Recordset.Fields("专业")=Text6.Text
Adodc1.Recordset.Update
EndSub
PrivateSubCommand5_Click()
IfAdodc1.Recordset.BOF=TrueOrAdodc1.Recordset.EOF=TrueThen
MsgBox"数据库为空不必删除",,"提示"
ExitSub
EndIf
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand6_Click()
Command6.Visible=False
Command7.Visible=True
DataGrid1.Visible=True
EndSub
PrivateSubCommand7_Click()
Command7.Visible=False
Command6.Visible=True
DataGrid1.Visible=False
EndSub
PrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)
OnErrorResumeNext
Ifa=1Then
a=0
ExitSub
EndIf
Text1.Text=Adodc1.Recordset.Fields("学号")
Text2.Text=Adodc1.Recordset.Fields("姓名")
Text3.Text=Adodc1.Recordset.Fields("性别")
Text4.Text=Adodc1.Recordset.Fields("年龄")
Text5.Text=Adodc1.Recordset.Fields("班级")
Text6.Text=Adodc1.Recordset.Fields("专业")
EndSub
8、设计心得
通过此次实训我们掌握了许多有关vb设计的知识,在我们原有的基础上提高许多,尤其是在设计程序时即巩固了以前学习的知识又增添许多新的内容还锻炼了我的逻辑思维能力和动手能力,在调试程序的环节的过程中遇到了种种困难在老师的帮助下都能一一解决,尤其是当我做完程序时心里有一种成就感,感觉非常的快乐,在以后的学习中我会更加努力好好学好VB为以后的工作打下坚实的基础。
10、参考资料
1、界面设计与visualbasic
2、界面设计大纲任务书
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 报告