您现在的位置：毕业论文 >> 课程设计 >> 正文

vb旅游管理系统论文+ER图+流程图第7页

更新时间：2010-12-16: 来源：毕业论文

vb旅游管理系统论文+ER图+流程图第7页
本窗口中设计了一个Text显示框，显示MSHFlexGrid表中选中的字符，这样便于使用人员在游客添加或查询时直接拷贝路线名称，而不需每次都输入，可以节省时间，避免麻烦和错误。
5、游客基本信息窗口和游客查询
游客通过了解景点信息窗口中的路线，作出自己的选择，就可以把个人基本信息告诉旅行社以便统一管理和相互的联系。在查询窗口中，旅行社可以通过游客的姓名, 查找到游客的基本信息资料，随时与旅客保持联系；也可以通过游客参加的团队名作出统计，查出相应的游客资料和团队报名的情况，若发现某条线路报名的人数太少，无法组成一个团，那么，旅行社就可以及时与游客取得联系，商量响应处理地方法。

旅游信息窗口中使用添加信息功能，必须准确填写姓名、身份证号码、联系电话和参加的团队；ADO控件的最左端按钮可以起到信息存储的功能。
游客查询窗口中用一个label控件显示某个团队的参加人数。
6、特价路线窗口
本窗口提供给游客最优惠的选择，旅行社每段时间都会推出特价路线
便于工薪阶层的选择。
本窗口使用OLE(Object Linking and Embedding的缩写，中文译为对象的链接与嵌入)连接一个Excel表，便于管理人员的修改。管理人员可以双击OLE部原文请找腾讯752018766辣'文"论'文.网http://www.751com.cn 、用户权限设定窗口
在系统登录的时候，系统已经通过权限判断出该用户是普通用户还是超级用户。普通用户进入该窗口后只拥有修改本身密码的权利，而超级用户就可以享有新建、删除用户以及修改密码的所有权利。

本窗口由3个frame控件的visible属性控制不同的按钮显示不同的界面。当用户的权限为1时，点新建用户按钮，显示frame1即新建用户界面；点击修改密码按钮，显示frame2即修改密码界面；点击删除用户按钮，显示frame3即删除用户界面。
第五章软件编码与测试
所谓编码就是把软件设计的结果翻译成计算机可以“理解”的形式—用某种程序设计语言书写的程序。编码的目的是实现人和计算机的通信，指挥计算机按人的意志正确工作。
5.1 程序编码
本系统较有特色的部分就是景点信息窗口和用户权限窗口，其中根据字段的长度来改变MSHFlexGrid中单个网格的长度能使界面更和谐。
以下分别为关键的代码：
Dim txt2 As String
Dim Myrec As ADODB.Recordset
Dim Mycnn As ADODB.Connection
Private Sub Combo1_Click()
grid2.Visible = True
If Combo1.Text = "踏青路线" Or Combo1.Text = "魅力西部" Or Combo1.Text = "边境风情" Or Combo1.Text = "海外之旅" Then
-------------------游客可以通过选择给定选项查找相关信息--------------------
sql = "select 路线,旅游信息 from 路线 where 属性= '" & Trim(Combo1.Text) & "'"
End If
Myrec.Open sql, Mycnn, adOpenDynamic, adLockOptimistic, adCmdText
Adodc2.RecordSource = sql
   Adodc2.Refresh
Set grid2.DataSource = Adodc2
grid2.Refresh

Select Case Combo1.Text
Case "踏青路线"
Image1.Picture = LoadPicture("E:\Program Files\毕业设计\踏青.jpg")
Case "魅力西部"
Image1.Picture = LoadPicture("E:\Program Files\毕业设计\旷野中的小屋.jpg")
Case "边境风情"
Image1.Picture = LoadPicture("E:\Program Files\毕业设计\云中峭壁.jpg")
Case "海外之旅"
Image1.Picture = LoadPicture("E:\Program Files\毕业设计\约塞米蒂山谷.jpg")
End Select
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   grid2.Visible = True
-------------------游客可以自己输入城市名查找相关信息-------------------------
   sql = "select 路线,旅游信息 from 路线 where 终点= '" & Trim(Combo1.Text) & "'or 中点站1= '" & Trim(Combo1.Text) & "'or 中点站2= '" & Trim原文请找腾讯752018766辣'文"论'文.网http://www.751com.cn Adodc2.RecordSource = sql
   Adodc2.Refresh
Set grid2.DataSource = Adodc2
If cellwidth > grid2.ColWidth(0) Then
   grid2.ColWidth(0) = TextWidth(grid2.Text) + 500
End If
grid2.Refresh
If grid2.Rows = 1 Then
MsgBox "对不起，我们尚未开通此条线路", vbExclamation, "系统提示"
End If
End If
End Sub
----------------------删除某条线路----------------------------
Private Sub Command9_Click()
Me.grid.Col = 1
txt2 = Me.grid.Text
If txt2 = "" Then
MsgBox "请选择需要删除的线路"
Exit Sub
End If
If txt2 <> "" Then
Set Myrec = New ADODB.Recordset
       sql = "select * from 路线 where 路线='" & Trim(txt2) & "'"
       Myrec.Open sql, Mycnn, adOpenDynamic, adLockOptimistic, adCmdText
       If MsgBox("确认删除此条路线吗？", vbYesNo, "系统确认提示") = vbYes Then
        Myrec.Delete adAffectCurrent
        Myrec.Close
        MsgBox "此线路已经成功被删除", vbExclamation, "系统提示"
      End If
    End If
End Sub

上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页