|
Loadarea过程的功能是从数据库中读取不同类型的地域数据，并根据用户的选择把指定类别的地域名称添加到List1中。对应的代码如下： paper51.com Private SubLoadarea() copyright paper51.com Dim i As Integer paper51.com
List1.Clear 内容来自论文无忧网 www.paper51.com
MyArea.Load_Area http://www.paper51.com '本市地域 http://www.paper51.com If Option1.Value = True Then paper51.com Do While d1(i) <>"" paper51.com
List1.AddItemd1(i) '把本市地域添加到List1列表框中 paper51.com i = i + 1 内容来自论文无忧网 www.paper51.com Loop http://www.paper51.com
End If 内容来自www.paper51.com '外埠地域 http://www.paper51.com If Option2.Value = True Then http://www.paper51.com
Do While d2(i) <>"" copyright paper51.com List1.AddItemd2(i) '把外埠地域添加到List1列表框中 http://www.paper51.com
i = i + 1 http://www.paper51.com Loop http://www.paper51.com End If paper51.com '国外地域 内容来自论文无忧网 www.paper51.com If Option3.Value = True Then copyright paper51.com Do While d3(i) <>"" copyright paper51.com List1.AddItemd3(i) '把国外地域添加到List1列表框中 http://www.paper51.com i = i + 1 内容来自www.paper51.com Loop http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com End Sub paper51.com
MyArea.Loadarea过程的作用是将地域名称按照类别读取到全局数组d1()、d2()和d3()中。 copyright paper51.com 2． DeleteCheck过程 内容来自www.paper51.com 当用户要删除地域数据时，程序将调用DeleteCheck()函数，判断当前选择的地域是否可以删除，对应的代码如下： paper51.com PrivateFunction DeleteCheck(ByVal TmpId As Long) As Integer 内容来自论文无忧网 www.paper51.com Dim TmpName As String http://www.paper51.com '旅游娱乐厅资源地域数据检查 内容来自www.paper51.com TmpName = MyPlace.AreaInPlace(CurAreaId) paper51.com If TmpName <> "" Then 内容来自论文无忧网 www.paper51.com DeleteCheck = -1 内容来自www.paper51.com
MsgBox "当前地域信息在娱乐厅 - " + TmpName+ " - 中使用，为保证数据的完整性，不允许删除此地域。" paper51.com Exit Function 内容来自论文无忧网 www.paper51.com
End If 内容来自论文无忧网 www.paper51.com
'旅游宾馆资源地域数据检查 内容来自论文无忧网 www.paper51.com TmpName = MyHotel.AreaInHotel(CurAreaId) copyright paper51.com If TmpName <> "" Then paper51.com
DeleteCheck = -1 内容来自论文无忧网 www.paper51.com MsgBox "当前地域信息在宾馆 - " + TmpName+ " - 中使用，为保证数据的完整性，不允许删除此地域。" paper51.com Exit Function 内容来自www.paper51.com End If copyright paper51.com '旅游用餐资源地域数据检查 内容来自www.paper51.com
TmpName = MyRes.AreaInRes(CurAreaId) http://www.paper51.com If TmpName<> "" Then copyright paper51.com DeleteCheck = -1 copyright paper51.com MsgBox "当前地域信息在餐厅 - " + TmpName+ " - 中使用，为保证数据的完整性，不允许删除此地域。" copyright paper51.com Exit Function copyright paper51.com
End If paper51.com
'旅游娱乐资源地域数据检查 内容来自论文无忧网 www.paper51.com TmpName = MyAmuse.AreaInAmuse(CurAreaId) copyright paper51.com If TmpName <> "" Then http://www.paper51.com DeleteCheck = -1 http://www.paper51.com
MsgBox "当前地域信息在娱乐厅 - " + TmpName+ " - 中使用，为保证数据的完整性，不允许删除此地域。" 内容来自www.paper51.com Exit Function 内容来自www.paper51.com End If http://www.paper51.com
'旅游线路地域数据检查 http://www.paper51.com
TmpName = MyLine.AreaInLine(CurAreaId) http://www.paper51.com
If TmpName <> "" Then paper51.com DeleteCheck = -1 内容来自www.paper51.com MsgBox "当前地域信息 -在线路- " + TmpName+ " - 中使用，为保证数据的完整性，不允许删除此地域。" 内容来自论文无忧网 www.paper51.com Exit Function copyright paper51.com
End If 内容来自www.paper51.com '通过检查，可以删除当前地域 http://www.paper51.com DeleteCheck = 0 http://www.paper51.com End Function 内容来自www.paper51.com 为了维护数据库结构的完整性，在删除数据时，往往需要进行数据库完整性的判断。地域数据是本系统中最基本的数据，与很多表存在联系。所以在删除地域数据时，需要在其他表中进行判断，如果要删除的地域存在于其他表中，则不能删除，因为删除此地域会造成其他表的数据不完整。 http://www.paper51.com
|