俞楷山管理111旅游信息系统管理.doc

VB面向对象课程设计旅游信息系统管理 姓名：俞楷山 班级：管理111学号：2011305010134目录1系统概述-3 1.1系统功能分析-3 1.2系统功能模块设计-42主窗体模块的设计-4 2.1模块分析-5 2.2程序代码-6 2.3图例-63登录模块的创建-7 3.1模块分析-8 3.2程序代码-8 3.3图例-94旅游信息管理系统的设计-9 4.1模块分析-10 4.2程序代码-11 4.3图例-125导游管理系统的设计-12 5.1模块分析-13 5.2程序代码-13 5.3图例-136组团管理的设计-13 6.1模块分析-14 6.2程序代码-15 6.3图例-157游客查询管理的设计-16 7.1模块分析-16 7.2程序代码-17 7.3图例-188总结-18 旅游信息管理系统为了更好地适应当前市场形势，迎合市场规范化要求，开发一套科学的、高效率的、客户化的综合业务管理系统以提高工作效率，加强业务流程管理，实现企业业务流程的信息化，各部门数据的集成和共享，增强与兄弟旅行社的联系与合作关系。更好地体现服务客户地宗旨，保证业务的发展和市场战略意图的实现，提高企业在高度竞争的市场中的显著的竞争优势1系统概述1.1系统功能分析旅游管理系统具备的功能: 1. 系统具有管理客户信息和报名接待管理的功能 （1）客户报团时的客户基本信息和订单信息录入 （2）客户换团、退团时的信息处理 （3）客户消费统计，实现会员优惠业务 2. 系统具有路线、产品和订单管理的功能 （1）通过路线、时间安排和导游产生产品，并分配领队 （2）进行订单统计，根据订单数量组团3. 系统具有员工管理的功能，跟踪员工记录，客户投诉时在员工信息中的反映，真正实现客户投诉与员工业绩的挂钩 4. 系统具有票务管理的功能，及时根据订单订票，并向组团部反馈信息5. 系统具有统计查询的功能（1）销售统计，为计调部推出新路线提供信息（2）提供统计查询，为决策部门提供信息旅游信息管理系统旅游线路管理导游管理组团管理游客管理添加修改删除查询管理查询管理图1-1旅游信息管理系统模块结构图2主窗体界面的设计2.1模块分析主窗体模块是指所有模块的操作界面，在本系统中使用多文档窗体及菜单方式来实现。3.2程序代码Option ExplicitPrivate Sub MDIForm_Load() MDIForm1.Icon = LoadPicture(App.Path & PICsx.ico) Call QuanXian(blnDJ)End SubSub mnuRud_Click() frmAbout.Show vbModalEnd SubSub mnuGuide_Click() frmAbout.Show vbModalEnd SubSub mnuAbout_Click() frmAbout.Show vbModalEnd SubPrivate Sub mnuAddNew_Click() frmAddNew.Show vbModalEnd SubPrivate Sub mnuEditP_Click() frmEditP.Show vbModalEnd SubPrivate Sub mnuExit_Click() EndEnd SubPrivate Sub mnuIn_Click() frmIn.ShowEnd SubPrivate Sub mnuRuda_Click() EndEnd SubPrivate Sub mnuGuidea_Click() frmSales.ShowEnd SubPrivate Sub mnuRemain_Click() frmRemain.ShowEnd Sub2.3图例线路添加界面.Show、线路查询界面.Show、线路删除界面.Show、欢迎界面.Show、旅游线路查询界面.Show、游客导游查询界面.Show、欢迎界面.Show、导游查询界面.Show、导游管理界面.Show、团队查询界面.Show、团队管理界面.Show、游客管理子系统界面.Show、修改密码界面.Show。分别有这些子模块现实在不同的环境下。图 2-1旅游信息管理系统主界面3旅游信息管理系统登陆界面3.1模块分析登录模块是为防止不合法用户进入系统而设置的，在本系统中所使用的登录系统模块，用户名和密码是基于数据库形式的，用户名和密码可以通过用户管理模块进行增加和更改。需要添加Frame控件，标签控件，组合框控件，文本框控件和命令按钮控件。3.2程序代码Private Sub Command1_Click()判断新添加的用户名是否为空If Text1.Text = ThenMsgBox 请输入用户名！Text1.SetFocusExit SubEnd If查询在用户信息表中是否存在出入的用户Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select*from 用户表单 where 用户名= & Trim(Text1.Text) & Adodc1.Refresh如果存在，则返回If Adodc1.Recordset.EOF = False ThenMsgBox 已经存在此用户名，请您重新输入！Text1.SetFocusText1.Text = Exit Sub判断输入的密码是否为空ElseIf Text2.Text = ThenMsgBox 请输入密码！Text2.SetFocusExit SubEnd IfEnd If判断输入的确认密码是否为空If Text3.Text = ThenMsgBox 请输入确认密码！Text3.SetFocusExit SubEnd If判断密码与确认密码是否一致If Text2.Text = Text3.Text Then向数据表中添加新用户Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名) = Trim(Text1.Text)Adodc1.Recordset.Fields(密码) = Trim(Text2.Text)Adodc1.Recordset.Fields(确认密码) = Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox 恭喜，您已经注册成功！Text2.SetFocusText3.SetFocusElseMsgBox 对不起，您的密码和确认密码不一致，请重新输入！Text3.Text = Text3.SetFocusExit SubEnd If欢迎界面.ShowUnload MeEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_Change()End Sub 3.3图例 登陆主页面如下图所示：分别含有背景图片的使用，一个combobox（设为用户身份）、两个textboxy（分别设为用户账号和用户密码）、一个label、三个timer、三个commandbutton 、一个picturebox。实现了用户登陆的过程，其combobox里包含两项，分别是管理员和游客，当选择管理员时，用户账号默认的是admin,当输入正确的密码时，既可以进入主页面了。图3-1旅游信息管理系统登陆界面4旅游信息管理系统界面4.1模块分析旅游信息管理系统主界面主要的功能是通过界面来收集游客的旅游路线、主要景点、行程天数、住宿天数、报价等信息。可以更好地来储存游客的信息。4.2程序代码 Private Sub cmdAdd_Click()If Text1.Text = ThenMsgBox 请输入线路名称Text1.Text = Text1.SetFocusExit SubEnd IfAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 旅游线路表单 where 名称 = & Trim(Text1.Text) & Adodc2.RefreshIf Adodc2.Recordset.EOF = False ThenMsgBox 已经存在此线路，请重新输入！Text1.Text = Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入景点Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入行程天数Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 请输入报价Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入住宿Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 请输入行程安排Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 请输入说明Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox 请输入编号Text7.SetFocusExit SubEnd IfDim res As Integerres = MsgBox(确实添加此记录!, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如果确实要添加Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(名称).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(主要景点).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(行程天数).Value = Trim(Text3.Text)Adodc1.Recordset.Fields(报价).Value = Trim(Text4.Text)Adodc1.Recordset.Fields(住宿).Value = Trim(Text5.Text)Adodc1.Recordset.Fields(行程安排).Value = Trim(Text6.Text)Adodc1.Recordset.Fields(说明).Value = Trim(Text7.Text)Adodc1.Recordset.Fields(编号).Value = Trim(Text8.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你添加成功Adodc1.RefreshPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1.Visible = FalseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End SubPrivate Sub cmdDelete_Click()If MsgBox(确认要删除吗？, vbOKCancel + vbQuestion, 信息提示) = vbOK Then Adodc1.Recordset.Delete If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End IfEnd SubPrivate Sub Text1_Change()End Sub4.3图例旅游信息管理系统的旅游线路管理其中包括8个texbox、9个label（包括线路名称，主要景点，行程天数，报价，住宿天数，行程安排，说明，编号）、3个picturebox、两个commandbutton（包括确定和退出）。三个picturebox包括一个datadrid，在其中会显示以前输入的数据库，其中包含了所有旅游线路的信息。这就实现数据库也VB的连接图4-1旅游信息管理系统线路添加界面5旅游信息管理系统导游管理界面5.1模块分析旅游信息管理系统导游管理界面的主要功能是可以让游客更好地了解到导游的各方面信息，以便于游客的选择。5.2程序代码 Private Sub Text1_Change()Private Sub Command3_Click()If Text2.Text = Then MsgBox (对不起，您还没有输入要查询的导游编号，请输入！)Exit SubEnd IfIf Len(Text2.Text) 0 ThenAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select*from 导游表单 where 编号 = & Trim(Text2.Text) & Adodc2.RefreshDataGrid1.Visible = TrueElseMsgBox (请输入要查找的导游编号！)Text2.Text = Text2.SetFocusExit SubEnd IfEnd SubPrivate Sub Command4_Click()Adodc2.CommandType = adCmdTextAdodc2.RecordSource = select*from 游客表单 Adodc2.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command5_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select*from 导游表单 Adodc1.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Form_Load()Adodc1.Visible = FalseAdodc2.Visible = FalseEnd SubPrivate Sub Command1_Click() Adodc1.RefreshEnd Sub5.3图例旅游信息管理系统的导游管理界面其中包括了导游的添加查询等功能，也是和数据库相连接，在已输入的信息中调出自己想查询的结果，其中也包括了texbox、label、picturebox、commandbutton等模块。图5-1旅游信息管理系统导游管理界面6旅游信息系统管理组团管理6.1模块分析本模块是能使管理员更好地了解游客的旅游路线信息和住宿情况。6.2程序代码 Private Sub Command1_Click()If Text1.Text = Then MsgBox (对不起，您还没有输入要查询的旅游团编号，请输入！)Exit SubEnd IfIf Len(Text1.Text) 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select*from 组团表单 where 旅游团号 = & Trim(Text1.Text) & Adodc1.RefreshDataGrid1.Visible = TrueElseMsgBox (请输入要查找的旅游团编号！)Text1.Text = Text1.SetFocusExit SubEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select*from 组团表单 Adodc1.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1.Visible = FalseEnd SubEnd SubPrivate Sub Text1_Change()End Sub6.3图例旅游信息管理系统的组团管理其中包括了一些有关游客旅游信息的查询，可以按着两种不同的方式进行，分别是旅游团号，和住宿天数。模块中也包括了texbox、label、picturebox、commandbutton等项目图6-1旅游信息管理系统团队查询界面7旅游信息管理的游客查询7.1 模块分析 本模块的功能是主要是便于管理员更好地能够查询到游客的基本信息。7.2程序代码 Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Adodc1.Visible = FalseText1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command1_Click()If Text1.Text = Then MsgBox (对不起，您还没有输入要查询的游客编号，请输入！)Exit SubEnd IfIf Len(Text1.Text) 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select*from 游客表单 where 编号 = & Trim(Text1.Text) & Adodc1.RefreshDataGrid1.Visible = TrueElseMsgBox (请输入要查找的游客编号！)Text1.Text = Text1.SetFocusExit SubEnd IfEnd SubPrivate Sub Command2_Click()If Combo1.Text = ThenMsgBox (请先选择游客性别.)Exit SubEnd IfIf Combo1.Text = 男 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select*from 游客表单 where 性别 = 男Adodc1.RefreshDataGrid1.Visible = TrueExit SubEnd IfIf Combo1.Text = 女 ThenAdodc1.Comman