unit1.dfm

在自己的程序中完成SQK2K中的数据库的备份和恢复。虽然调用外部程序来完成

object Form1: TForm1
  Left = 4
  Top = 105
  Width = 790
  Height = 591
  Caption = #25968#25454#24211#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 601
    Height = 537
    ActivePage = TabSheet2
    TabIndex = 1
    TabOrder = 5
    object TabSheet1: TTabSheet
      Caption = #22791'  '#20221
      object PVLV: TListView
        Left = 8
        Top = 56
        Width = 497
        Height = 393
        Checkboxes = True
        Columns = <
          item
            Caption = #20840#36873
            Width = 200
          end
          item
            Caption = #20840#21542
            MaxWidth = 38
            MinWidth = 38
            Width = 38
          end
          item
            Caption = 'TblName'
          end
          item
            Caption = 'RecCount'
            Width = 70
          end>
        Ctl3D = False
        FlatScrollBars = True
        ReadOnly = True
        RowSelect = True
        ShowWorkAreas = True
        TabOrder = 0
        ViewStyle = vsReport
        OnChange = PVLVChange
        OnColumnClick = PVLVColumnClick
      end
      object DataBaseRdoGrp: TRadioGroup
        Left = 8
        Top = 8
        Width = 153
        Height = 33
        Columns = 2
        Ctl3D = True
        ItemIndex = 0
        Items.Strings = (
          'PV3000'
          'RTU')
        ParentCtl3D = False
        TabOrder = 1
        OnClick = DataBaseRdoGrpClick
      end
      object RTULV: TListView
        Left = 40
        Top = 80
        Width = 497
        Height = 393
        Checkboxes = True
        Columns = <
          item
            Caption = #20840#36873
            Width = 200
          end
          item
            Caption = #20840#21542
            MaxWidth = 38
            MinWidth = 38
            Width = 38
          end
          item
            Caption = 'TblName'
          end
          item
            Caption = 'RecCount'
            Width = 70
          end>
        Ctl3D = False
        FlatScrollBars = True
        ReadOnly = True
        RowSelect = True
        ShowWorkAreas = True
        TabOrder = 2
        ViewStyle = vsReport
        Visible = False
        OnChange = RTULVChange
        OnColumnClick = PVLVColumnClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #24674'  '#22797
      ImageIndex = 1
      object BakPVLV: TListView
        Left = 8
        Top = 56
        Width = 497
        Height = 393
        Checkboxes = True
        Columns = <
          item
            Caption = #20840#36873
            Width = 200
          end
          item
            Caption = #20840#21542
            MaxWidth = 38
            MinWidth = 38
            Width = 38
          end
          item
            Caption = 'TblName'
          end
          item
            Caption = 'FileSize'
            Width = 70
          end>
        Ctl3D = False
        FlatScrollBars = True
        ReadOnly = True
        RowSelect = True
        ShowWorkAreas = True
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = PVLVColumnClick
      end
      object BakRTULV: TListView
        Left = 40
        Top = 80
        Width = 497
        Height = 393
        Checkboxes = True
        Columns = <
          item
            Caption = #20840#36873
            Width = 200
          end
          item
            Caption = #20840#21542
            MaxWidth = 38
            MinWidth = 38
            Width = 38
          end
          item
            Caption = 'TblName'
          end
          item
            Caption = 'FileSize'
            Width = 70
          end>
        Ctl3D = False
        FlatScrollBars = True
        ReadOnly = True
        RowSelect = True
        ShowWorkAreas = True
        TabOrder = 1
        ViewStyle = vsReport
        Visible = False
        OnColumnClick = PVLVColumnClick
      end
      object BakRdoGrp: TRadioGroup
        Left = 8
        Top = 8
        Width = 153
        Height = 33
        Columns = 2
        Ctl3D = True
        ItemIndex = 0
        Items.Strings = (
          'PV3000'
          'RTU')
        ParentCtl3D = False
        TabOrder = 2
        OnClick = BakRdoGrpClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #22788#29702#35814#24773
      ImageIndex = 2
      TabVisible = False
      object BcpOutputMemo: TMemo
        Left = 0
        Top = 0
        Width = 593
        Height = 509
        Align = alClient
        Lines.Strings = (
          'BcpOutputMemo')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object ProcessBtn: TButton
    Left = 616
    Top = 512
    Width = 75
    Height = 25
    Caption = #24320#22987#22788#29702
    Default = True
    TabOrder = 0
    OnClick = ProcessBtnClick
  end
  object PVTableNameMemo: TMemo
    Left = 616
    Top = 472
    Width = 17
    Height = 17
    Lines.Strings = (
      'PVSysInfo'
      'PVRTU'
      'PVLocal'
      'PVBaseStation'
      'PVMonitorObject'
      'PVDevice'
      'PVItem'
      'PVVideoStream'
      'PVPreset'
      'PVMeasure'
      'PVAlarm'
      'PVUserLog'
      'PVUserLogin'
      'PVRecordFile'
      'PVMapCellType'
      'PVMapModule'
      'PVMapFixture'
      'PVMapChart'
      'PVMapDial'
      'PVMapLine'
      'PVModule'
      'PVUser'
      'PVUserRight'
      'PVUserGroup'
      'PVUserGroupRight'
      'PVProject'
      'PVScoutMaster'
      'PVScoutDetail'
      'PVRepair'
      'PVFalut'
      'PVShift'
      'PVGeneratorSum'
      'PVBattarySum'
      'PVMeasureSum'
      'PVDoorForce'
      'PVAlarmCallDetail'
      'PVAlarmCallLog'
      'PVAlarmCallMaster'
      'PVMapShape'
      'PVMessage'
      'PVProjectDetail'
      'PVReportModer'
      'PVReportModerParameters'
      'PVTableField')
    TabOrder = 1
    Visible = False
    WordWrap = False
  end
  object PVTableCaptionMemo: TMemo
    Left = 632
    Top = 472
    Width = 17
    Height = 17
    Lines.Strings = (
      #31995#32479#20449#24687#34920
      #21069#32622#25511#21046#26426#20449#24687#34920
      #20998#21306#20449#24687#34920
      #22522#31449#20449#24687#34920
      #30417#25511#23545#35937#20449#24687#34920
      #30417#25511#35774#22791#20449#24687#34920
      #30417#27979#39033#30446#34920
      #35270#39057#27969#20449#24687#34920
      #39044#32622#20301#20449#24687#34920
      #36965#27979#39033#30446#27979#37327#20540#35760#24405#34920
      #36965#20449#25253#35686#35760#24405#34920
      #29992#25143#25805#20316#26085#24535#34920
      #29992#25143#30331#24405#20449#24687#34920
      #24405#20687#25991#20214#31649#29702#34920
      #32452#24577#20803#20214#31867#22411#34920
      #30005#23376#22320#22270#20027#34920
      #22797#21512#20803#20214#26126#32454#34920
      #22270#24418#20803#20214#26126#32454#34920
      #34920#30424#31867#20803#20214#26126#32454#34920
      #32452#24577#32447#26465#26126#32454#34920
      #31995#32479#26435#38480#21333#20803#34920
      #29992#25143#20449#24687#34920
      #29992#25143#26435#38480#34920
      #29992#25143#32452#34920
      #29992#25143#32452#26435#38480#34920
      #23450#26102#20219#21153#26041#26696#34920
      #35270#39057#24033#35270#26041#26696#20027#34920
      #35270#39057#24033#35270#26041#26696#26126#32454#34920
      #35774#22791#32500#25252#35760#24405#34920
      #25925#38556#20449#24687#34920
      #30005#21147#35774#22791#20132#25509#29677#31649#29702#34920
      #26612#27833#21457#30005#26426#32452#24320#26426#36816#34892#26085#65288#26376#65289#35760#24405#34920
      #33988#30005#27744#32452#27979#35797#26085#35760#24405#34920
      #30417#27979#25968#25454#26085#65288#26376#65289#32479#35745#34920
      #38376#31105#21047#21345#35760#24405#34920
      #25253#35686#21628#21483#26126#32454#34920
      #25253#35686#21628#21483#24773#20917#34920
      #25253#35686#21628#21483#20027#34920
      #22270#24418#25511#20214#34920
      #30041#35328#20449#24687#34920
      #23450#26102#20219#21153#26041#26696#34920#26126#32454#34920
      #25253#34920#27169#26495#34920
      #25253#34920#27169#26495#21464#37327#34920
      #25253#34920#34920#23383#27573#34920)
    TabOrder = 2
    Visible = False
    WordWrap = False
  end
  object RTUTableNameMemo: TMemo
    Left = 616
    Top = 488
    Width = 17
    Height = 17
    Lines.Strings = (
      'PVRTU'
      'PVLocal'
      'PVBaseStation'
      'PVDevice'
      'PVMonitorObject'
      'PVItem'
      'PVMeasure'
      'PVAlarm'
      'PVProjectDetail')
    TabOrder = 3
    Visible = False
    WordWrap = False
  end
  object RTUTableCaptionMemo: TMemo
    Left = 632
    Top = 488
    Width = 17
    Height = 17
    Lines.Strings = (
      #21069#32622#25511#21046#26426#20449#24687#34920
      #20998#21306#20449#24687#34920
      #22522#31449#20449#24687#34920
      #30417#25511#35774#22791#20449#24687#34920
      #30417#25511#23545#35937#20449#24687#34920
      #30417#27979#39033#30446#34920
      #27979#37327#20540#35760#24405#34920
      #25253#35686#35760#24405#34920
      #23450#26102#20219#21153#26041#26696#34920)
    TabOrder = 4
    Visible = False
    WordWrap = False
  end
  object BakJobLstBox: TListBox
    Left = 616
    Top = 32
    Width = 153
    Height = 409
    ItemHeight = 13
    Sorted = True
    TabOrder = 6
    OnClick = BakJobLstBoxClick
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 548
    Width = 782
    Height = 16
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 7
  end
  object Button1: TButton
    Left = 616
    Top = 440
    Width = 75
    Height = 25
    Caption = 'refresh'
    TabOrder = 8
    OnClick = GetBakJobLstExecute
  end
  object Button2: TButton
    Left = 696
    Top = 440
    Width = 75
    Height = 25
    Caption = 'delete'
    TabOrder = 9
  end
  object Button3: TButton
    Left = 696
    Top = 480
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 10
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=Karma;Initial Catalog=master;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 680
    Top = 160
  end
  object ActionList1: TActionList
    Left = 680
    Top = 88
    object ValidateBCP: TAction
      Caption = 'ValidateBCP'
      OnExecute = ValidateBCPExecute
    end
    object LoadDataDict: TAction
      Caption = 'LoadDataDict'
      OnExecute = LoadDataDictExecute
    end
    object ConnectDatabase: TAction
      Caption = 'ConnectDatabase'
      OnExecute = ConnectDatabaseExecute
    end
    object DisplayTableCaption: TAction
      Caption = 'DisplayTableCaption'
      OnExecute = DisplayTableCaptionExecute
    end
    object MakeBakJobDir: TAction
      Caption = 'MakeBakJobDir'
      OnExecute = MakeBakJobDirExecute
    end
    object ProcessBackup: TAction
      Caption = 'ProcessBackup'
      OnExecute = ProcessBackupExecute
    end
    object GetBakJobLst: TAction
      Caption = 'GetBakJobLst'
      OnExecute = GetBakJobLstExecute
    end
    object ReadZipDesc: TAction
      Caption = 'ReadZipDesc'
    end
    object ShowBakTbl: TAction
      Caption = 'ShowBakTbl'
      OnExecute = ShowBakTblExecute
    end
    object GenZipDesc: TAction
      Caption = 'GenZipDesc'
    end
    object GenSltdZipTblNameLst: TAction
      Caption = 'GenSltdZipTblNameLst'
    end
    object SelectAllZipTable: TAction
      Caption = 'SelectAllZipTable'
    end
    object ProcessRestore: TAction
      Caption = 'ProcessRestore'
      OnExecute = ProcessRestoreExecute
    end
    object DeleteZipFile: TAction
      Caption = 'DeleteZipFile'
    end
  end
  object ADOQuery1: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection1
    LockType = ltUnspecified
    Parameters = <>
    Left = 680
    Top = 192
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    TableName = 'PVAlarm'
    Left = 648
    Top = 192
  end
end