《数据库技术及应用》实验指导书2012.doc

数据库技术及应用实验指导书单位：电信学院编写者：李志刚、杨永辉 迟涛、王立东、赵楠楠目 录实验规则2实验室仪器设备操作规程3实验一 用Access数据库设计数据对象4实验二 用SQL Server数据库设计数据对象6实验三 用Visual Basic设计带有菜单的窗体8实验四 用Visual Basic设计登录界面11实验五 用Visual Basic设计界面显示数据库内容（一）12实验五 用Visual Basic设计界面显示数据库内容（二）14实验六 短消息信息发布系统的设计（一）15实验六 短消息信息发布系统的设计（二）18实验六 短消息信息发布系统的设计（三）19实验六 短消息信息发布系统的设计（四）20实验规则为了维护正常的实验教学次序，提高实验课的教学质量，顺利的完成各项实验任务，确保人身、设备安全，特制定如下实验规则：一、实验前必须充分预习，完成指定的预习内容，预习要求如下：1、认真阅读本实验指导书，分析掌握本次实验的基本原理；2、完成各实验预习要求中指定的内容；3、熟悉实验任务。二、实验时，认真、仔细的写出源程序，进行调试，有问题向指导老师举手提问；而且后续实验内容需要用到前期使用的程序，因此学生要妥善保存好已经编写好的程序和数据库内容。三、实验时注意观察，如发现有异常现象（电脑故障或实验箱故障），必须及时报告指导老师，严禁私自乱动。四、实验过程中应仔细观察实验现象，认真记录实验数据、波形、逻辑关系及其它现象。五、自觉保持实验室的肃静、整洁；实验结束后，必须清理实验桌，将实验设备、工具、导线按规定放好。六、凡有下列情况之一者，不准做实验：1、没有写预习报告者；2、实验开始后迟到10 分钟以上者；3、实验中不遵守实验室有关规定，不爱护仪器，表现不好而又不服从管理教育者；七、实验后，必须认真作好实验报告，下次实验时交实验指导老师批阅。没交实验报告者，在规定时间里必须交给实验指导老师，否则视为缺做一次实验。以上实验规则，请同学们自觉遵守，并互相监督。实验室仪器设备操作规程1、 指导教师或实验工作人员应密切注视实验人员的操作行为，如发现不按操作规程办事，或随意乱动室内的仪器设备，应予以制止；2、 进行本实验的学生，应具备一定的电脑知识，基本熟悉Windows操作系统的应用；3、 实验前，学生应在实验教师的指导下，学习实验软件Access和SQL Server2000软件的基本使用方法，了解这两种软件的使用方法，并在实验中逐步熟悉；4、 本实验室的仪器设备较贵重，严禁随意乱动；严禁在电脑上私设密码；实验时，必须按实验程序进行；5、 实验中，对于学生使用的各种仪器、仪表及实验连线，必须经实验指导教师审查确认后，方可接通电源；通电后，应随时观察是否正常工作，如发现异常情况，应立即切断电源，并报告指导教师，在故障未排除之前，严禁强行通电，否则后果自负；6、 学生在指定桌上实验，除本桌仪器外，不得擅自取用其它仪器设备；如确需要取用，须经指导教师同意；7、 实验过程中，如发现损坏仪器设备、仪表工具，或软件不能正常使用等情况，应立即报告指导教师或实验工作人员；8、 实验完毕后，实验人员应清点好实验所用的一切仪器设备，并经实验指导教师同意后方可离开；9、 违规操作损坏的设备，除照价赔偿外，并给予相应的纪律处分。实验一 用Access数据库设计数据对象一、实验目的和要求掌握用Access设计数据库对象，表和视图。二、实验器材1、PC机一台；2、操作系统：Windows XP；3、开发软件：Access2003。三、实验原理借助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、专业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_Course_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.新建综合信息查询视图。查询成绩在85分以上的学生姓名。五、实验步骤1、按照要求建立各个数据表，具有所要求各个字段，其属性和长度均要满足设计要求。2、按照要求设计查询视图。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验二 用SQL Server数据库设计数据对象一、实验目的和要求掌握用SQL Server设计数据库对象，表和视图。二、实验器材1、PC机一台；2、操作系统：Windows XP；3、开发软件：SQL 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、出生日期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、新建学生选课表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.完成五个表的设计工作后，向每个表中至少添加五条记录。8.新建综合信息查询视图。查询成绩在85分以上的学生姓名。五、实验步骤1、按照要求建立各个数据表，具有所要求各个字段，其属性和长度均要满足设计要求。2、按照要求设计查询视图。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验三 用Visual Basic设计带有菜单的窗体一、实验目的和要求使用Visual Basic开发工具设计带有二级子菜单的窗体。二、实验器材1、PC机一台；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0。三、实验原理借助Visual Basic设计带有一个窗体，再借助菜单编辑器设计二级子菜单。四、实验内容1、新建一个工程文件，标准的EXE文件格式。保存这个工程文件，将其命名为GSM_SMS（含义为Short Message System）2、设置窗体网格设置。【工具】-【选项】-【通用】-【窗体网格设置】（将宽度和高度均改为30）。功能：可以减少窗体上网格的间距，从而可以对窗体上控件的位置进行精确调整。3、新建一个窗体，其属性设置如下：（1）、将其窗体名称改为FrmMain，并保存，此名字即为登录界面中【确定】按钮单击时在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_SMS、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）、在【短信管理】菜单下建立二级子菜单【短信查询】和【短信管理】，名称分别为Menu_Msg_Find和Menu_Msg_Static；（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控件，按鼠标右键的属性，【按钮】-【插入按钮】-填写关键字后重复【插入按钮】-填写关键字的过程，直到将【退出系统】、【接收短信】和【发送短信】的快捷按钮完成，其关键字分别为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）、将其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_Click()中添加FrmMain.Show和Unload Me两行代码，分别表示装载主窗体FrmMain和卸载FrmLogon（用Me表示当前活动窗体）。11、再新建一个窗体，保存其窗体名为FrmSendSM。12、单击主窗体FrmMain的菜单，【收发短信】-【发送短信】，在Private Sub Menu_Send_Click()中添加FrmSendSM.Show一行代码，则系统将窗体FrmSendSM显示出来。注：在本实验指导书中，中括号【】中的内容才是需要输入的内容，而需要输入中括号【】。五、实验步骤1、建立工程文件，设置其名称并保存；2、按照要求建立各个窗体，设置各窗体的属性值并保存，同时将FrmLogon窗体设置为启动工作对象；3、在主窗体上添加二级菜单，并添加快捷按钮；4、在登录窗体上添加Label、TextBox和CommandButton，并按照要求设置其属性，并添加【确定】按钮的程序代码，以调用主窗体；5、借助主窗体的菜单调用窗体FrmSendSM。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验四 用Visual Basic设计登录界面一、 实验目的和要求二、使用Visual Basic的集成开发环境设计用户登录界面。二、实验器材1、PC机一台；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0和Access2003。三、实验原理借助Visual Basic的集成开发环设计登录窗体，如果输入用户名和口令正确则调用新的窗体。四、实验内容1、设计一个登录窗体，将其名称改为：FrmLogin，然后添加两个label，分别作为用户名和口令的标签；2、在标签后面对应添加两个文本框，并命名；3、添加两个按钮，命名并修改按钮上的Caption，其中一个是确认按钮，一个是退出按钮；4、添加确认按钮的鼠标单击事件，在此事件中能够判断操作者在上述两个文本框中所输入的内容是否是系统之前已经确定好的合法的用户名和口令，默认用户名为：0001，口令为：0001；5、添加退出按钮的鼠标单击事件，在此事件中退出整个程序；6、新添一个窗体，当在登录界面录入的用户名和口令正确时，则系统自动调用新建的窗体，同时将登录窗体隐藏。五、实验步骤1、新建登录窗体，设置其属性；2、添加相应的控件，并设置控件的属性；3、添加按钮单击事件的程序代码，实现程序所要求的功能；4、在调用新的窗体的同时隐藏原有窗体；5、退出新窗体时，关闭所有的窗体。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验五 用Visual Basic设计界面显示数据库内容（一）一、 实验目的和要求二、使用Visual Basic的DAO的数据访问方式访问Access2003数据库，并MSFlexGrid显示其数据。二、实验器材1、PC机一台；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0和Access2003。三、实验原理借助Visual Basic访问Access2003数据库，并借助控件MSFlexGrid显示数据库中的数据。四、实验内容5、将FrmLogon窗体设置为当前活动窗体，【视图】-【代码窗口】中在最上一行的下拉框中选择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改为MSFGrid，并保存。9、选中MSFGrid，单击鼠标右键，选中【属性】-【样式】，在格式中添加“ 用户姓名 | 用户代码 | 口令 ”（注：双引号中的内容为需要添加的部分，其中符号的作用是使得其后面的空格有效），添加之后按【确定】按钮。五、实验步骤1、生成数据表，并插入记录；2、引用部件DAO；3、在工程中添加模块，并在其中定义一个全局变量；4、定位数据库文件，并打开数据库；5、添加部件；6、设置主窗体属性；7、添加MSFlexGrid控件，并设置其属性。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验五 用Visual Basic设计界面显示数据库内容（二）一、实验目的和要求使用Visual Basic的DAO的数据访问方式访问Access2003数据库，并用控件MSFlexGrid显示其数据。二、实验器材1、PC机一台；2、操作系统：Windows XP3、开发软件：Visual Basic6.0和Access2003。三、实验原理借助Visual Basic访问Access2003数据库，并借助控件MSFlexGrid显示数据库中的数据。四、实验内容1、进入上次实验所建工程文件的FrmMain窗体中，在Private Sub Form_Load()中写入功能代码。2、明确子程序的编写的格式、虚实参的调用以及错误捕捉的方法；3、在上述的SQL语句中添加Where条件，然后再将其借助控件显示出来。五、实验步骤1、编写子例程程序；2、调用该程序显示数据；3、改变SQL语句，观察执行结果的不同。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验六 短消息信息发布系统的设计（一）一、实验目的和要求1、了解短信息发布系统的业务需求；2、构建系统逻辑模型；3、设计系统的数据对象并构造测试数据；4、设计短信发送界面。二、实验器材1、PC机一台；2、操作系统：WindowsXP；3、开发软件：Visual Basic6.0和Access2003。三、实验原理1、结合“基于GSM短信的交警部门车辆违章信息发布平台”的应用背景了解系统的实际业务需求；2、使用Access数据库设计数据对象，并插入系统调试所需的数据。四、实验内容1、结合教师讲解和生活常识了解交警部门对违章车辆的处罚过程以及目前罚单信息的发布手段，从而了解本项目的实际意义；2、确定系统的各部分及其相应的功能；3、在项目小组中进行分工，明确每个成员的任务分工；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文本40违章详情Motor_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_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、按照要求构造工程文件。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验六 短消息信息发布系统的设计（二）一、实验目的和要求1、了解短信Modem配套的动态链接库的相关资料；2、在新添加的窗体中添加信息发送代码；3、编写短信发送代码。二、实验器材1、PC机一台、短信Modem一台、数据线一根；2、操作系统：WindowsXP；3、开发软件：Visual Basic6.0和Access2003。三、实验原理1、为上次实验中所添加的新窗体Frm_Fine_Info添加代码；2、在模块中添加短信Modem底层调用的函数。四、实验内容1、将AscendComm.dll和AscendSMS.dll两个文件拷贝到所建工程所在的目录中；2、新建一个模块，保存在工程文件所在的目录中，然后在其中添加功能代码。3、在新建的窗体Frm_Fine_Info中的Form_Initialize事件中，添加功能代码。4、在上次实验新添加的窗体Frm_Fine_Info中的“确定”按钮（需要将其命名为Cmd_Ok）的单击事件中添加功能代码。5、在窗体Frm_Fine_Info中添加一个新的过程，主要功能为将各个文本框清空，添加相应的功能代码。6、在窗体Frm_Fine_Info中添加一个新的过程，主要功能为进行短信发送，写出对应的功能代码。五、实验步骤1、了解短信发送的步骤；2、在模块中添加底层引用的函数；3、在窗体中添加相应的程序代码。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验六 短消息信息发布系统的设计（三）一、实验目的和要求1、掌握串口通讯控件的设置方法；2、在数据库中新建违章类型数据表，并完成组合框的应用过程。二、实验器材1、PC机一台、数据线一根；2、操作系统：Windows XP；3、开发软件：Visual Basic6.0和Access2003。三、实验原理1、在数据库中新建违章类型数据表，从而可以使用户对其进行相应的选择；2、熟悉串口通讯控件的使用方法；3、完成对组合框的应用设计，添加相应的程序代码。四、实验内容1、新建一个违章类型数据表，其格式如下表所示：字段名类型长度说明Fine_Type文本20违章类型在上述表中插入压双实线、闯红灯、违章停车、违章逆行、违章超车和违章变道。2、在VB的集成开发环境中，选择【工程】中的【部件】后，添加“Microsoft Comm Control6.0”，然后按“确定”按钮。再在窗体Frm_Fine_Info上添加MSComm控件，并将其命名为MSComm1，并设置其属性。3、在窗体Frm_Fine_Info中Form_Load过程中添加相应的功能代码。五、实验步骤1、数据对象的设计和数据的添加；2、在工程中添加相应的部件；3、在窗体上添加相应的控件和程序代码。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。实验六 短消息信息发布系统的设计（四）一、实验目的和要求1、掌握短信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集成开发环境中的【运行】中的【全编译运行】，对系统进行联合调试；4、进行短信的发送测试；5、选择VB集成开发环境中的【文件】中的【生成工程1.exe】，生成系统的可执行文件并运行该文件。五、实验步骤1、进行短信Modem硬件的连接与安装；2、在窗体上添加相应的控件和程序代码；3、整体联合调试并生成可执行文件。六、实验报告要求1、写出实验步骤；2、写出设计过程；3、心得体会本次实验中的感受；从实验中获得了哪些收益；本次实验成功之处；本次实验中还有待改进的地方；下次实验应该从哪些地方进行改进；怎样提高自己的实验效率和实验水平等等。附录（一）、VB程序的设计过程1、建立工程；2、确定界面（确定窗体和确定控件）；3、编写程序代码；4、调试程序；5、生成可执行文件。（二）、使用DAO访问Access数据库的过程1、在工程中引用DAO；2、定义数据库对象；3、打开数据库；4、访问数据库；5、关闭数据库。（三）、使用VB IDE调试程序的过程1、添加断点；2、运行到断点处；3、添加立即窗口；4、逐语句（或逐过程）执行；5、在立即窗口中获取监控对性的值；6、清除所有断点。（四）、VB常用函数1、日期和时间函数2、算术及三角函数2、算术及三角函数3、数据类型转换函数注意：插入按键的名称改成相应的1、在Main.mdb中新建表Tab_User, 具有User_Code、User_Name和User_Pwd三个字段。属性均为文本，其长度分别为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_User.ShowEnd SubPrivate Sub Menu_Logout_Click()Unload MeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase Menu_ExitUnload MeEnd SelectEnd Sub在窗体Frmlogon中写下如下代码：Private Sub Cmd_Ok_Click()Dim Str_sql As String Dim Rec_User As Recordset On Error GoTo Err1 Str_sql = select * from Tab_User where user_code= & Trim(Text1) & and user_pwd= & Trim(Text2) & ; Set Rec_User = DB1.OpenRecordset(Str_sql, dbOpenDynaset, dbConsistent) If Rec_User.BOF And Rec_User.EOF Then MsgBox 无相应的用户！, vbInformation, 提示信息 Else FrmMain.Show Unload Me End IfExit SubErr1: MsgBox Err.Description, vbInformation, 提示信息End SubPrivate Sub Form_Activate()On Error Resume Next If Dir(App.Path + Main.MDB) = Then MsgBox 主数据库文件丢失!如果以前做过数据库备份，现在请进行数据库恢复。否则请重新安装本系统。, vbInformation, 提 示 Unload Me Else Set DB1 = OpenDatabase(App.Path + Main.MDB) Exit Sub End IfEnd Sub在窗体Dic_User中，在中写入如下代码：Privat