backupdbf_unit.dfm

每天将SQL SERVER中的记录进行完全备份

object Main_Frm: TMain_Frm
  Left = 151
  Top = 112
  Width = 425
  Height = 287
  Caption = #26426#25151#25968#25454#22791#20221#65288'DBF'#65289
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 241
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object State_Memo: TMemo
      Left = 2
      Top = 2
      Width = 413
      Height = 237
      Align = alClient
      Color = clMenu
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        '')
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 241
    Width = 417
    Height = 19
    Panels = <
      item
        Width = 250
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Straight_Sqlserver_Connection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=dephi;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=TRAN_SH;Data Source=127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 120
    Top = 8
  end
  object DB_TABLE_Name_Query: TADOQuery
    Connection = Straight_Sqlserver_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SYSINFO where INFOKIND=11')
    Left = 80
    Top = 8
    object DB_TABLE_Name_QueryCPUID: TSmallintField
      FieldName = 'CPUID'
    end
    object DB_TABLE_Name_QueryINFOKIND: TSmallintField
      FieldName = 'INFOKIND'
    end
    object DB_TABLE_Name_QueryFSTM: TDateTimeField
      FieldName = 'FSTM'
    end
    object DB_TABLE_Name_QueryCVALUE: TStringField
      FieldName = 'CVALUE'
      FixedChar = True
      Size = 40
    end
    object DB_TABLE_Name_QueryIVALUE: TSmallintField
      FieldName = 'IVALUE'
    end
    object DB_TABLE_Name_QueryREMARK: TStringField
      FieldName = 'REMARK'
      FixedChar = True
      Size = 40
    end
  end
  object Arm_Sqlserver_Connection: TADOConnection
    LoginPrompt = False
    Left = 264
    Top = 16
  end
  object User_Pwd_Query: TADOQuery
    Connection = Straight_Sqlserver_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 80
    Top = 48
    object User_Pwd_QueryCVALUE: TStringField
      FieldName = 'CVALUE'
      FixedChar = True
      Size = 40
    end
  end
  object DBFExport: TDBFExport
    Dataset = Backup_Table
    Left = 264
    Top = 64
  end
  object Timer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerTimer
    Left = 32
    Top = 40
  end
  object Backup_Table: TADOTable
    Connection = Arm_Sqlserver_Connection
    Left = 216
    Top = 64
  end
end