VB旅游管理系统实验报告.docx

VB旅游管理系统实验报告

第一篇：VB旅游管理系统实验报告VB实验报告——旅游资源管理及路线设计系统实验报告1.实验目的（1）学会程序的设置，掌握数据库的建立以及与程序的链接。（2）将零散的知识系统化。（3）进一步加深对计算机的了解。2.实验要求制作一个旅游资源管理及路线设计系统。主要内容包括：①管理员管理，其中分为管理模块与查询模块。管理模块分为旅游信息管理、景点管理、导游管理。查询模块分为景点与导游管理、导游与景点查询、导游与游客查询、景点与游客管理、游客与景点管理。②员工查询，其中分为景点与导游管理、导游与景点查询、导游与游客查询、景点与游客管理、游客与景点管理。③游客查询，基本查询与员工查询一样。此系统涵盖管理员与员工及游客三大系统。包含管理与查询。管理可以对导游的信息以及景点的各个信息做出及时的修改。同时也可以查询到很多方面，如导游信息、旅游线路、旅游价格、旅游景点的风景、以及最终的满意程度。3.实验内容与步骤（1）在界面上设置出旅游线路的整体规划。（2）根据界面编写程序。①编写管理员登陆界面的代码OptionExplicitPublictxtsqlAsStringPublicusernameAsStringPrivateSubForm_Load()txtid.Text=“"txtpas.Text=”“EndSub'启动拖放PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)moveit=Truecx=X:cy=YEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Ifmoveit=TrueThen'调用函数获得鼠标位置，未知信息存放在变量zb中GetCursorPoszbMe.Movezb.X*1565,zb.Y*15350EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)moveit=FalseEndSubPrivateSubForm_Unload(CancelAsInteger)UnloadMeEndSubPrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'启动拖放moveit=Truecx=X:cy=YEndSubPrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Ifmoveit=TrueThen'调用函数获得鼠标位置，未知信息存放在变量zb中GetCursorPoszbMe.Movezb.X*1565,zb.Y*15350EndIfEndSubPrivateSubImage1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'停止拖放moveit=FalseEndSubPrivateSubImage3_Click()txtid.Text=”“txtpas.Text=”“EndSubPrivateSubImage5_Click()EndEndSubPrivateSubLabel4_Click()'查找数据库中是否有相同名称的用户txtsql=”selectusernamefrom用户权限表whereusername='“&Trim(txtid.Text)&”'“Adodc1.CommandType=adCmdTextAdodc1.RecordSource=txtsqlAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThen'如果当前记录位置位于Recordset对象的最后一个记录之后MsgBox”用户名错误！“,vbExclamation+vbOKOnly,”警告“txtid.Text=”“txtid.SetFocusElse'查找数据库中是否有相同密码的用户txtsql=”selectusernamefrom用户权限表wherepassword='“&Trim(txtpas.Text)&”'“Adodc1.CommandType=adCmdTextAdodc1.RecordSource=txtsqlAdodc1.Refresh'记录是否为空IfAdodc1.Recordset.EOF=TrueThen'如果当前记录位置位于Recordset对象的最后一个记录之后MsgB