unit1.dfm

用Delphi实现的数据库持久化

object Form1: TForm1
  Left = 184
  Top = 149
  Width = 752
  Height = 559
  BorderWidth = 2
  Caption = #29992'RTTI'#23454#29616#30340#25968#25454#38598#20195#29702#65292#21487#20197#31616#21333#22320#23558#25968#25454#38598#23545#35937#21270
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 215
    Width = 740
    Height = 5
    Cursor = crVSplit
    Align = alTop
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 740
    Height = 215
    Align = alTop
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 480
    Width = 740
    Height = 41
    Align = alBottom
    Anchors = [akRight, akBottom]
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      740
      41)
    object Button1: TButton
      Left = 369
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #36941#21382
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 448
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #26032#22686
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 532
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20462#25913
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 614
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #21024#38500
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 18
      Top = 8
      Width = 75
      Height = 25
      Caption = #21024#38500#24403#21069#34892
      TabOrder = 4
      OnClick = Button5Click
    end
  end
  object ListView1: TListView
    Left = 0
    Top = 220
    Width = 740
    Height = 260
    Align = alClient
    BevelKind = bkTile
    BorderStyle = bsNone
    Columns = <
      item
        Caption = 'Name'
        Width = 100
      end
      item
        Caption = 'Caption'
        Width = 100
      end
      item
        Caption = 'Continent'
        Width = 100
      end
      item
        Caption = 'Area'
        Width = 100
      end
      item
        Caption = 'Population'
        Width = 100
      end>
    RowSelect = True
    TabOrder = 2
    ViewStyle = vsReport
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 504
    Top = 134
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\DB.' +
      'mdb;Mode=Share Deny None;Extended Properties="";Persist Security' +
      ' Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path' +
      '="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet O' +
      'LEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2' +
      ';Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pas' +
      'sword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encryp' +
      't Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Je' +
      't OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 118
    Top = 52
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from Country'
    Parameters = <>
    Left = 146
    Top = 52
  end
end