基于VB的旅游资源及线路管理系统的设计

5.10 景点资源管理模块设计

景点资源管理模块可以实现以下功能：   

●        添加景点资源信息；

●        修改景点资源信息；

●        删除景点资源信息；

●        查看景点资源信息。

5.10.1 设计景点资源编辑窗体

创建一个新窗体，窗体名称设置为FrmPlaceEdit。窗体FrmPlaceEdit的布局如图6.10所示。

 

图5.10 窗体FrmPlaceEdit的布局

下面分析窗体FrmPlaceEdit中各个过程的代码。

1．  Form_Load过程

当FrmPlaceEdit窗体启动时，将触发Form_Loade事件，对应的代码如下：

Private Sub Form_Load()

ComboType.AddItem ("本市")

ComboType.AddItem ("外埠")

ComboType.AddItem ("国外")

 ComboType.ListIndex = OriType - 1

  Call Loadarea(OriType, ComboName)

  If InCombo(OriAreaName, ComboName) = True Then

    ComboName.Text = OriAreaName

  End If

End Sub

2．  Cmd_Ok_Click()过程

当用户单击“确定”按钮时，将触发Cmd_OK_Click事件，对应的代码如下：

Private Sub Cmd_OK_Click()

  ''检查用户输入的地域数据是否有效

  If Check = False Then

    Exit Sub

  End If

   With MyPlace

  ''把用户输入的地域数据赋值到MyPlace对象的成员变量中

  .Pname = MakeStr(txtPlace)

  .Contact = MakeStr(txtContact)

  .Phone = MakeStr(txtPhone)

  .Address = MakeStr(txtAddress)

  .Postcode = MakeStr(txtCode)

  .Adult_price = Val(txtAdult)

  .Child_price = Val(txtChild)

  .AreaId = MyArea.GetId(ComboName)

   ''判断景点名称是否存在

  If Modify = False Or OriPlaceName <> Trim(txtPlace) Then

    If .In_DB(MakeStr(txtPlace)) = True Then

      MsgBox "景点名称已经存在，请重新输入"

      txtPlace.SetFocus

      txtPlace.SelStart = 0

      txtPlace.SelLength = Len(txtPlace)

      Exit Sub

    End If

  End If

  ''根据变量Modify的值，决定是插入新数据，还是修改已有的数据

  If Modify = False Then

    .Insert

  Else

    .Update (OriId)

  End If

  End With

  ''关闭窗体

  Unload Me

End Sub

5.10.2 设计景点资源管理窗体

创建一个新窗体，窗体名称设置为FrmPlaceMan。参照表5.10.2添加并设置控件的属性。

表5.10.2                窗体FrmPlaceMan包含的控件及属性

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167