📄 frmeditoutputschema.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form frmEditOutputSchema
BorderStyle = 3 'Fixed Dialog
Caption = "Output Schema Properties"
ClientHeight = 5352
ClientLeft = 48
ClientTop = 336
ClientWidth = 6588
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5352
ScaleWidth = 6588
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame2
BorderStyle = 0 'None
Caption = "Output Schema"
Height = 4875
Left = 60
TabIndex = 2
Top = -120
Width = 6495
Begin VB.OptionButton rbIgnore
Appearance = 0 'Flat
Caption = "Ignore values for the record"
ForeColor = &H80000008&
Height = 315
Left = 3420
TabIndex = 12
Top = 1080
Width = 2535
End
Begin VB.OptionButton rbReplace
Appearance = 0 'Flat
Caption = "Replace values for the record"
ForeColor = &H80000008&
Height = 315
Left = 3420
TabIndex = 11
Top = 840
Width = 2535
End
Begin VB.Frame fraProperties
Caption = "Selected Item Properties"
Height = 2775
Left = 3360
TabIndex = 6
Top = 1560
Width = 3015
Begin VB.CheckBox chkUniqueIndex
Appearance = 0 'Flat
Caption = "This field requires a unique value"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 10
Top = 360
Width = 2775
End
Begin VB.ComboBox cboDataType
Appearance = 0 'Flat
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 7
Top = 960
Width = 2775
End
Begin VB.Label lblTypeDescription
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 1215
Left = 120
TabIndex = 9
Top = 1440
Width = 2775
End
Begin VB.Label lblDataType
AutoSize = -1 'True
Caption = "This field is of type"
Height = 195
Left = 120
TabIndex = 8
Top = 720
Width = 1305
End
End
Begin VB.CommandButton btnDelete
Caption = "&Delete"
Height = 375
Left = 1080
TabIndex = 5
Top = 4440
Width = 855
End
Begin VB.CommandButton btnAdd
Caption = "&Add Item"
Height = 375
Left = 120
TabIndex = 4
Top = 4440
Width = 855
End
Begin ComctlLib.TreeView treeOutputSchema
Height = 3975
Left = 120
TabIndex = 3
Top = 360
Width = 3135
_ExtentX = 5525
_ExtentY = 7006
_Version = 327682
HideSelection = 0 'False
Indentation = 529
LineStyle = 1
Style = 7
ImageList = "img"
BorderStyle = 1
Appearance = 0
End
Begin VB.Label Label1
Caption = "Action to take if a duplicate value is found for a unique indexed field"
Height = 375
Left = 3420
TabIndex = 13
Top = 360
Width = 2955
End
End
Begin VB.CommandButton btnClose
Cancel = -1 'True
Caption = "&Cancel"
Height = 375
Left = 4620
TabIndex = 1
Top = 4860
Width = 855
End
Begin VB.CommandButton btnSave
Caption = "&Ok"
Default = -1 'True
Height = 375
Left = 5580
TabIndex = 0
Top = 4860
Width = 855
End
Begin ComctlLib.ImageList img
Left = 3720
Top = 4980
_ExtentX = 995
_ExtentY = 995
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 6
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEditOutputSchema.frx":0000
Key = "ClosedFolder"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEditOutputSchema.frx":031A
Key = "DataItem"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEditOutputSchema.frx":076E
Key = "CheckPoint"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEditOutputSchema.frx":0A8A
Key = "Import"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEditOutputSchema.frx":0B9C
Key = "Output"
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmEditOutputSchema.frx":0CAE
Key = "OpenFolder"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmEditOutputSchema"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' DataMonkey Data Conversion Application. Written by Theodore L. Ward
' Copyright (C) 2002 AstroComma Incorporated.
'
' This program is free software; you can redistribute it and/or
' modify it under the terms of the GNU General Public License
' as published by the Free Software Foundation; either version 2
' of the License, or (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
' The author may be contacted at:
' TheodoreWard@Hotmail.com or TheodoreWard@Yahoo.com
Option Explicit
Private mPrevSelection As ComctlLib.node
Private Sub btnAdd_Click()
' Save any changes made up to now.
osUpdateItems
osAddItem
End Sub
Private Sub btnClose_Click()
GFormReturnValue = vbCancel
Unload Me
End Sub
' Delete the selected tree item.
Private Sub btnDelete_Click()
' Delete the selected item.
osDeleteItem
' Display the properties for the newly selected item.
Set mPrevSelection = Me.treeOutputSchema.SelectedItem
osDisplayProperties
End Sub
Private Sub btnSave_Click()
' Update any changed target item properties.
osUpdateItems
osUpdateSchemaProperties
' Advertise our return status.
GFormReturnValue = vbOK
Unload Me
End Sub
Private Sub cboDataType_Click()
lblTypeDescription.Caption = _
GOutputID.GetDBTypeDescription( _
cboDataType.ItemData(cboDataType.ListIndex), False)
End Sub
Private Sub Form_Load()
' Keep a reference to the selected treeitem, if the selection
' changes, we can store changes to the previous selection.
Set mPrevSelection = Nothing
Me.top = (Screen.Height - Me.Height) / 2
Me.left = (Screen.Width - Me.Width) / 2
End Sub
Private Sub treeOutputSchema_AfterLabelEdit(Cancel As Integer, NewString As String)
osAfterLabelEdit NewString
End Sub
Private Sub treeOutputSchema_NodeClick(ByVal node As ComctlLib.node)
' Update anything that might have changed with the previously
' selected tree item.
If Not mPrevSelection Is Nothing Then
osUpdateItems mPrevSelection
End If
If node.tag = etiType.tidataitem Then
Set mPrevSelection = node
Else
Set mPrevSelection = Nothing
End If
osDisplayProperties
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -