frm_dst.~dfm

来自「一个电力企业的后台管理程序」· ~DFM 代码 · 共 356 行

object Form_Dts: TForm_Dts
  Left = 187
  Top = 109
  BorderStyle = bsDialog
  Caption = '数据表备份'
  ClientHeight = 420
  ClientWidth = 556
  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 = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 556
    Height = 420
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object pc_DtsWizads: TPageControl
      Left = 1
      Top = 1
      Width = 554
      Height = 418
      ActivePage = Ts_CondSet
      Align = alClient
      TabOrder = 0
      object Ts_DataBaseSet: TTabSheet
        Caption = '数据库设置'
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 546
          Height = 223
          Align = alTop
          TabOrder = 0
          object Label1: TLabel
            Left = 67
            Top = 41
            Width = 48
            Height = 15
            Caption = '主机名：'
          end
          object Label2: TLabel
            Left = 67
            Top = 81
            Width = 60
            Height = 15
            Caption = '数据库名：'
          end
          object Label3: TLabel
            Left = 67
            Top = 121
            Width = 48
            Height = 15
            Caption = '用户名：'
          end
          object Label4: TLabel
            Left = 67
            Top = 162
            Width = 36
            Height = 15
            Caption = '密码：'
          end
          object Edt_HostName: TEdit
            Left = 137
            Top = 34
            Width = 361
            Height = 23
            TabOrder = 0
          end
          object Edt_DbName: TEdit
            Left = 137
            Top = 75
            Width = 361
            Height = 23
            TabOrder = 1
          end
          object Edt_UserName: TEdit
            Left = 137
            Top = 116
            Width = 361
            Height = 23
            TabOrder = 2
          end
          object Edt_PassWord: TEdit
            Left = 138
            Top = 157
            Width = 361
            Height = 23
            PasswordChar = '*'
            TabOrder = 3
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = 223
          Width = 546
          Height = 100
          Align = alTop
          TabOrder = 1
          object Rb_Outport: TRadioButton
            Left = 100
            Top = 40
            Width = 141
            Height = 21
            Caption = '导出'
            Checked = True
            TabOrder = 0
            TabStop = True
          end
          object Rb_Import: TRadioButton
            Left = 353
            Top = 40
            Width = 141
            Height = 21
            Caption = '导入'
            TabOrder = 1
          end
        end
        object Panel4: TPanel
          Left = 0
          Top = 323
          Width = 546
          Height = 65
          Align = alClient
          TabOrder = 2
          object BitBtn1: TBitBtn
            Left = 254
            Top = 20
            Width = 94
            Height = 31
            Caption = '下一步'
            TabOrder = 0
            OnClick = BitBtn1Click
          end
          object BitBtn2: TBitBtn
            Left = 404
            Top = 20
            Width = 94
            Height = 31
            Caption = '退出'
            TabOrder = 1
            OnClick = BitBtn2Click
          end
        end
      end
      object Ts_SelectTable: TTabSheet
        Caption = '表设置'
        ImageIndex = 1
        object SpeedButton1: TSpeedButton
          Left = 238
          Top = 34
          Width = 41
          Height = 42
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333FF3333333333333447333333333333377FFF33333333333744473333333
            333337773FF3333333333444447333333333373F773FF3333333334444447333
            33333373F3773FF3333333744444447333333337F333773FF333333444444444
            733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
            999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
            33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
            333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
            33333777333333333333CC333333333333337733333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 238
          Top = 111
          Width = 41
          Height = 41
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333FF3333333333333003333
            3333333333773FF3333333333309003333333333337F773FF333333333099900
            33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
            99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
            33333333337F3F77333333333309003333333333337F77333333333333003333
            3333333333773333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 238
          Top = 185
          Width = 41
          Height = 41
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333FF3333333333333003333333333333F77F33333333333009033
            333333333F7737F333333333009990333333333F773337FFFFFF330099999000
            00003F773333377777770099999999999990773FF33333FFFFF7330099999000
            000033773FF33777777733330099903333333333773FF7F33333333333009033
            33333333337737F3333333333333003333333333333377333333333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton3Click
        end
        object SpeedButton4: TSpeedButton
          Left = 238
          Top = 263
          Width = 41
          Height = 42
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF3333333333333744333333333333F773333333333337
            44473333333333F777F3333333333744444333333333F7733733333333374444
            4433333333F77333733333333744444447333333F7733337F333333744444444
            433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
            9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
            C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
            CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
            CCC333333333333777FF33333333333333CC3333333333333773}
          NumGlyphs = 2
          OnClick = SpeedButton4Click
        end
        object Lb_Source: TListBox
          Left = 10
          Top = 12
          Width = 200
          Height = 314
          ItemHeight = 15
          Sorted = True
          TabOrder = 0
          OnDblClick = SpeedButton2Click
        end
        object Lb_Des: TListBox
          Left = 302
          Top = 12
          Width = 200
          Height = 314
          ItemHeight = 15
          TabOrder = 1
          OnDblClick = SpeedButton3Click
        end
        object BitBtn3: TBitBtn
          Left = 139
          Top = 342
          Width = 94
          Height = 31
          Caption = '上一步'
          TabOrder = 2
          OnClick = BitBtn3Click
        end
        object BitBtn4: TBitBtn
          Left = 249
          Top = 342
          Width = 94
          Height = 31
          Caption = '下一步'
          TabOrder = 3
          OnClick = BitBtn4Click
        end
        object BitBtn5: TBitBtn
          Left = 409
          Top = 342
          Width = 94
          Height = 31
          Caption = '退出'
          TabOrder = 4
          OnClick = BitBtn5Click
        end
      end
      object Ts_CondSet: TTabSheet
        Caption = '条件设置'
        ImageIndex = 2
        object Lv_Table: TListView
          Left = 10
          Top = 10
          Width = 526
          Height = 314
          Columns = <
            item
              Caption = '源表名'
              Width = 225
            end
            item
              Alignment = taCenter
              Caption = '目的表名'
              Width = 225
            end
            item
              Alignment = taCenter
              Caption = '是否删除源记录'
              Width = 125
            end
            item
              Alignment = taCenter
              Caption = '备份条件'
              Width = 250
            end>
          GridLines = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = Lv_TableDblClick
        end
        object BitBtn6: TBitBtn
          Left = 183
          Top = 338
          Width = 94
          Height = 31
          Caption = '上一步'
          TabOrder = 1
          OnClick = BitBtn6Click
        end
        object BitBtn7: TBitBtn
          Left = 443
          Top = 338
          Width = 94
          Height = 31
          Caption = '退出'
          TabOrder = 2
          OnClick = BitBtn7Click
        end
        object BitBtn8: TBitBtn
          Left = 313
          Top = 338
          Width = 94
          Height = 31
          Caption = '确定'
          TabOrder = 3
          OnClick = BitBtn8Click
        end
      end
    end
  end
end