📄 ufrmimportnew.dfm
字号:
Left = 64
Top = 107
Width = 200
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 6
OnChange = edita5Change
OnKeyDown = edita1KeyDown
end
end
object lv1: TListView
Left = 281
Top = 1
Width = 260
Height = 148
Align = alLeft
Columns = <
item
Caption = #23383#27573
Width = 100
end
item
Caption = #31867#22411
Width = 100
end
item
AutoSize = True
Caption = #40664#35748#20540
end>
ColumnClick = False
GridLines = True
HideSelection = False
Items.Data = {
9E0000000500000000000000FFFFFFFFFFFFFFFF010000000000000003616161
0362626200000000FFFFFFFFFFFFFFFF01000000000000000331323303343536
00000000FFFFFFFFFFFFFFFF0100000000000000036363630331323301000000
FFFFFFFFFFFFFFFF0100000000000000033435360364646400000000FFFFFFFF
FFFFFFFF010000000000000003666666036767670100FFFFFFFFFFFFFFFF}
ReadOnly = True
RowSelect = True
StateImages = ImageList1
TabOrder = 2
ViewStyle = vsReport
OnCustomDrawItem = lv1CustomDrawItem
OnCustomDrawSubItem = lv1CustomDrawSubItem
OnResize = lv1Resize
end
end
object Panel6: TPanel
Left = 2
Top = 152
Width = 788
Height = 150
Align = alTop
TabOrder = 2
object Panel3: TPanel
Left = 1
Top = 1
Width = 280
Height = 148
Align = alLeft
BevelInner = bvLowered
TabOrder = 0
object Label6: TLabel
Left = 16
Top = 16
Width = 49
Height = 13
AutoSize = False
Caption = #26381#21153#22120
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 40
Width = 47
Height = 13
AutoSize = False
Caption = #30446#30340#24211
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 16
Top = 64
Width = 44
Height = 13
AutoSize = False
Caption = #29992#25143#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 16
Top = 88
Width = 34
Height = 13
AutoSize = False
Caption = #23494#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 16
Top = 112
Width = 35
Height = 13
AutoSize = False
Caption = #34920#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object editb1: TEdit
Left = 64
Top = 8
Width = 121
Height = 22
TabOrder = 0
Text = '10.10.20.13'
OnKeyDown = edita1KeyDown
end
object editb4: TEdit
Left = 64
Top = 80
Width = 121
Height = 22
TabOrder = 3
Text = 'sa'
OnKeyDown = edita1KeyDown
end
object editb3: TEdit
Left = 64
Top = 56
Width = 121
Height = 22
TabOrder = 2
Text = 'sa'
OnKeyDown = edita1KeyDown
end
object editb2: TEdit
Left = 64
Top = 32
Width = 121
Height = 22
TabOrder = 1
Text = 'master'
OnKeyDown = edita1KeyDown
end
object btnlink2: TButton
Left = 195
Top = 8
Width = 73
Height = 40
Caption = #36830#25509'(&3)'
TabOrder = 4
OnClick = btnlink2Click
end
object btnunlink2: TButton
Left = 195
Top = 56
Width = 73
Height = 40
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 = 6
OnChange = editb5Change
OnKeyDown = edita1KeyDown
end
end
object DBGrid2: TDBGrid
Left = 541
Top = 1
Width = 246
Height = 148
Align = alClient
DataSource = DataSource2
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object lv2: TListView
Left = 281
Top = 1
Width = 260
Height = 148
Align = alLeft
Columns = <
item
Caption = #23383#27573
Width = 100
end
item
Caption = #31867#22411
Width = 100
end
item
AutoSize = True
Caption = #40664#35748#20540
end>
ColumnClick = False
GridLines = True
HideSelection = False
Items.Data = {
9E0000000500000000000000FFFFFFFFFFFFFFFF010000000000000003616161
0362626200000000FFFFFFFFFFFFFFFF01000000000000000331323303343536
00000000FFFFFFFFFFFFFFFF0100000000000000036363630331323301000000
FFFFFFFFFFFFFFFF0100000000000000033435360364646400000000FFFFFFFF
FFFFFFFF010000000000000003666666036767670100FFFFFFFFFFFFFFFF}
ReadOnly = True
RowSelect = True
StateImages = ImageList1
TabOrder = 2
ViewStyle = vsReport
OnCustomDrawSubItem = lv2CustomDrawSubItem
OnResize = lv2Resize
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 553
Width = 792
Height = 20
Panels = <
item
Width = 200
end
item
Width = 200
end
item
Width = 300
end>
OnDrawPanel = StatusBar1DrawPanel
end
object ProgressBar1: TProgressBar
Left = 451
Top = 540
Width = 182
Height = 25
Position = 30
TabOrder = 2
Visible = False
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 = 640
Top = 8
end
object Query1: TQuery
DatabaseName = 'seal'
SQL.Strings = (
'select * from xzqhinfo')
Left = 640
Top = 56
end
object DataSource1: TDataSource
DataSet = Query1
Left = 640
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 = 640
Top = 160
end
object Query2: TQuery
DatabaseName = 'sars'
Left = 640
Top = 208
end
object DataSource2: TDataSource
DataSet = Query2
Left = 640
Top = 256
end
object Query3: TQuery
Left = 252
Top = 336
end
object ImageList1: TImageList
Height = 18
Width = 1
Left = 482
Top = 42
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -