?? unit_importdata.dfm
字號:
object Frm_ImportData: TFrm_ImportData
Left = 47
Top = 95
Width = 754
Height = 452
Caption = '成批數據導入'
Color = clBtnFace
DragMode = dmAutomatic
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnDestroy = FormDestroy
OnDragDrop = FormDragDrop
OnDragOver = FormDragOver
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 746
Height = 425
ActivePage = TabSheet1
Align = alClient
DragMode = dmAutomatic
Style = tsButtons
TabOrder = 0
OnDragDrop = PageControl1DragDrop
OnDragOver = PageControl1DragOver
object TabSheet1: TTabSheet
Caption = '數據導入'
object Splitter1: TSplitter
Left = 329
Top = 0
Width = 3
Height = 361
Cursor = crHSplit
AutoSnap = False
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 329
Height = 361
Align = alLeft
Caption = '源數據'
DragMode = dmAutomatic
TabOrder = 0
OnDragDrop = GroupBox1DragDrop
OnDragOver = GroupBox1DragOver
object Memo1: TMemo
Left = 2
Top = 92
Width = 325
Height = 267
Align = alClient
Lines.Strings = (
'')
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
object Panel2: TPanel
Left = 2
Top = 16
Width = 325
Height = 76
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 28
Width = 140
Height = 14
Caption = '請選擇要導入的文件名'
end
object Label2: TLabel
Left = 37
Top = 5
Width = 112
Height = 14
Caption = '是否存在字段說明'
end
object Edit1: TEdit
Left = 16
Top = 47
Width = 209
Height = 22
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
object Button1: TButton
Left = 231
Top = 46
Width = 25
Height = 25
Caption = '...'
TabOrder = 1
OnClick = Button1Click
end
object CheckBox1: TCheckBox
Left = 17
Top = 3
Width = 17
Height = 17
TabOrder = 2
OnClick = CheckBox1Click
end
end
object ListView1: TListView
Left = 2
Top = 92
Width = 325
Height = 267
Align = alClient
Columns = <>
GridLines = True
ReadOnly = True
RowSelect = True
TabOrder = 2
ViewStyle = vsReport
Visible = False
end
end
object Panel1: TPanel
Left = 0
Top = 361
Width = 738
Height = 32
Align = alBottom
BevelOuter = bvNone
DragMode = dmAutomatic
TabOrder = 1
object Button4: TButton
Left = 6
Top = 5
Width = 110
Height = 25
Caption = '請選擇對應字段'
TabOrder = 1
OnClick = Button4Click
end
object Button3: TButton
Left = 115
Top = 5
Width = 75
Height = 25
Caption = '執行'
TabOrder = 0
OnClick = Button3Click
end
object Button2: TButton
Left = 189
Top = 5
Width = 75
Height = 25
Caption = '關閉'
TabOrder = 2
OnClick = Button2Click
end
end
object GroupBox2: TGroupBox
Left = 332
Top = 0
Width = 406
Height = 361
Align = alClient
Caption = '目標數據'
DragMode = dmAutomatic
TabOrder = 2
OnDragDrop = GroupBox2DragDrop
OnDragOver = GroupBox2DragOver
object GroupBox3: TGroupBox
Left = 2
Top = 65
Width = 402
Height = 294
Align = alClient
Caption = '錯誤日志'
TabOrder = 0
object Memo2: TMemo
Left = 2
Top = 16
Width = 398
Height = 276
Align = alClient
Color = clBtnFace
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
end
object Panel3: TPanel
Left = 2
Top = 16
Width = 402
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label3: TLabel
Left = 13
Top = 17
Width = 70
Height = 14
Caption = '請選擇表名'
end
object ComboBox: TComboBox
Left = 88
Top = 14
Width = 273
Height = 22
Style = csDropDownList
Color = clBtnFace
ItemHeight = 14
TabOrder = 0
end
end
end
end
end
object Panel4: TPanel
Left = 228
Top = 110
Width = 387
Height = 268
DragMode = dmAutomatic
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
OnDragOver = Panel4DragOver
object Bevel2: TBevel
Left = 7
Top = 30
Width = 373
Height = 237
Shape = bsFrame
end
object Bevel1: TBevel
Left = 304
Top = 46
Width = 72
Height = 211
Shape = bsFrame
end
object Label6: TLabel
Left = 323
Top = 33
Width = 21
Height = 160
Caption = '數據字段連接設置'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = '宋體'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object SpeedButton1: TSpeedButton
Left = 138
Top = 79
Width = 41
Height = 22
Caption = '增加'
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 138
Top = 110
Width = 41
Height = 22
Caption = '刪除'
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 138
Top = 141
Width = 41
Height = 22
Caption = '清空'
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 314
Top = 195
Width = 53
Height = 22
Caption = '確定'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 314
Top = 230
Width = 53
Height = 22
Caption = '取消'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
OnClick = SpeedButton5Click
end
object GroupBox4: TGroupBox
Left = 16
Top = 40
Width = 116
Height = 137
Caption = '源數據'
TabOrder = 0
object Label7: TLabel
Left = 6
Top = 17
Width = 65
Height = 12
Caption = '文體分隔符'
end
object Label8: TLabel
Left = 18
Top = 37
Width = 52
Height = 12
Caption = '總共列數'
end
object yhzd_list: TListBox
Left = 9
Top = 56
Width = 97
Height = 73
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
ItemHeight = 14
Items.Strings = (
'第1列'
'第2列')
ParentFont = False
Sorted = True
TabOrder = 0
end
object divi_edit: TEdit
Left = 71
Top = 13
Width = 41
Height = 20
Color = clInfoBk
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
MaxLength = 1
ParentFont = False
TabOrder = 1
end
object col_edit: TEdit
Left = 71
Top = 34
Width = 25
Height = 20
Color = clInfoBk
MaxLength = 1
TabOrder = 2
Text = '3'
OnChange = col_editChange
end
object UpDown1: TUpDown
Left = 96
Top = 34
Width = 15
Height = 20
Associate = col_edit
Min = 0
Position = 3
TabOrder = 3
Wrap = False
end
end
object GroupBox5: TGroupBox
Left = 184
Top = 41
Width = 116
Height = 137
Caption = '目標數據'
TabOrder = 1
object xtzd_list: TListBox
Left = 7
Top = 16
Width = 101
Height = 113
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
ItemHeight = 14
Items.Strings = (
'客戶編碼'
'客戶姓名'
'學歷'
'客戶條形碼'
'已借冊數'
'可借書冊數')
ParentFont = False
TabOrder = 0
OnDblClick = SpeedButton1Click
end
end
object link_list: TListBox
Left = 16
Top = 188
Width = 283
Height = 60
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 2
OnDblClick = SpeedButton2Click
end
object Panel5: TPanel
Left = 12
Top = 5
Width = 370
Height = 19
BevelOuter = bvLowered
Color = clNavy
TabOrder = 3
object SpeedButton6: TSpeedButton
Left = 352
Top = 3
Width = 14
Height = 14
Caption = '×'
OnClick = SpeedButton6Click
end
object Label9: TLabel
Left = 6
Top = 3
Width = 91
Height = 12
Caption = '數據連接設置窗'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = '宋體'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
end
end
object PnlPrint: TPanel
Left = 249
Top = 160
Width = 352
Height = 121
BevelInner = bvRaised
TabOrder = 2
object Label146: TLabel
Left = 40
Top = 24
Width = 255
Height = 16
Caption = '正在取數據，這將花一定的時間！'
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = '宋體'
Font.Style = [fsBold]
ParentFont = False
end
object Label147: TLabel
Left = 111
Top = 64
Width = 129
Height = 16
Caption = '請您耐心等待...'
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = '宋體'
Font.Style = [fsBold]
ParentFont = False
end
end
object Query1: TQuery
DatabaseName = 'db_vipdl'
Left = 557
Top = 193
end
object OpenDialog1: TOpenDialog
Filter = '*.txt|*.txt|*.xls|*.xls'
Left = 286
Top = 9
end
object Query2: TQuery
DatabaseName = 'db_vipdl'
Left = 599
Top = 193
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -