【VB开源代码栏目提醒】:网学会员为广大网友收集整理了,AreaEdit.frm,希望对大家有所帮助!
VERSION 5.00
Begin VB.Form AreaEdit
BorderStyle = 1 'Fixed Single
Caption = "编辑地域信息"
ClientHeight = 2265
ClientLeft = 45
ClientTop = 345
ClientWidth = 3735
Icon = "AreaEdit.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2265
ScaleWidth = 3735
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 1335
Left = 240
TabIndex = 2
Top = 120
Width = 3255
Begin VB.TextBox txtAreaName
Height = 270
Left = 1200
MaxLength = 100
TabIndex = 3
Top = 795
Width = 1815
End
Begin VB.Label lblAreaType
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "lblAreaType"
Height = 180
Left = 1200
TabIndex = 6
Top = 360
Width = 990
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "旅游地类型"
Height = 180
Left = 240
TabIndex = 5
Top = 360
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "旅游地名称"
Height = 180
Left = 240
TabIndex = 4
Top = 840
Width = 900
End
End
Begin
VB.CommandButton Cmd_OK
Caption = "确 定"
Height = 400
Left = 415
MouseIcon = "AreaEdit.frx":27A2
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 1
Top = 1680
Width = 1300
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取 消"
Height = 400
Left = 2020
MouseIcon = "AreaEdit.frx":2AAC
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 0
Top = 1680
Width = 1300
End
End
Attribute VB_Name = "AreaEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean
Public OriId As Long
Public OriAreaName As String
Public CurType As Integer
Private Function Check() As Boolean
If Trim(txtAreaName) = "" Then
MsgBox "请输入地域名称"
txtAreaName.SetFocus
Check = False
Exit Function
End If
Check = True
End Function
Private Sub Cmd_OK_Click()
If Check = False Then
Exit Sub
End If
With MyArea
.AreaName = MakeStr(txtAreaName)
.AreaType = CurType
If Modify = False Or OriAreaName <> Trim(txtAreaName) Then
If .In_DB(MakeStr(txtAreaName)) = True Then
MsgBox "地域名称已经存在,请重新输入"
txtAreaName.SetFocus
txtAreaName.SelStart = 0
txtAreaName.SelLength = Len(txtAreaName)
Exit Sub
End If
End If
If Modify = False Then
.Insert
Else
.Update (OriId)
End If
End With
Unload Me
End Sub
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub txtAreaName_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub