frm_dst.dfm
来自「一个电力企业的后台管理程序」· DFM 代码 · 共 356 行
DFM
356 行
object Form_Dts: TForm_Dts
Left = 187
Top = 109
BorderStyle = bsDialog
Caption = '数据表备份'
ClientHeight = 336
ClientWidth = 445
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 445
Height = 336
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object pc_DtsWizads: TPageControl
Left = 1
Top = 1
Width = 443
Height = 334
ActivePage = Ts_CondSet
Align = alClient
TabOrder = 0
object Ts_DataBaseSet: TTabSheet
Caption = '数据库设置'
object Panel2: TPanel
Left = 0
Top = 0
Width = 437
Height = 178
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 54
Top = 33
Width = 48
Height = 12
Caption = '主机名:'
end
object Label2: TLabel
Left = 54
Top = 65
Width = 60
Height = 12
Caption = '数据库名:'
end
object Label3: TLabel
Left = 54
Top = 97
Width = 48
Height = 12
Caption = '用户名:'
end
object Label4: TLabel
Left = 54
Top = 130
Width = 36
Height = 12
Caption = '密码:'
end
object Edt_HostName: TEdit
Left = 110
Top = 27
Width = 288
Height = 23
TabOrder = 0
end
object Edt_DbName: TEdit
Left = 110
Top = 60
Width = 288
Height = 23
TabOrder = 1
end
object Edt_UserName: TEdit
Left = 110
Top = 93
Width = 288
Height = 23
TabOrder = 2
end
object Edt_PassWord: TEdit
Left = 110
Top = 126
Width = 289
Height = 23
PasswordChar = '*'
TabOrder = 3
end
end
object Panel3: TPanel
Left = 0
Top = 178
Width = 437
Height = 80
Align = alTop
TabOrder = 1
object Rb_Outport: TRadioButton
Left = 80
Top = 32
Width = 113
Height = 17
Caption = '导出'
Checked = True
TabOrder = 0
TabStop = True
end
object Rb_Import: TRadioButton
Left = 282
Top = 32
Width = 113
Height = 17
Caption = '导入'
TabOrder = 1
end
end
object Panel4: TPanel
Left = 0
Top = 258
Width = 437
Height = 52
Align = alClient
TabOrder = 2
object BitBtn1: TBitBtn
Left = 203
Top = 16
Width = 75
Height = 25
Caption = '下一步'
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 323
Top = 16
Width = 75
Height = 25
Caption = '退出'
TabOrder = 1
OnClick = BitBtn2Click
end
end
end
object Ts_SelectTable: TTabSheet
Caption = '表设置'
ImageIndex = 1
object SpeedButton1: TSpeedButton
Left = 190
Top = 27
Width = 33
Height = 34
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FF3333333333333447333333333333377FFF33333333333744473333333
333337773FF3333333333444447333333333373F773FF3333333334444447333
33333373F3773FF3333333744444447333333337F333773FF333333444444444
733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
33333777333333333333CC333333333333337733333333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 190
Top = 89
Width = 33
Height = 33
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 190
Top = 148
Width = 33
Height = 33
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 190
Top = 210
Width = 33
Height = 34
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF3333333333333744333333333333F773333333333337
44473333333333F777F3333333333744444333333333F7733733333333374444
4433333333F77333733333333744444447333333F7733337F333333744444444
433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
CCC333333333333777FF33333333333333CC3333333333333773}
NumGlyphs = 2
OnClick = SpeedButton4Click
end
object Lb_Source: TListBox
Left = 8
Top = 10
Width = 160
Height = 251
ItemHeight = 15
Sorted = True
TabOrder = 0
OnDblClick = SpeedButton2Click
end
object Lb_Des: TListBox
Left = 242
Top = 10
Width = 160
Height = 251
ItemHeight = 15
TabOrder = 1
OnDblClick = SpeedButton3Click
end
object BitBtn3: TBitBtn
Left = 111
Top = 274
Width = 75
Height = 24
Caption = '上一步'
TabOrder = 2
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 199
Top = 274
Width = 75
Height = 24
Caption = '下一步'
TabOrder = 3
OnClick = BitBtn4Click
end
object BitBtn5: TBitBtn
Left = 327
Top = 274
Width = 75
Height = 24
Caption = '退出'
TabOrder = 4
OnClick = BitBtn5Click
end
end
object Ts_CondSet: TTabSheet
Caption = '条件设置'
ImageIndex = 2
object Lv_Table: TListView
Left = 8
Top = 8
Width = 421
Height = 251
Columns = <
item
Caption = '源表名'
Width = 180
end
item
Alignment = taCenter
Caption = '目的表名'
Width = 180
end
item
Alignment = taCenter
Caption = '是否删除源记录'
Width = 100
end
item
Alignment = taCenter
Caption = '备份条件'
Width = 200
end>
GridLines = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnDblClick = Lv_TableDblClick
end
object BitBtn6: TBitBtn
Left = 146
Top = 270
Width = 76
Height = 25
Caption = '上一步'
TabOrder = 1
OnClick = BitBtn6Click
end
object BitBtn7: TBitBtn
Left = 354
Top = 270
Width = 76
Height = 25
Caption = '退出'
TabOrder = 2
OnClick = BitBtn7Click
end
object BitBtn8: TBitBtn
Left = 250
Top = 270
Width = 76
Height = 25
Caption = '确定'
TabOrder = 3
OnClick = BitBtn8Click
end
end
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?