📄 dbimpexp.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmDBImpExp
BorderStyle = 1 'Fixed Single
Caption = "DB Import/Export"
ClientHeight = 5280
ClientLeft = 150
ClientTop = 435
ClientWidth = 8250
Icon = "DBIMPEXP.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5280
ScaleWidth = 8250
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cboFieldTypesHidden3
Height = 315
Left = 5460
Style = 2 'Dropdown List
TabIndex = 55
Top = -180
Visible = 0 'False
Width = 2655
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 60
Top = 30
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox picBackGround
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4545
Left = 120
ScaleHeight = 4515
ScaleWidth = 7995
TabIndex = 46
Top = 480
Width = 8025
End
Begin VB.Frame fraExportToTxtSingleField
Caption = "Export from Access to text file (Single field)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4485
Left = 150
TabIndex = 64
Top = 450
Width = 8025
Begin VB.CommandButton cmdExit
Caption = "Close"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 4
Left = 6480
MaskColor = &H00000000&
TabIndex = 74
TabStop = 0 'False
Top = 3720
Width = 1065
End
Begin VB.TextBox txtDBSourceSpec2
BackColor = &H00E0E0E0&
Enabled = 0 'False
Height = 315
Left = 1200
TabIndex = 70
TabStop = 0 'False
Top = 900
Width = 6015
End
Begin VB.CommandButton cmdGetDBSourceSpec2
Appearance = 0 'Flat
Caption = "..."
Height = 315
Left = 7230
TabIndex = 69
TabStop = 0 'False
Top = 900
Width = 255
End
Begin VB.CommandButton cmdExportToTxtSingleFieldProceed
Caption = "Proceed"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 5370
MaskColor = &H00000000&
TabIndex = 68
TabStop = 0 'False
Top = 3720
Width = 1095
End
Begin VB.CommandButton cmdGetTextFileSpec
Appearance = 0 'Flat
Caption = "..."
Height = 315
Left = 7230
TabIndex = 67
TabStop = 0 'False
Top = 2130
Width = 255
End
Begin VB.ComboBox cboExportTables2
Height = 315
Left = 2100
Style = 2 'Dropdown List
TabIndex = 66
Top = 1410
Width = 2565
End
Begin VB.TextBox txtTextTargetSpec
Height = 285
Left = 1200
TabIndex = 65
Top = 2130
Width = 6015
End
Begin VB.Label lblFrom
Caption = "From:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 450
TabIndex = 73
Top = 930
Width = 585
End
Begin VB.Label lblTo
Caption = "To:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 660
TabIndex = 72
Top = 2160
Width = 615
End
Begin VB.Label lblTable
Caption = "Table"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 1260
TabIndex = 71
Top = 1470
Width = 645
End
End
Begin VB.Frame fraImportFromTxtDelimited
Caption = "Import from text file to a new Access table (Delimited)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4485
Left = 120
TabIndex = 75
Top = 420
Width = 8025
Begin VB.TextBox txtSourceSpec4
Height = 285
Left = 1170
TabIndex = 85
Top = 1170
Width = 6015
End
Begin VB.ComboBox cboTables4
Height = 315
Left = 240
Style = 2 'Dropdown List
TabIndex = 84
Top = 3750
Width = 2565
End
Begin VB.CommandButton cmdGetSourceSpec4
Appearance = 0 'Flat
Caption = "..."
Height = 315
Left = 7200
TabIndex = 83
TabStop = 0 'False
Top = 1170
Width = 255
End
Begin VB.CommandButton cmdImportFromTxtDelimitedProceed
Caption = "Proceed"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 5370
MaskColor = &H00000000&
TabIndex = 82
TabStop = 0 'False
Top = 3720
Width = 1095
End
Begin VB.CommandButton cmdGetTargetSpec4
Appearance = 0 'Flat
Caption = "..."
Height = 315
Left = 7200
TabIndex = 81
TabStop = 0 'False
Top = 1950
Width = 255
End
Begin VB.TextBox txtTargetSpec4
BackColor = &H00E0E0E0&
Enabled = 0 'False
Height = 315
Left = 1170
TabIndex = 80
TabStop = 0 'False
Top = 1950
Width = 6015
End
Begin VB.CommandButton cmdExit
Caption = "Close"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 6
Left = 6570
MaskColor = &H00000000&
TabIndex = 79
TabStop = 0 'False
Top = 3720
Width = 1065
End
Begin VB.TextBox txtNewTable4
Height = 285
Left = 1920
TabIndex = 78
TabStop = 0 'False
Top = 2580
Width = 1815
End
Begin VB.ComboBox cboDelimiter
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 77
Top = 300
Width = 1635
End
Begin VB.TextBox txtMaxFieldLength
Height = 315
Left = 5250
MaxLength = 3
TabIndex = 76
Text = "100"
Top = 300
Width = 735
End
Begin VB.Label lblTable
Caption = "Table"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 1140
TabIndex = 91
Top = 2610
Width = 645
End
Begin VB.Label lblTo
Caption = "To:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 6
Left = 630
TabIndex = 90
Top = 2010
Width = 615
End
Begin VB.Label lblFrom
Caption = "From:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 6
Left = 480
TabIndex = 89
Top = 1170
Width = 585
End
Begin VB.Label Label1
Caption = "(Existing table names)"
Height = 195
Index = 1
Left = 270
TabIndex = 88
Top = 3480
Width = 2565
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -