VB499 基于VB旅游业务管理系统

为此，我们决定开发一个小型的旅游管理系统来帮助旅行社更好的进行管理。其系统的开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
 经过分析,我们使用microsoft公司的VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口，能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。 think58

[资料来源：http://www.THINK58.com]

随着生活水平的提高，人门不仅要在物质方面提高生活水平，而且在精神方面希望有一个质的飞跃。于是。越来越多的人选择在周末或是假期外出，换换环境，享受在另外一个种环境下的生活方式，来丰富自己的精神世界，扩展视野。各种各样的旅行社就是由此孕育而生，丰富多彩的旅游景点则需要一个适合的管理系统来规范，使得各项工作都有条有理地进行，所以旅行社管理系统的制作非常必要。旅游管理系统是一个典型的多表操作系统,因为一个旅行社涉及到导游的管理与查询，导游与景点的分布，景点与游客的分布与查询，导游、景点和游客三者之间的分布与查询，还涉及到景点的各种管理、导游的各种管理和游客的各种管理等等，因此，它是一个比较复杂的管理系统。
本小型旅游管理系统是基于VB6.0以及SQL SEVER数据库（VB6.0自带的数据库）来实现的系统。通过本系统，能帮助一些旅行社进行更好的管理。本系统可分为几大模块：线路管理、报价管理、团队计划、报名接待管理、财务帐务、预订管理、统计查询、基本资料、系统设置等。除了以上基本的系统功能模块，系统还实现了一些统计功能如参团人数统计，每个景点每个旅游团收入的自动统计。 copyright think58

[资料来源：http://www.THINK58.com]

2．实现过程
（l） 在“旅游管理系统”工程中，添加一个新窗体，命名为main_kfdj。
（2）程序代码：
Private Sub Command1_Click()
If yf = 1 Then '新增
   Rst.Open "select * From xianlu", Cnn, adOpenKeyset, adLockOptimistic
        Call Check("线路编号", Text1(0), Me, 8)
        If Fh = 1 Then
            Rst.Close
            Fh = 0
            Exit Sub
        End If
   Rst.AddNew
        For i = 0 To 8
           Rst.Fields(i) = Text1(i)
        Next i
   Rst.Update
    Adodc1.Refresh
        For i = 0 To 8 内容来自think58

[资料来源：http://think58.com]

            Text1(i) = ""
        Next i
         yf = 0
   Rst.Close
    ElseIf yf = 2 Then   '修改
   Rst.Open "select * From xianlu where 线路编号='" + Trim(DataGrid1.Columns(0)) + "'", Cnn, adOpenKeyset, adLockOptimistic
    For i = 0 To 8
       Rst.Fields(i) = Text1(i)
    Next i
    Rst.Update
     Adodc1.Refresh
     yf = 0
   Rst.Close
       End If
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Command2_Click()
    For i = 0 To 8
        Text1(i) = ""
    Next i
    yf = 0
Command1.Enabled = False
Command2.Enabled = False think58.com [来源：http://think58.com]
End Sub
'Private Sub Command3_Click()
'Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=lyxt"
'Adodc1.RecordSource = "select * From xianlu"
'Adodc1.Refresh
'End Sub
'Private Sub Command4_Click()
'Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=lyxt"
'Adodc1.RecordSource = "select * From xianlu where 收款状态='已收款'"
'Adodc1.Refresh
'End Sub
''Private Sub Command5_Click()
'Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=lyxt"
'Adodc1.RecordSource = "select * From xianlu where 收款状态='未收款'"
'Adodc1.Refresh
'End Sub
Private Sub DataGrid1_Click()
If yf = 1 Or yf = 2 Then Exit Sub
    For i = 0 To 8
    Text1(i) = DataGrid1.Columns(i)
    Next i
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "driver={SQL Server};server=(local);uid=sa;pwd=;database=lyxt"
Adodc1.RecordSource = "select * From xianlu" [资料来源：THINK58.com]
Adodc1.Refresh
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button

本文来自think58

[资料来源：http://THINK58.com]

参考文献
1、李群先，李耀伟，江学锋，乔晓林，国嘉.《Visual Basic 程序设计基础》.   
人民邮电出版社. 2004.6
2、童爱红，侯太平.《Visual Basic数据库编程》.清华大学出版社. 2004.6 
3、杜修平.《Visual Basic程序设计》.中国电力出版社..2004.5
4、黄明，梁旭.《Visual Basic 6.0信息系统设计与开发实例》.机械工业出版社.2004.4
5、朱顺泉，姜灵敏.《管理信息系统理论与实务（修订版）》.人民邮电出版社.2004.4 
6、王兴晶.《Visual Basic 6.0应用编程150例》.电子工业出版社.2004.3
7、林卓然.《Visual Basic 程序设计教程》. 电子工业出版社.2004.2
8、郭琦.《Visual Basic数据库系统开发技术》.人民邮电出版社.2003.12
9、张晋连.《数据库原理及应用》.电子工业出版社.2004.7
10、苏选良.《数据库与管理信息系统实验教程》.电子工业出版社.2004.2
11、Charles PetZold, Programming Windows[M]  北京：机械工业出版社. 2004 [版权所有：http://think58.com]

SQL Server 是一个关系数据库管理系统。它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同开发的，于1988 年推出了第一个OS/2 版本。在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了，Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本。Sybase 则较专注于SQL Server在UNIX 操作系统上的应用。
SQL Server 2000 是Microsoft 公司推出的SQL Server 数据库管理系统，该版本继承了SQL Server 7.0 版本的优点，同时又比它增加了许多更先进的功能。具有使用方便可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。 [来源：http://think58.com]