📄 frmiomapping.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form frmIOMapping
Caption = "Input/Output mapping"
ClientHeight = 5412
ClientLeft = 60
ClientTop = 348
ClientWidth = 8676
LinkTopic = "Form2"
MinButton = 0 'False
ScaleHeight = 5412
ScaleWidth = 8676
Begin VB.CommandButton btnDeleteLink
Caption = "&Delete Link"
Height = 315
Left = 3960
TabIndex = 6
Top = 2340
Width = 975
End
Begin ComctlLib.ListView lstLinks
Height = 1995
Left = 3300
TabIndex = 2
Top = 240
Width = 2235
_ExtentX = 3937
_ExtentY = 3514
View = 3
LabelEdit = 1
LabelWrap = 0 'False
HideSelection = 0 'False
_Version = 327682
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Link from"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "Link to"
Object.Width = 1587
EndProperty
End
Begin ComctlLib.TreeView wndOutput
Height = 4755
Left = 6000
TabIndex = 3
Top = 600
Width = 2595
_ExtentX = 4572
_ExtentY = 8382
_Version = 327682
HideSelection = 0 'False
Indentation = 441
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "img"
BorderStyle = 1
Appearance = 0
OLEDropMode = 1
End
Begin ComctlLib.TreeView wndInput
Height = 5115
Left = 60
TabIndex = 0
Top = 240
Width = 2775
_ExtentX = 4890
_ExtentY = 9017
_Version = 327682
HideSelection = 0 'False
Indentation = 441
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "img"
BorderStyle = 1
Appearance = 0
OLEDragMode = 1
End
Begin VB.ComboBox cboSchemas
Appearance = 0 'Flat
Height = 315
Left = 6000
Style = 2 'Dropdown List
TabIndex = 4
Top = 240
Width = 2595
End
Begin VB.Label lblLinkTop
Alignment = 2 'Center
Caption = "Links"
Height = 195
Left = 3480
TabIndex = 7
Top = 0
Width = 1815
End
Begin VB.Label lblSchemaLabel
Caption = "Output Records and Fields"
Height = 195
Left = 6000
TabIndex = 5
Top = 0
Width = 2535
End
Begin VB.Label lblInputlabel
Caption = "Input Lines and Fields"
Height = 195
Left = 60
TabIndex = 1
Top = 0
Width = 1695
End
Begin ComctlLib.ImageList img
Left = 4200
Top = 3060
_ExtentX = 995
_ExtentY = 995
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 9
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":0000
Key = "DataItemBlank"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":031A
Key = "DataItem"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":0634
Key = "CheckPointBlank"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":094E
Key = "Action"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":0A60
Key = "CheckPoint"
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":0D7A
Key = "ClosedFolder"
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":1094
Key = "Input"
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":11A6
Key = "Output"
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmIOMapping.frx":12B8
Key = "OpenFolder"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmIOMapping"
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 mOutputLinks As COutputLinks
Private mStatusBarCaption As String
Private mCut As Boolean, mCopy As Boolean, mPaste As Boolean
' If this is 1, links in the Link list represent links for an item in the
' InputTree, if it's 2 the links are for an item in OutputTree.
Private mLinksForTree As Integer
Private Sub btnDeleteLink_Click()
Dim LinkKey As String
Dim ol As COutputLink
If lstLinks.SelectedItem Is Nothing Then Exit Sub
LinkKey = lstLinks.SelectedItem.key
Set ol = mOutputLinks(LinkKey)
' Remove the link from the import.
lstLinks.ListItems.Remove LinkKey
mOutputLinks.Remove LinkKey
' Deselect anything in the trees.
Set wndOutput.SelectedItem = Nothing
Set wndInput.SelectedItem = Nothing
' Make sure the images we show are correct.
miSetImageForOutput ol.LinkToTable, ol.LinkToField
miSetImageForInput ol.LinkFromTable, ol.LinkFromField
Set ol = Nothing
End Sub
Private Sub cboSchemas_Click()
lstLinks.ListItems.Clear
Set Me.wndInput.SelectedItem = Nothing
FillSchemaOutputTree
End Sub
Private Sub Form_Activate()
mCut = fMainForm.mnuEditCut.Enabled
mCopy = fMainForm.mnuEditCopy.Enabled
mPaste = fMainForm.mnuEditPaste.Enabled
tiEnableCutCopyPaste False, False, False
End Sub
Private Sub Form_Deactivate()
' Reset cut copy paste to whatever it was before.
tiEnableCutCopyPaste mCut, mCopy, mPaste
End Sub
Private Sub Form_Load()
' Center the form.
Me.left = (Screen.Width - Me.Width) / 2
Me.top = (Screen.Height - Me.Height) / 2
mStatusBarCaption = ""
mCut = fMainForm.mnuEditCut.Enabled
mCopy = fMainForm.mnuEditCopy.Enabled
mPaste = fMainForm.mnuEditPaste.Enabled
tiEnableCutCopyPaste False, False, False
' Set the image list for our tree.
wndOutput.ImageList = frmIOMapping.img
wndInput.ImageList = frmIOMapping.img
' Tell the tree functions what tree to deal with.
miSetTreeReference GImport, wndInput, wndOutput
If GImport.GetOutputLinksManager.Count > 0 Then
Dim ol As COutputLinks
For Each ol In GImport.GetOutputLinksManager
' Add this OutputLinks to the IO Mapping combo.
cboSchemas.AddItem ol.name
Next ol
' Select the first item in the Schema Combo.
cboSchemas.ListIndex = 0
Set mOutputLinks = GImport.GetOutputLinksManager(1)
' Set reference to the selected OutputLink item.
miSetLinksReference mOutputLinks
' Fill the output tree.
FillSchemaOutputTree
Else
Set mOutputLinks = Nothing
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -