旅行社综合管理系统计算机毕业论文(编辑修改稿)

旅行社综合管理系统计算机毕业论文(编辑修改稿)内容摘要：

明八个文本框控的作用；此外，再放入二个按钮控件。 其过程代码如下：Option ExplicitDim i As IntegerDim sql As String系统初始化过程代码：Private Sub init() 39。 初始化 Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = Text1(4).Text = Text1(5).Text = Text1(6).Text = Text1(7).Text = = End Sub增加用户时所调用窗体的过程代码：Private Sub Command1_Click() If Text1(0).Text = Then MsgBox 请输入线路名称。 , vbOKOnly + vbExclamation, 警告。 Text1(0).SetFocus Exit Sub End If If Text1(1).Text = Then MsgBox 请输入主要景点。 , vbOKOnly + vbExclamation, 警告。 Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 请输入行程天数。 , vbOKOnly + vbExclamation, 警告。 Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 请输入报价。 , vbOKOnly + vbExclamation, 警告。 Text1(3).SetFocus Exit Sub End If If = Then MsgBox 请输入交通方式。 , vbOKOnly + vbExclamation, 警告。 Exit Sub End If If Text1(5).Text = Then MsgBox 请输入住宿标准。 , vbOKOnly + vbExclamation, 警告。 Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then 39。 以上均为在输入为空的警告 MsgBox 请输入行程安排。 , vbOKOnly + vbExclamation, 警告。 Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。 添加操作 sql = select * from 旅游线路表 where 名称=39。 + Text1(0).Text + 39。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。 判断是否已经存在记录 MsgBox 已经存在这个旅游线路的记录。 , vbOKOnly + vbExclamation, 警告。 Text1(0).SetFocus Else rs!名称 = Text1(0).Text rs!主要景点 = Text1(1).Text rs!行程天数 = Text1(2).Text rs!报价 = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!说明 = Text1(7).Text Set rs = Nothing MsgBox 记录已经成功添加。 , vbOKOnly + vbExclamation, 添加结果。 = select * from 旅游线路表 Unload Me End If ElseIf flag = 2 Then 39。 修改操作 select * from 旅游线路表 where 名称=39。 + Text1(0).Text + 39。 , conn, 1, 3 If Then Exit Sub rs!名称 = Text1(0).Text rs!主要景点 = Text1(1).Text rs!行程天数 = Text1(2).Text rs!报价 = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!说明 = Text1(7).Text Set rs = Nothing MsgBox 记录已经成功修改。 , vbOKOnly + vbExclamation, 修改结果。 = select * from 旅游线路表 Unload Me End IfEnd Sub退出按钮过程代码：Private Sub Command2_Click() Unload Me Exit SubEnd Sub窗体调用时加载信息的过程代码：Private Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i If Not IsNull((5)) Then = (5) Else = Else For i = 0 To 7 Text1(i) = Next i = End If With Combo1 39。 添加交通方式选项 .AddItem 双飞 .AddItem 单飞 .AddItem 双卧 .AddItem 旅行大巴 End With If flag = 1 Then 39。 判断为添加信息 = 添加 + Call init = 0 ElseIf flag = 2 Then 39。 判断为修改信息 = 修改 + Else = amp。 详细信息 39。 判断为查询详细信息 = False = False = 返回 End IfEnd Sub（5）创建旅游线路查询窗体，并将该窗体的名称修改为lyxlcx。 该窗体的主要目的是用于对旅游线路进行条件查询，设置该窗体的基本属性，如下表所示：窗体lyxlcx的主要属性属性项名属性设置内容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal，作为该窗体的数据源，注意该工程完全可以直接引入由数据环境引入的数据源，但使用数据环境往往需要通过编制命令后再进行各种使用，比较麻烦，因此我们仍采用使用adodc1控件引入数据源的方法,在窗体调用时，数据源就已经加载，其代码如下：Private Sub Form_Load() = = adCmdUnknownsql = select * from 旅游线路表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1Option1(0).Value = True = End Sub3．在窗体中放入一个表格控件DataGrid1，该控件的主要作用是显示数据，对数据进行编辑，其表格控件的基本属性如下表所示。 表格控件DATAGIRD1的基本属性属性项名属性设置内容NameDatagrid1Caption旅游线路管理表格AllowaddnewfalseAllowdeletefalseAllowupdatafalseDatasourceAdodc14. 在窗体中放入一个文本框，用于输入查询关键字；三个按钮，名称分别为提交、重置、详细信息；三个单选框，名称分别为所有线路、按旅游线路、按行程天数，作用是为了提供查询的条件；另外还放入一个标签用于说明文本框的作用。 其过程代码如下：Option ExplicitDim sql As String提交按钮过程代码：Private Sub Command1_Click()Dim str As Stringstr = If Option1(0).Value Then sql = select * from 旅游线路表 = ElseIf Option1(1).Value Then If = Then MsgBox 请输入线路名称!, vbCritical, 警告 Exit Sub End If str = 名称=39。 amp。 Trim() + 39。 sql = select * from 旅游线路表 where amp。 str ElseIf Option1(2).Value Then If = Then MsgBox 请输入行程天数!, vbCritical, 警告 Exit Sub End If str = 行程天数= amp。 Trim() sql = select * from 旅游线路表 where amp。 strEnd If = sql End Sub重置按钮过程代码：Private Sub Command2_Click() = End Sub详细信息按钮过程代码：Private Sub Command3_Click() 1End Sub单选框过程代码：Private Sub Option1_Click(Index As Integer)If Index = 1 Then = 旅游线路ElseIf Index = 2 Then = 行程天数Else = 关键字End IfEnd Sub 其中本窗体中的详细信息按钮单击事件所调用的窗体lyxledit2布局和前一个管理窗口中详细信息按钮所调用的窗体lyxledit布局大致相同，但是少了一个组合框，少了一个确定按钮，因为在查询模块中不提供数据的修改。 Lyxledit2中所采用的过程代码如下：Option ExplicitDim i As Integer返回按钮过程代码：Private Sub Command2_Click() Unload Me Exit SubEnd SubPrivate Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i +。