unit1.dfm

自己编写的DBF数据库游览软件,包含TDBF控软件.

object Form1: TForm1
  Left = 258
  Top = 141
  Width = 697
  Height = 529
  BorderWidth = 5
  Caption = 'DBF'#25968#25454#24211#25991#20214#27983#35272#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000009D9D9D9D9D9D9D9D09000000000000099
    9999999999999908090000000000000000000000000000000090000000000000
    0FFF08FFF08FFFFF080900000000000008F870FFF708F8FF0D80900000000000
    0F8F8FFFFFFF8F8F0DD80900000000000FF78787878FF8FF0000009000000000
    0FFF8F8FFFFFFF8F0FFF0809000000000FF787878FFFFFFF0FFF000090000000
    0FFFFF8FFFFFFFFF0FFF0F08000000000FF78787878FFFFF0FFF0F0000000000
    0FFFFFFF8FFFFFFF000F0F0D900000000FFFFFFFFFFFFFFF0F0F0F09D9000000
    0000000000000000FF0F0F0000000000000FFFFFFFFFFFFFFF0F0F0000000000
    000F8888888F8FFFFF0F0F0000000000000FFFFFFFFFFFFFFF0F0F0000000000
    000F88888FFFFFFFFF00FF0000000000000FFFFFFFFFFFFFFF0FFF0000000000
    000F888888888FFFFF00000000000000000FFFFFFFFFFFFFFF00000000000000
    000FFFFF000FFFFFFF0000000000000000000000FF0000000000000000000000
    0000000FF00F000000000000000000000000FFFF000F00000000000000000000
    000FFFFF000F00000000000000000FF00FFFFFFF00FF00000000000000000FF0
    0FFFFFFFFFF000000000000000000FF00FFFFFFFFF0000000000000000000000
    000000000000000000000000000000000000000000000000000000000000C000
    07FFC00003FF800001FF800000FFF000007FF000003FF000001FF000000FF000
    0007F0000003F0000003F0000003F0000003F0000001F8000001FC00001FFC00
    001FFC00001FFC00001FFC00001FFC00003FFC0001FFFC0001FFFE0003FFFF00
    7FFFE6047FFF80047FFF80007FFF8000FFFF8001FFFF8003FFFFE7FFFFFF}
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 446
    Top = 0
    Width = 5
    Height = 485
    Color = clMaroon
    ParentColor = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 446
    Height = 485
    Align = alLeft
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnColEnter = DBGrid1ColEnter
    OnColExit = DBGrid1ColExit
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnDblClick = DBGrid1DblClick
    OnKeyDown = DBGrid1KeyDown
  end
  object Panel1: TPanel
    Left = 451
    Top = 0
    Width = 228
    Height = 485
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 1
      Top = 255
      Width = 226
      Height = 5
      Cursor = crVSplit
      Align = alBottom
      Color = clMaroon
      ParentColor = False
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 226
      Height = 21
      Align = alTop
      AutoSize = True
      Caption = 'Panel2'
      TabOrder = 0
      DesignSize = (
        226
        21)
      object DriveComboBox1: TDriveComboBox
        Left = -1
        Top = 1
        Width = 226
        Height = 19
        Anchors = [akLeft, akTop, akRight, akBottom]
        DirList = DirectoryListBox1
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnChange = DriveComboBox1Change
      end
    end
    object FileListBox1: TFileListBox
      Left = 1
      Top = 260
      Width = 226
      Height = 224
      Align = alBottom
      Anchors = [akLeft, akTop, akRight, akBottom]
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Pitch = fpFixed
      Font.Style = []
      ItemHeight = 13
      Mask = '*.dbf'
      ParentFont = False
      TabOrder = 1
      OnDblClick = FileListBox1DblClick
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 1
      Top = 22
      Width = 226
      Height = 233
      Align = alClient
      FileList = FileListBox1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Pitch = fpFixed
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
    end
  end
  object Dbf1: TDbf
    IndexDefs = <>
    TableLevel = 3
    UseFloatFields = False
    Left = 24
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = Dbf1
    Left = 80
    Top = 40
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 64
    Top = 128
  end
  object ImageList1: TImageList
    Height = 13
    Width = 13
    Left = 192
    Top = 56
  end
end