📄 ufrmimport.dfm
字号:
object frmImport: TfrmImport
Left = 206
Top = 108
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #25968#25454#20114#23548
ClientHeight = 535
ClientWidth = 761
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Panel1: TPanel
Left = 0
Top = 0
Width = 380
Height = 281
Align = alLeft
BevelInner = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 45
Height = 13
AutoSize = False
Caption = #26381#21153#22120
end
object Label2: TLabel
Left = 16
Top = 40
Width = 45
Height = 13
AutoSize = False
Caption = #25968#25454#24211
end
object Label3: TLabel
Left = 16
Top = 64
Width = 44
Height = 13
AutoSize = False
Caption = #29992#25143#21517
end
object Label4: TLabel
Left = 16
Top = 88
Width = 33
Height = 13
AutoSize = False
Caption = #23494#30721
end
object Label5: TLabel
Left = 16
Top = 112
Width = 41
Height = 13
AutoSize = False
Caption = #34920#21517
end
object DBGrid1: TDBGrid
Left = 2
Top = 132
Width = 376
Height = 147
Align = alBottom
DataSource = DataSource1
ReadOnly = True
TabOrder = 6
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object edita1: TEdit
Left = 64
Top = 8
Width = 121
Height = 22
TabOrder = 0
Text = '10.10.20.8'
OnKeyDown = edita1KeyDown
end
object edita2: TEdit
Left = 64
Top = 32
Width = 121
Height = 22
TabOrder = 1
Text = 'master'
end
object edita3: TEdit
Left = 64
Top = 56
Width = 121
Height = 22
TabOrder = 2
Text = 'sa'
end
object edita4: TEdit
Left = 64
Top = 80
Width = 121
Height = 22
TabOrder = 3
Text = 'sa'
end
object btnlink1: TButton
Left = 208
Top = 8
Width = 73
Height = 41
Caption = #36830#25509'(&1)'
TabOrder = 4
OnClick = btnlink1Click
end
object btnunlink1: TButton
Left = 208
Top = 56
Width = 73
Height = 41
Caption = #26029#24320'(&2)'
TabOrder = 5
OnClick = btnunlink1Click
end
object edita5: TComboBox
Left = 64
Top = 107
Width = 200
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 7
OnChange = edita5Change
end
end
object Panel2: TPanel
Left = 380
Top = 0
Width = 381
Height = 281
Align = alClient
BevelInner = bvLowered
TabOrder = 1
object Label6: TLabel
Left = 16
Top = 16
Width = 49
Height = 13
AutoSize = False
Caption = #26381#21153#22120
end
object Label7: TLabel
Left = 16
Top = 40
Width = 47
Height = 13
AutoSize = False
Caption = #25968#25454#24211
end
object Label8: TLabel
Left = 16
Top = 64
Width = 44
Height = 13
AutoSize = False
Caption = #29992#25143#21517
end
object Label9: TLabel
Left = 16
Top = 88
Width = 34
Height = 13
AutoSize = False
Caption = #23494#30721
end
object Label10: TLabel
Left = 16
Top = 112
Width = 35
Height = 13
AutoSize = False
Caption = #34920#21517
end
object DBGrid2: TDBGrid
Left = 2
Top = 132
Width = 377
Height = 147
Align = alBottom
DataSource = DataSource2
ReadOnly = True
TabOrder = 6
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object editb1: TEdit
Left = 64
Top = 8
Width = 121
Height = 22
TabOrder = 0
Text = '10.10.20.13'
end
object editb4: TEdit
Left = 64
Top = 80
Width = 121
Height = 22
TabOrder = 3
Text = 'sa'
end
object editb3: TEdit
Left = 64
Top = 56
Width = 121
Height = 22
TabOrder = 2
Text = 'sa'
end
object editb2: TEdit
Left = 64
Top = 32
Width = 121
Height = 22
TabOrder = 1
Text = 'master'
end
object btnlink2: TButton
Left = 208
Top = 8
Width = 73
Height = 41
Caption = #36830#25509'(&3)'
TabOrder = 4
OnClick = btnlink2Click
end
object btnunlink2: TButton
Left = 208
Top = 56
Width = 73
Height = 41
Caption = #26029#24320'(&4)'
TabOrder = 5
OnClick = btnunlink2Click
end
object editb5: TComboBox
Left = 64
Top = 107
Width = 200
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 7
OnChange = editb5Change
end
end
object Panel3: TPanel
Left = 0
Top = 281
Width = 761
Height = 235
Align = alBottom
BevelInner = bvLowered
TabOrder = 2
object Label11: TLabel
Left = 552
Top = 38
Width = 32
Height = 16
Caption = '===>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 392
Top = 8
Width = 64
Height = 16
Caption = #28304#34920#23383#27573
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 600
Top = 8
Width = 80
Height = 16
Caption = #30446#30340#34920#23383#27573
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object labA: TLabel
Left = 500
Top = 78
Width = 10
Height = 19
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object labB: TLabel
Left = 638
Top = 78
Width = 10
Height = 19
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object cbx2: TComboBox
Left = 600
Top = 35
Width = 145
Height = 24
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
end
object cbx1: TComboBox
Left = 392
Top = 35
Width = 145
Height = 24
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
end
object lv1: TListView
Left = 2
Top = 2
Width = 375
Height = 231
Align = alLeft
Columns = <
item
AutoSize = True
Caption = #28304#34920#23383#27573
end
item
AutoSize = True
Caption = #30446#30340#34920#23383#27573
end
item
Caption = #26631#24535
Width = 0
end>
ColumnClick = False
GridLines = True
HideSelection = False
Items.Data = {
9E0000000500000000000000FFFFFFFFFFFFFFFF010000000000000003616161
0362626200000000FFFFFFFFFFFFFFFF01000000000000000331323303343536
00000000FFFFFFFFFFFFFFFF0100000000000000036363630331323301000000
FFFFFFFFFFFFFFFF0100000000000000033435360364646400000000FFFFFFFF
FFFFFFFF010000000000000003666666036767670100FFFFFFFFFFFFFFFF}
ReadOnly = True
RowSelect = True
TabOrder = 2
ViewStyle = vsReport
end
object btnadd: TButton
Left = 392
Top = 111
Width = 89
Height = 45
Caption = #28155#21152'(&T)'
TabOrder = 3
OnClick = btnaddClick
end
object btndel: TButton
Left = 392
Top = 175
Width = 89
Height = 45
Caption = #21024#38500'(&D)'
Enabled = False
TabOrder = 4
OnClick = btndelClick
end
object btngo: TButton
Left = 512
Top = 175
Width = 89
Height = 45
Caption = #23548#20837'(&E)'
Enabled = False
TabOrder = 5
OnClick = btngoClick
end
object btnclear: TButton
Left = 512
Top = 111
Width = 89
Height = 45
Caption = #28165#38500'(&C)'
Enabled = False
TabOrder = 6
OnClick = btnclearClick
end
object btnall: TButton
Left = 632
Top = 111
Width = 89
Height = 45
Caption = #20840#23548'(&A)'
Enabled = False
TabOrder = 7
OnClick = btnallClick
end
object btnout: TButton
Left = 632
Top = 175
Width = 89
Height = 45
Cancel = True
Caption = #36864#20986'(&Q)'
TabOrder = 8
OnClick = btnoutClick
end
object BitBtn1: TBitBtn
Left = 544
Top = 72
Width = 50
Height = 30
Caption = 'Auto'
TabOrder = 9
OnClick = BitBtn1Click
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 516
Width = 761
Height = 19
Panels = <
item
Width = 300
end
item
Width = 50
end>
end
object Database1: TDatabase
DriverName = 'MSSQL'
LoginPrompt = False
Params.Strings = (
'DATABASE NAME='
'SERVER NAME=MSS_SERVER'
'USER NAME=MYNAME'
'OPEN MODE=READ/WRITE'
'SCHEMA CACHE SIZE=8'
'BLOB EDIT LOGGING='
'LANGDRIVER='
'SQLQRYMODE='
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'DATE MODE=0'
'SCHEMA CACHE TIME=-1'
'MAX QUERY TIME=300'
'MAX ROWS=-1'
'BATCH COUNT=200'
'ENABLE SCHEMA CACHE=FALSE'
'SCHEMA CACHE DIR='
'HOST NAME='
'APPLICATION NAME='
'NATIONAL LANG NAME='
'ENABLE BCD=FALSE'
'TDS PACKET SIZE=4096'
'BLOBS TO CACHE=64'
'BLOB SIZE=32'
'PASSWORD=')
SessionName = 'Default'
AfterConnect = Database1AfterConnect
AfterDisconnect = Database1AfterDisconnect
Left = 320
Top = 8
end
object Query1: TQuery
DatabaseName = 'seal'
SQL.Strings = (
'select * from xzqhinfo')
Left = 320
Top = 56
end
object DataSource1: TDataSource
DataSet = Query1
Left = 320
Top = 104
end
object Database2: TDatabase
DriverName = 'MSSQL'
LoginPrompt = False
Params.Strings = (
'DATABASE NAME='
'SERVER NAME=MSS_SERVER'
'USER NAME=MYNAME'
'OPEN MODE=READ/WRITE'
'SCHEMA CACHE SIZE=8'
'BLOB EDIT LOGGING='
'LANGDRIVER='
'SQLQRYMODE='
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'DATE MODE=0'
'SCHEMA CACHE TIME=-1'
'MAX QUERY TIME=300'
'MAX ROWS=-1'
'BATCH COUNT=200'
'ENABLE SCHEMA CACHE=FALSE'
'SCHEMA CACHE DIR='
'HOST NAME='
'APPLICATION NAME='
'NATIONAL LANG NAME='
'ENABLE BCD=FALSE'
'TDS PACKET SIZE=4096'
'BLOBS TO CACHE=64'
'BLOB SIZE=32'
'PASSWORD=')
SessionName = 'Default'
AfterConnect = Database2AfterConnect
AfterDisconnect = Database2AfterDisconnect
Left = 696
Top = 8
end
object Query2: TQuery
DatabaseName = 'sars'
Left = 696
Top = 56
end
object DataSource2: TDataSource
DataSet = Query2
Left = 696
Top = 104
end
object Query3: TQuery
Left = 668
Top = 168
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -