📄 ufrmpubimport.dfm
字号:
inherited frmPubImport: TfrmPubImport
Left = 291
Top = 171
Caption = #36890#29992#25968#25454#36801#31227
ClientHeight = 473
ClientWidth = 792
OldCreateOrder = True
Position = poDefault
WindowState = wsMaximized
PixelsPerInch = 96
TextHeight = 14
object Panel1: TPanel [0]
Left = 0
Top = 0
Width = 792
Height = 473
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object Splitter5: TSplitter
Left = 401
Top = 352
Width = 4
Height = 119
end
object Panel5: TPanel
Left = 2
Top = 2
Width = 788
Height = 175
Align = alTop
TabOrder = 0
object Splitter1: TSplitter
Left = 491
Top = 1
Width = 4
Height = 173
end
object DBGrid1: TDBGrid
Left = 495
Top = 1
Width = 292
Height = 173
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object pnl1: TPanel
Left = 1
Top = 1
Width = 230
Height = 173
Align = alLeft
BevelInner = bvLowered
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label2: TLabel
Left = 8
Top = 54
Width = 28
Height = 14
Caption = #28304#24211
end
object Label5: TLabel
Left = 8
Top = 119
Width = 56
Height = 14
Caption = #28304#24211#34920#21517
end
object Label1: TLabel
Left = 8
Top = 9
Width = 42
Height = 14
Caption = #24211#31867#22411
end
object Label4: TLabel
Left = 8
Top = 76
Width = 44
Height = 13
AutoSize = False
Caption = #29992#25143#21517
end
object Label6: TLabel
Left = 8
Top = 98
Width = 33
Height = 13
AutoSize = False
Caption = #23494#30721
end
object Label11: TLabel
Left = 8
Top = 31
Width = 50
Height = 14
AutoSize = False
Caption = #26381#21153#22120
end
object bbtUnLink1: TBitBtn
Left = 138
Top = 137
Width = 75
Height = 30
Caption = #26029#24320
Enabled = False
TabOrder = 7
OnClick = bbtUnLink1Click
end
object cbxAdb: TComboBox
Left = 63
Top = 49
Width = 150
Height = 22
ItemHeight = 14
TabOrder = 2
Text = 'pubs'
end
object cbxAtb: TComboBox
Left = 63
Top = 115
Width = 150
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 5
OnChange = cbxAtbChange
end
object cbxDBType1: TComboBox
Left = 63
Top = 5
Width = 150
Height = 22
Style = csDropDownList
ItemHeight = 14
ItemIndex = 0
TabOrder = 0
Text = 'SQL Server [BDE]'
OnChange = cbxDBType1Change
Items.Strings = (
'SQL Server [BDE]'
'MySQL [ODBC]'
'DB2 [BDE]'
'Access [ADO]')
end
object edtAuser: TEdit
Left = 63
Top = 71
Width = 150
Height = 22
TabOrder = 3
Text = 'sa'
end
object edtApass: TEdit
Left = 63
Top = 93
Width = 150
Height = 22
TabOrder = 4
Text = 'sa'
end
object edtAServer: TEdit
Left = 63
Top = 27
Width = 150
Height = 22
TabOrder = 1
Text = '127.0.0.1'
end
object bbtLink1: TBitBtn
Left = 63
Top = 137
Width = 75
Height = 30
Caption = #36830#25509
TabOrder = 6
OnClick = bbtLink1Click
end
object CheckBox1: TCheckBox
Left = 8
Top = 144
Width = 50
Height = 17
Caption = #26174#31034
TabOrder = 8
OnClick = CheckBox1Click
end
end
object Panel2: TPanel
Left = 231
Top = 1
Width = 260
Height = 173
Align = alLeft
BevelInner = bvLowered
TabOrder = 2
object lv1: TListView
Left = 2
Top = 2
Width = 256
Height = 119
Align = alClient
Columns = <
item
Caption = #23383#27573
Width = 80
end
item
Caption = #31867#22411
Width = 80
end
item
AutoSize = True
Caption = #38271#24230
end
item
Caption = #20869#37096#31867#22411
Width = 100
end>
ColumnClick = False
GridLines = True
HideSelection = False
Items.Data = {
520000000200000000000000FFFFFFFFFFFFFFFF020000000000000007616263
6465666707766172636861720331303000000000FFFFFFFFFFFFFFFF01000000
0000000003313233033435360100FFFFFFFF}
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object Panel3: TPanel
Left = 2
Top = 121
Width = 256
Height = 50
Align = alBottom
TabOrder = 1
object labJL1: TLabel
Left = 16
Top = 27
Width = 35
Height = 14
Hint = #35760#24405': '
Caption = #35760#24405':'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object labZD1: TLabel
Left = 16
Top = 9
Width = 35
Height = 14
Hint = #35760#24405': '
Caption = #23383#27573':'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object CheckBox2: TCheckBox
Left = 172
Top = 16
Width = 80
Height = 17
Caption = #32479#19968#21015#23485
TabOrder = 0
OnClick = CheckBox2Click
end
object SpinEdit1: TSpinEdit
Left = 120
Top = 13
Width = 50
Height = 23
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 100
end
end
end
end
object Panel6: TPanel
Left = 2
Top = 177
Width = 788
Height = 175
Align = alTop
TabOrder = 1
Visible = False
object Splitter4: TSplitter
Left = 491
Top = 1
Width = 4
Height = 173
end
object pnl2: TPanel
Left = 1
Top = 1
Width = 230
Height = 173
Align = alLeft
BevelInner = bvLowered
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label3: TLabel
Left = 8
Top = 54
Width = 42
Height = 14
Caption = #30446#30340#24211
end
object Label7: TLabel
Left = 8
Top = 119
Width = 56
Height = 14
Caption = #30446#30340#34920#21517
end
object Label8: TLabel
Left = 8
Top = 9
Width = 42
Height = 14
Caption = #24211#31867#22411
end
object Label9: TLabel
Left = 8
Top = 76
Width = 44
Height = 13
AutoSize = False
Caption = #29992#25143#21517
end
object Label10: TLabel
Left = 8
Top = 98
Width = 33
Height = 13
AutoSize = False
Caption = #23494#30721
end
object Label12: TLabel
Left = 8
Top = 31
Width = 50
Height = 14
AutoSize = False
Caption = #26381#21153#22120
end
object bbtUnLink2: TBitBtn
Left = 138
Top = 137
Width = 75
Height = 30
Caption = #26029#24320
Enabled = False
TabOrder = 7
end
object cbxBtb: TComboBox
Left = 63
Top = 115
Width = 150
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 5
end
object cbxDBType2: TComboBox
Left = 63
Top = 5
Width = 150
Height = 22
Style = csDropDownList
ItemHeight = 14
ItemIndex = 0
TabOrder = 0
Text = 'SQL Server [BDE]'
Items.Strings = (
'SQL Server [BDE]'
'MySQL [ODBC]'
'DB2 [BDE]'
'Access [ADO]')
end
object cbxBdb: TComboBox
Left = 63
Top = 49
Width = 150
Height = 22
ItemHeight = 14
TabOrder = 2
end
object edtBuser: TEdit
Left = 63
Top = 71
Width = 150
Height = 22
TabOrder = 3
end
object edtBpass: TEdit
Left = 63
Top = 93
Width = 150
Height = 22
TabOrder = 4
end
object edtBServer: TEdit
Left = 63
Top = 27
Width = 150
Height = 22
TabOrder = 1
Text = '127.0.0.1'
end
object bbtLink2: TBitBtn
Left = 63
Top = 137
Width = 75
Height = 30
Caption = #36830#25509
TabOrder = 6
end
end
object DBGrid2: TDBGrid
Left = 495
Top = 1
Width = 292
Height = 173
Align = alClient
ReadOnly = True
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object Panel4: TPanel
Left = 231
Top = 1
Width = 260
Height = 173
Align = alLeft
BevelInner = bvLowered
TabOrder = 2
object Panel7: TPanel
Left = 2
Top = 121
Width = 256
Height = 50
Align = alBottom
TabOrder = 1
object Label13: TLabel
Left = 16
Top = 27
Width = 35
Height = 14
Hint = #35760#24405': '
Caption = #35760#24405':'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 16
Top = 9
Width = 35
Height = 14
Hint = #35760#24405': '
Caption = #23383#27573':'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object CheckBox3: TCheckBox
Left = 172
Top = 16
Width = 80
Height = 17
Caption = #32479#19968#21015#23485
TabOrder = 0
OnClick = CheckBox2Click
end
object SpinEdit2: TSpinEdit
Left = 120
Top = 13
Width = 50
Height = 23
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 100
end
end
object lv2: TListView
Left = 2
Top = 2
Width = 256
Height = 119
Align = alClient
Columns = <
item
Caption = #23383#27573
Width = 80
end
item
Caption = #31867#22411
Width = 80
end
item
AutoSize = True
Caption = #38271#24230
WidthType = (
-8)
end
item
Caption = #20869#37096#31867#22411
Width = 100
end>
ColumnClick = False
GridLines = True
HideSelection = False
Items.Data = {
520000000200000000000000FFFFFFFFFFFFFFFF020000000000000007616263
6465666707766172636861720331303000000000FFFFFFFFFFFFFFFF01000000
0000000003313233033435360100FFFFFFFF}
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
end
end
object mo: TMemo
Left = 2
Top = 352
Width = 399
Height = 119
Align = alLeft
Lines.Strings = (
'mo')
ScrollBars = ssBoth
TabOrder = 2
end
end
inherited ActionList1: TActionList
Left = 641
Top = 25
end
object dlgOpenMDB: TOpenDialog
Filter = 'Access Database (*.mdb)|*.mdb'
Left = 640
Top = 80
end
object adoQList1: TADOQuery
Connection = dbm.adocLink
Parameters = <>
Left = 528
Top = 120
end
object DataSource1: TDataSource
Left = 594
Top = 122
end
object qryPubSQL: TQuery
DatabaseName = 'linkSQLS'
Left = 528
Top = 72
end
object qryPubDB2: TQuery
DatabaseName = 'myDB2'
Left = 525
Top = 16
end
object qryPubMySQL: TQuery
DatabaseName = 'dbMySQL'
Left = 722
Top = 24
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -