1、数据库技术及应用实验指导书单位：电信学院编写者：李志刚、杨永辉迟涛、王立东、赵楠楠1目 录实验规则 2实验室仪器设备操作规程 3实验一 用 Access 数据库设计数据对象 4实验二 用 SQL Server 数据库设计数据对象 6实验三 用 Visual Basic 设计带有菜单的窗体 8实验四 用 Visual Basic 设计登录界面 11实验五 用 Visual Basic 设计界面显示数据库内容（一） 12实验五 用 Visual Basic 设计界面显示数据库内容（二） 14实验六 短消息信息发布系统的设计（一） 15实验六 短消息信息发布系统的设计（二） 18实验六 短消息信息发
2、布系统的设计（三） 19实验六 短消息信息发布系统的设计（四） 202实验规则为了维护正常的实验教学次序，提高实验课的教学质量，顺利的完成各项实验任务，确保人身、设备安全，特制定如下实验规则：一、实验前必须充分预习，完成指定的预习内容，预习要求如下：1、认真阅读本实验指导书，分析掌握本次实验的基本原理；2、完成各实验预习要求中指定的内容；3、熟悉实验任务。二、实验时，认真、仔细的写出源程序，进行调试，有问题向指导老师举手提问；而且后续实验内容需要用到前期使用的程序，因此学生要妥善保存好已经编写好的程序和数据库内容。三、实验时注意观察，如发现有异常现象（电脑故障或实验箱故障），必须及时报告指导老
3、师，严禁私自乱动。四、实验过程中应仔细观察实验现象，认真记录实验数据、波形、逻辑关系及其它现象。五、自觉保持实验室的肃静、整洁；实验结束后，必须清理实验桌，将实验设备、工具、导线按规定放好。六、凡有下列情况之一者，不准做实验：1、没有写预习报告者；2、实验开始后迟到10 分钟以上者；3、实验中不遵守实验室有关规定，不爱护仪器，表现不好而又不服从管理教育者；七、实验后，必须认真作好实验报告，下次实验时交实验指导老师批阅。没交实验报告者，在规定时间里必须交给实验指导老师，否则视为缺做一次实验。以上实验规则，请同学们自觉遵守，并互相监督。3实验室仪器设备操作规程1、 指导教师或实验工作人员应密切注视
4、实验人员的操作行为，如发现不按操作规程办事，或随意乱动室内的仪器设备，应予以制止；2、 进行本实验的学生，应具备一定的电脑知识，基本熟悉Windows操作系统的应用；3、 实验前，学生应在实验教师的指导下，学习实验软件Access和SQL Server2000软件的基本使用方法，了解这两种软件的使用方法，并在实验中逐步熟悉；4、 本实验室的仪器设备较贵重，严禁随意乱动；严禁在电脑上私设密码；实验时，必须按实验程序进行；5、 实验中，对于学生使用的各种仪器、仪表及实验连线，必须经实验指导教师审查确认后，方可接通电源；通电后，应随时观察是否正常工作，如发现异常情况，应立即切断电源，并报告指导教师，
5、在故障未排除之前，严禁强行通电，否则后果自负；6、 学生在指定桌上实验，除本桌仪器外，不得擅自取用其它仪器设备；如确需要取用，须经指导教师同意；7、 实验过程中，如发现损坏仪器设备、仪表工具，或软件不能正常使用等情况，应立即报告指导教师或实验工作人员；8、 实验完毕后，实验人员应清点好实验所用的一切仪器设备，并经实验指导教师同意后方可离开；9、 违规操作损坏的设备，除照价赔偿外，并给予相应的纪律处分。4实验一 用 Access 数据库设计数据对象一、实验目的和要求掌握用 Access 设计数据库对象，表和视图。二、实验器材1、PC 机一台；2、操作系统：Windows XP；3、开发软件：Ac
6、cess2003。三、实验原理借助 Access 数据库设计用户登录表、学生基本信息表、课程代码表、选课表、成绩登记表以及综合信息查询视图。四、实验内容1、新打开一个 Access2003 数据库，保存其名字为 Main.mdb。2、新建数据表的形式建立用户登记表。表名为 Tab_User，具有用户代码（User_Code）、用户名（User_Name）和密码（User_Pwd）。属性均为文本，其长度分别为 8、20 和 8 个字符。3、新建学生基本信息表。表名为 Tab_Stu_Info，具有学生学号 Stu_No、姓名 Stu_Name、性别 Stu_Sex、出生日期 Stu_Birth、
7、专业 Stu_Subject、身份证号码 Stu_ID、手机号码 Stu_Mobile 及备注 Stu_Memo 信息字段，其中学号为主键。属性均为文本，其长度分别为 10、20、2、8、30、18、12 和 30 个字符。4、新建课程代码表 Tab_Course。具有课程代码 Course_No、课程名Course_Name、学分 Course_Credit、开课学期 Course_Term、所针对专业Course_Subject 和备注 Course_Memo 字段。其中课程代码为主键。属性均为文本，长度分别为 5、30、3、1、30 和 30 个字符。5、新建学生选课表 Tab_Cour
8、se_Taken。具有课程代码 Course_No、类型代码 Course_Type、学生学号 Stu_No、选课时间 Taken_Time、授课教师Course_Teacher 和备注 Course_Memo 字段。其中课程代码为主键。属性均为文本，其长度分别为 5、1、10、8、20 和 30 个字符。6、新建学生成绩表 Tab_Stu_Score。具有学号 Stu_No、课程代码Course_No、成绩 Stu_Score 和备注 Score_Memo 字段。属性均为文本，其长度分别为 10、8、5 和 30 个字符。7.完成五个表的设计工作后，向每个表中至少添加五条记录。8.新建综合信
9、息查询视图。查询成绩在 85 分以上的学生姓名。五、实验步骤1、按照要求建立各个数据表，具有所要求各个字段，其属性和长度均要满足设计要求。2、按照要求设计查询视图。5六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。6实验二 用 SQL Server 数据库设计数据对象一、实验目的和要求掌握用 SQL Server 设计数据库对象，表和视图。二、实验器材 1、PC 机一台；2、操作系统：Windows XP；3、开发软件：SQ
10、L Server2000。三、实验原理借助 SQL Server 数据库设计用户登录表、学生基本信息表、课程代码表、选课表、成绩登记表以及综合信息查询视图。四、实验内容1、新打开一个 SQL Server2000 数据库，将其命名为 SMS_DB。2、新建数据表的形式建立用户登记表。表名为 Tab_User，具有用户代码（User_Code）、用户名（User_Name）和密码（User_Pwd）。属性均为Varchar，其长度分别为 8、20 和 8。3、新建学生基本信息表。表名为 Tab_Stu_Info，具有学生学号 Stu_No、姓名 Stu_Name、性别 Stu_Sex、出生日期
11、Stu_Birth、专业 Stu_Subject、身份证号码 Stu_ID、手机号码 Stu_Mobile 及备注 Stu_Memo 信息字段，其中学号为主键。属性均为 Varchar，其长度分别为 10、20、2、8、30、18、12 和 30。4、新建课程代码表 Tab_Course。具有课程代码 Course_No、课程名Course_Name、学分 Course_Credit、开课学期 Course_Term、所针对专业Course_Subject 和备注 Course_Memo 字段。其中课程代码为主键。属性均为Varchar，长度分别为 5、30、3、1、30 和 30。5、新建学
12、生选课表 Tab_Course_Taken。具有课程代码 Course_No、类型代码 Course_Type、学生学号 Stu_No、选课时间 Taken_Time、授课教师Course_Teacher 和备注 Course_Memo 字段。其中课程代码为主键。属性均为Varchar，其长度分别为 5、1、10、8、20 和 30。6、新建学生成绩表 Tab_Stu_Score。具有学号 Stu_No、课程代码Course_No、成绩 Stu_Score 和备注 Score_Memo 字段。属性均为 Varchar，其长度分别为 10、8、5 和 30。7.完成五个表的设计工作后，向每个表中
13、至少添加五条记录。8.新建综合信息查询视图。查询成绩在 85 分以上的学生姓名。五、实验步骤1、按照要求建立各个数据表，具有所要求各个字段，其属性和长度均要满足设计要求。2、按照要求设计查询视图。7六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。8实验三 用 Visual Basic 设计带有菜单的窗体一、实验目的和要求使用 Visual Basic 开发工具设计带有二级子菜单的窗体。二、实验器材1、PC 机一台；2、操作系
14、统：Windows XP；3、开发软件：Visual Basic6.0。三、实验原理借助 Visual Basic 设计带有一个窗体，再借助菜单编辑器设计二级子菜单。四、实验内容1、新建一个工程文件，标准的 EXE 文件格式。保存这个工程文件，将其命名为 GSM_SMS（含义为 Short Message System）2、设置窗体网格设置。【工具】-【选项】-【通用】-【窗体网格设置】（将宽度和高度均改为 30）。功能：可以减少窗体上网格的间距，从而可以对窗体上控件的位置进行精确调整。3、新建一个窗体，其属性设置如下：（1）、将其窗体名称改为 FrmMain，并保存，此名字即为登录界面中【确
15、定】按钮单击时在 show 方法之前的对象名称；（2）、将其 Caption 改为短信发布平台；（3）、将其 BorderStyle 设置为 Fixed Dialog；（4）、将其 ControlBox 设置为 False；（5）、将其 Moveable 设置为 False；（6）、将其 StartUpPosition 设置为【2-屏幕中心】；（7）、将其 Height 改为 8220，Width 改为 11130。4、运行菜单编辑器，生成五个一级菜单，分别为【系统】、【收发短信】、【短信管理】、【基本信息录入】、【数据字典维护】和【关于】，其名称分别为 Menu_System、Menu_SM
16、S、Menu_Msg_Manage、Menu_Dic_Manage 和Menu_About。5、在五个一级菜单中设置以下二级子菜单。（1）、在【系统】菜单下建立二级子菜单【登录系统】和【退出系统】，名称分别为 Menu_Logon 和 Menu_Logout；（2）、在【收发短信】菜单下建立二级子菜单【初始参数设置】、【发送短信】和【接收短信】,名称分别为 Menu_Para_Set、Menu_Send_Msg 和Menu_Receive_Msg；（3）、在【短信管理】菜单下建立二级子菜单【短信查询】和【短信管理】9，名称分别为 Menu_Msg_Find 和 Menu_Msg_Static；
17、（4）、在【基本信息录入】菜单下建立二级子菜单【车辆基本信息录入】和【违章信息录入】，其名称分别为 Menu_Motor_Info 和 Menu_Fine_Info。（5）、在【数据字典维护】菜单下建立二级子菜单【用户数据字典】和【违章类型数据字典】，其名称分别为 Menu_Dic_User 和 Menu_Dic_Fine。6、选择【工程】-【部件】，选中 Microsoft Comm Control6.0 和Microsoft Windows Common Control6.0。7、在工具箱中选择 ToolBar 控件.选中 ToolBar 控件，按鼠标右键的属性，【按钮】-【插入按钮】-填
18、写关键字后重复【插入按钮】-填写关键字的过程，直到将【退出系统】、【接收短信】和【发送短信】的快捷按钮完成，其关键字分别为 Menu_Exit、Menu_Receive_SM 和 Menu_Send_SM。8、添加一个新的窗体，其属性设置如下：（1）、将其窗体名改为 FrmLogon，并保存；（2）、将其 Caption 改为系统登录界面；（3）、将其 BorderStyle 设置为 Fixed Dialog；（4）、将其 ControlBox 设置为 False；（5）、将其 Moveable 设置为 False；（6）、将其 StartUpPosition 设置为 2-屏幕中心；（7）、将
19、其 Height 改为 4020，Width 改为 6300；（8）、在窗体上添加两个 Label、两个 TextBox 以及两个CommandButton，按照登录界面的要求进行摆放。其中两个 Label 的 Caption 分别为【用户名】和【口令】，清除两个 TextBox 中的内容，将两个CommandButton 的 Caption 分别改为【确定】和【取消】，Name 分别改为Cmd_Ok 和 Cmd_Cancel，然后保存。9、选择【工程】-【属性】-【通用】-将启动对象改为【FrmLogon】。10、用鼠标左键双击【确定】按钮，在过程 Private Sub Cmd_Ok_Cl
20、ick()中添加 FrmMain.Show 和 Unload Me 两行代码，分别表示装载主窗体 FrmMain 和卸载 FrmLogon（用 Me 表示当前活动窗体）。11、再新建一个窗体，保存其窗体名为 FrmSendSM。12、单击主窗体 FrmMain 的菜单，【收发短信】-【发送短信】，在Private Sub Menu_Send_Click()中添加 FrmSendSM.Show 一行代码，则系统将窗体 FrmSendSM 显示出来。注：在本实验指导书中，中括号【】中的内容才是需要输入的内容，而需要输入中括号【】。五、实验步骤1、建立工程文件，设置其名称并保存；2、按照要求建立各个
21、窗体，设置各窗体的属性值并保存，同时将FrmLogon窗体设置为启动工作对象；3、在主窗体上添加二级菜单，并添加快捷按钮；4、在登录窗体上添加Label、TextBox和CommandButton，并按照要求设置其属性，并添加【确定】按钮的程序代码，以调用主窗体；5、借助主窗体的菜单调用窗体FrmSendSM。10六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。11实验四 用 Visual Basic 设计登录界面一、 实验
22、目的和要求使用 Visual Basic 的集成开发环境设计用户登录界面。二、实验器材1、PC 机一台；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理借助 Visual Basic 的集成开发环设计登录窗体，如果输入用户名和口令正确则调用新的窗体。四、实验内容1、设计一个登录窗体，将其名称改为：FrmLogin，然后添加两个 label，分别作为用户名和口令的标签；2、在标签后面对应添加两个文本框，并命名；3、添加两个按钮，命名并修改按钮上的 Caption，其中一个是确认按钮，一个是退出按钮；4、添加确认按钮的鼠标单击
23、事件，在此事件中能够判断操作者在上述两个文本框中所输入的内容是否是系统之前已经确定好的合法的用户名和口令，默认用户名为：0001，口令为：0001；5、添加退出按钮的鼠标单击事件，在此事件中退出整个程序；6、新添一个窗体，当在登录界面录入的用户名和口令正确时，则系统自动调用新建的窗体，同时将登录窗体隐藏。五、实验步骤1、新建登录窗体，设置其属性；2、添加相应的控件，并设置控件的属性；3、添加按钮单击事件的程序代码，实现程序所要求的功能；4、在调用新的窗体的同时隐藏原有窗体；5、退出新窗体时，关闭所有的窗体。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中
24、获得了哪些收益；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。12实验五 用 Visual Basic 设计界面显示数据库内容（一）一、 实验目的和要求使用 Visual Basic 的 DAO 的数据访问方式访问 Access2003 数据库，并MSFlexGrid 显示其数据。二、实验器材1、PC 机一台；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理借助 Visual Basic 访问 Access2003 数据库，并借助控件 MSFlexGrid 显示数据库中的数据。四、实验内容5、将Fr
25、mLogon窗体设置为当前活动窗体，【视图】-【代码窗口】中在最上一行的下拉框中选择Form，在其右侧的下拉框中选择Activate,在Private Sub Form_Activate()添加代码相应代码。6、在Private Sub Cmd_Ok_Click()中添加对应代码。7、在【工程】-【部件】中添加“Microsoft Flex Grid Contro 6.0”8、将主窗体FrmMain设置为当前活动窗体，选择【视图】-【工具箱】，在【工具箱】中选择【MSFlexGrid】，设置其属性如下：（1）、将其Height改为4200，Width改为8300；（2）、将其Name改为MSF
26、Grid，并保存。9、选中MSFGrid，单击鼠标右键，选中【属性】-【样式】，在格式中添加“ 用户姓名 | 用户代码 | 口令 ”（注：双引号中的内容为需要添加的部分，其中符号的作用是使得其后面的空格有效），添加之后按【确定】按钮。五、实验步骤1、生成数据表，并插入记录；2、引用部件DAO；3、在工程中添加模块，并在其中定义一个全局变量；134、定位数据库文件，并打开数据库；5、添加部件；6、设置主窗体属性；7、添加MSFlexGrid控件，并设置其属性。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；下次实验应该从哪些地方进行改进；怎
27、样提高自己的实验效率和实验水平等等。14实验五 用 Visual Basic 设计界面显示数据库内容（二）一、实验目的和要求使用 Visual Basic 的 DAO 的数据访问方式访问 Access2003 数据库，并用控件 MSFlexGrid 显示其数据。二、实验器材 1、PC 机一台；2、操作系统：Windows XP3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理借助 Visual Basic 访问 Access2003 数据库，并借助控件 MSFlexGrid 显示数据库中的数据。四、实验内容1、进入上次实验所建工程文件的FrmMain窗体中，在
28、Private Sub Form_Load()中写入功能代码。2、明确子程序的编写的格式、虚实参的调用以及错误捕捉的方法；3、在上述的SQL语句中添加Where条件，然后再将其借助控件显示出来。五、实验步骤1、编写子例程程序；2、调用该程序显示数据；3、改变SQL语句，观察执行结果的不同。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。15实验六 短消息信息发布系统的设计（一）一、实验目的和要求1、了解短信息发布系统的业务需
29、求；2、构建系统逻辑模型；3、设计系统的数据对象并构造测试数据；4、设计短信发送界面。二、实验器材 1、PC 机一台；2、操作系统：WindowsXP；3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理1、结合“基于 GSM 短信的交警部门车辆违章信息发布平台”的应用背景了解系统的实际业务需求；2、使用 Access 数据库设计数据对象，并插入系统调试所需的数据。四、实验内容1、结合教师讲解和生活常识了解交警部门对违章车辆的处罚过程以及目前罚单信息的发布手段，从而了解本项目的实际意义；2、确定系统的各部分及其相应的功能；3、在项目小组中进行分工，明确每个成员的
30、任务分工；4、构建如下数据对象（1）、车辆基本信息表（Tab_Motor_Info）字段名 数据类型 数据长度 说明Motor_Code 文本 11 车牌号码，不可为空Motor_Host_Name 文本 20 车主姓名，不可为空Motor_Host_Tel 文本 12 车主手机号码，不可为空（2）、车辆违章信息表字段名 数据类型 数据长度 说明Motor_Code 文本 11 车牌号码，不可为空Fine_Type 文本 20 违章类型Fine_Number 文本 10 罚款金额，不可为空Fine_Time 文本 12 违章时间，格式为200905051220Fine_Content 文本 4
31、0 违章详情16Motor_Host_Name 文本 20 车主姓名，不可为空Motor_Host_Name_SP 文本 30 车主姓名双拼码，用于同音查询Motor_Host_Tel 文本 12 车主手机号码，不可为空Send_Time 文本 12 短信发送时间，格式为200901011010Send_OK_Flag 文本 1 短信发送成功标志，用Y和N表示成功与否。5、在领会上述数据表意义的基础上，向每个表中插入至少5条记录；6、新建一个工程，将之前设计的登录界面和带有窗体的界面添加到工程中，并新建车辆基本信息增加界面、违章信息录入界面和发送信息查询界面；7、添加新窗体，将其命名为Frm_
32、Fine_Info，设计其界面如下图所示说明：（1）以上窗体中各个文本框的命名如下（按照从上到下，从左到右）Txt_Motor_Code,Txt_Host_Name,Txt_Host_Tel,Txt_Year,Txt_Month,Txt_Day,Txt_Hour,Txt_Minute,Txt_Fine_Number,Txt_Fine_Detail（2）窗体中组合框ComboBox的命名为：Cmb_Fine_Type五、实验步骤1、了解业务流程，确定业务需求；2、构建系统逻辑模型，并进行任务分工；3、设计数据对象并插入构造测试数据；4、按照要求构造工程文件。六、实验报告要求171、写出实验步骤；
33、2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。18实验六 短消息信息发布系统的设计（二）一、实验目的和要求1、了解短信 Modem 配套的动态链接库的相关资料；2、在新添加的窗体中添加信息发送代码；3、编写短信发送代码。二、实验器材 1、PC 机一台、短信 Modem 一台、数据线一根；2、操作系统：WindowsXP；3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理1、为上次实验中所添加的新窗体 Frm_Fine_I
34、nfo 添加代码；2、在模块中添加短信 Modem 底层调用的函数。四、实验内容1、将 AscendComm.dll 和 AscendSMS.dll 两个文件拷贝到所建工程所在的目录中；2、新建一个模块，保存在工程文件所在的目录中，然后在其中添加功能代码。3、在新建的窗体 Frm_Fine_Info 中的 Form_Initialize 事件中，添加功能代码。4、在上次实验新添加的窗体 Frm_Fine_Info 中的“确定”按钮（需要将其命名为 Cmd_Ok）的单击事件中添加功能代码。5、在窗体 Frm_Fine_Info 中添加一个新的过程，主要功能为将各个文本框清空，添加相应的功能代码。
35、6、在窗体 Frm_Fine_Info 中添加一个新的过程，主要功能为进行短信发送，写出对应的功能代码。五、实验步骤1、了解短信发送的步骤；2、在模块中添加底层引用的函数；3、在窗体中添加相应的程序代码。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。19实验六 短消息信息发布系统的设计（三）一、实验目的和要求1、掌握串口通讯控件的设置方法；2、在数据库中新建违章类型数据表，并完成组合框的应用过程。二、实验器材1、PC 机
36、一台、数据线一根；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理1、在数据库中新建违章类型数据表，从而可以使用户对其进行相应的选择；2、熟悉串口通讯控件的使用方法；3、完成对组合框的应用设计，添加相应的程序代码。四、实验内容1、新建一个违章类型数据表，其格式如下表所示：字段名 类型 长度 说明Fine_Type 文本 20 违章类型在上述表中插入压双实线、闯红灯、违章停车、违章逆行、违章超车和违章变道。2、在VB的集成开发环境中，选择【工程】中的【部件】后，添加“Microsoft Comm Control6.0”，然后
37、按“确定”按钮。再在窗体Frm_Fine_Info上添加MSComm控件，并将其命名为MSComm1，并设置其属性。3、在窗体Frm_Fine_Info中Form_Load过程中添加相应的功能代码。五、实验步骤1、数据对象的设计和数据的添加；2、在工程中添加相应的部件；3、在窗体上添加相应的控件和程序代码。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。20实验六 短消息信息发布系统的设计（四）一、实验目的和要求1、掌握短
38、信 Modem 硬件的使用方法；2、对所设计的系统进行联合调试。二、实验器材1、PC 机一台、短信 Modem 一台、数据线一根；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0 和 Access2003。三、实验原理1、将 SIM 卡插入短信 Modem 中，并将数据线连接到计算机的串口上；2、完成对短信猫的调用，同时编辑短信进行发送；3、运行程序，进行联合调试后进行短信息发送，并生成可执行文件。四、实验内容1、将短信 Modem 进行正确的安装与连接；2、在窗体Frm_SMS_Send中【发送】按钮单击事件中添加相应的功能代码。3、选择VB集成开发环境中的【
39、运行】中的【全编译运行】，对系统进行联合调试；4、进行短信的发送测试；5、选择VB集成开发环境中的【文件】中的【生成工程1.exe】，生成系统的可执行文件并运行该文件。五、实验步骤1、进行短信Modem硬件的连接与安装；2、在窗体上添加相应的控件和程序代码；3、整体联合调试并生成可执行文件。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。21附录（一）、VB程序的设计过程1、建立工程；2、确定界面（确定窗体和确定控件） ；
40、3、编写程序代码；4、调试程序；5、生成可执行文件。（二）、使用DAO访问Access数据库的过程1、在工程中引用DAO；2、定义数据库对象；3、打开数据库；4、访问数据库；5、关闭数据库。（三）、使用VB IDE调试程序的过程1、添加断点；2、运行到断点处；3、添加立即窗口；4、逐语句（或逐过程）执行；5、在立即窗口中获取监控对性的值；6、清除所有断点。（四）、VB常用函数1、日期和时间函数222、算术及三角函数2、算术及三角函数3、数据类型转换函数23注意：插入按键的名称改成相应的1、在Main.mdb中新建表Tab_User, 具有User_Code、User_Name和User_Pwd
41、三个字段。属性均为文本，其长度分别为8、20和8个字符，并至少插入5条记录。2、在【工程】-【引用】中添加“Microsoft DAO 3.6 Object Library”;3、在【工程】-【添加模块】-【新建】-【打开】，将其保存为Module1.bas；4、用鼠标左键双击该模块，在其中添加如下代码：Public DB1 As Database窗体1 FrmMain主窗体窗体2 Frmlogon登录窗体窗体3 Dic_User添加窗体窗体4 Frm_User_Info输入窗体在窗体FrmMain中写下如下代码：Private Sub Menu_Dic_User_Click()Dic_Use
42、r.ShowEnd SubPrivate Sub Menu_Logout_Click()Unload MeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase “Menu_Exit“Unload MeEnd SelectEnd Sub在窗体Frmlogon中写下如下代码：Private Sub Cmd_Ok_Click()24Dim Str_sql As StringDim Rec_User As RecordsetOn Error GoTo E
43、rr1Str_sql = “select * from Tab_User where user_code=“ “Set Rec_User = DB1.OpenRecordset(Str_sql, dbOpenDynaset, dbConsistent)If Rec_User.BOF And Rec_User.EOF ThenMsgBox “无相应的用户！“, vbInformation, “提示信息“ElseFrmMain.ShowUnload MeEnd IfExit SubErr1: MsgBox Err.Description, vbInformation, “提示信息“End SubP
44、rivate Sub Form_Activate()On Error Resume NextIf Dir(App.Path + “Main.MDB“) = “ ThenMsgBox “主数据库文件丢失!如果以前做过数据库备份，现在请进行数据库恢复。否则请重新安装本系统。“, vbInformation, “提 示“Unload MeElseSet DB1 = OpenDatabase(App.Path + “Main.MDB“)Exit SubEnd IfEnd Sub在窗体Dic_User中，在中写入如下代码：Private Sub Form_Load()Dim i As Integer25
45、Dim rs As RecordsetSet DB1 = OpenDatabase(App.Path + “main.mdb“)Set rs = DB1.OpenRecordset(“select*from Tab_User where User_Code“)rs.MoveLastrs.MoveFirstMSFlexGrid1.Rows = 1MSFlexGrid1.Rows = rs.RecordCount + 1i = 1While (Not rs.BOF) And (Not rs.EOF)MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)MSFlexG
46、rid1.TextMatrix(i, 1) = rs.Fields(1)MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)rs.MoveNexti = i + 1Wendrs.CloseDB1.CloseEnd SubPrivate Sub del_Click()On Error Resume NextDim rs1 As RecordsetDim R_line As IntegerDim Row As IntegerSet DB1 = OpenDatabase(App.Path + “main.mdb“)Set rs1 = DB1.OpenRecordse
47、t(“select*from Tab_User“)Dim i As Integeri = MsgBox(“确实要删除当前记录吗?“, vbOKCancel + vbExclamation + vbDefaultButton1, “ 删除“)26If i = vbOK ThenRow = MSFlexGrid1.RowR_line = CInt(MSFlexGrid1.Row - 1)rs1.MoveFirstrs1.Move R_liners1.Deleters1.MoveNextMSFlexGrid1.RemoveItem RowIf rs1.EOF = True Thenrs1.MoveP
48、reviousEnd IfEnd IfExit Subrs1.CloseDB1.CloseEnd SubPrivate Sub add_Click()Frm_User_Info.ShowUnload MeEnd Sub在窗体Frm_User_Info（）里添加如下代码：Private Sub Command1_Click()Dim rs As RecordsetSet DB1 = OpenDatabase(App.Path + “main.mdb“)Set rs = DB1.OpenRecordset(“select*from Tab_User“, dbOpenDynaset)rs.MoveLast27rs.AddNewrs(“User_Code“) = Text1.Textrs(“User_Name“) = Text2.Textrs(“User_Pwd“) = Text3.Textrs.UpdateDic_User.ShowUnload Mers.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub
