umain.~dfm

这是DEL原代码,用ACCESS数据库连接的 可以通过各种方式查询信息

        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 12
        TabOrder = 6
      end
      object edtpostnum: TEdit
        Left = 68
        Top = 161
        Width = 77
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 8
        TabOrder = 8
      end
      object edtaddress: TEdit
        Left = 88
        Top = 223
        Width = 225
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 9
      end
      object edtemail: TEdit
        Left = 88
        Top = 192
        Width = 225
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 10
      end
      object Edit1: TEdit
        Left = 64
        Top = 136
        Width = 73
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 11
      end
      object edtkind: TEdit
        Left = 272
        Top = 152
        Width = 81
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 12
      end
      object edtsex: TEdit
        Left = 64
        Top = 56
        Width = 89
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 13
      end
      object edtbirthday: TEdit
        Left = 264
        Top = 8
        Width = 81
        Height = 20
        Color = clMoneyGreen
        TabOrder = 14
      end
    end
    object Panel3: TPanel
      Left = 555
      Top = 3
      Width = 122
      Height = 430
      BevelInner = bvLowered
      BevelOuter = bvSpace
      Caption = ' '
      Color = clBtnShadow
      TabOrder = 2
      object GroupBox1: TGroupBox
        Left = -3
        Top = 1
        Width = 114
        Height = 72
        Caption = #28155#21152#25968#25454
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object btnadd: TButton
          Left = 9
          Top = 18
          Width = 95
          Height = 20
          Caption = #28155#21152#26032#32426#24405'[&A]'
          TabOrder = 0
          OnClick = btnaddClick
        end
        object btnsave: TButton
          Left = 9
          Top = 42
          Width = 95
          Height = 20
          Caption = #20445#23384#26032#32426#24405'[&S]'
          TabOrder = 1
          OnClick = btnsaveClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 5
        Top = 86
        Width = 114
        Height = 163
        Caption = #26597#35810#25968#25454
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        object edtcondition: TEdit
          Left = 9
          Top = 54
          Width = 95
          Height = 18
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
        end
        object btnfind: TButton
          Left = 9
          Top = 88
          Width = 96
          Height = 21
          Caption = #31934#30830#26597#35810'[&F]'
          Default = True
          TabOrder = 1
          OnClick = btnfindClick
        end
        object btfound: TButton
          Left = 8
          Top = 120
          Width = 97
          Height = 25
          Caption = #27169#31946#26597#35810'[&A]'
          Default = True
          TabOrder = 2
          OnClick = btfoundClick
        end
      end
    end
    object dbgrdshow: TDBGrid
      Left = 0
      Top = 248
      Width = 553
      Height = 153
      Hint = #21452#20987#35201#20462#25913#30340#30005#23376#20449#24687'!'
      TabStop = False
      Color = clBtnHighlight
      Ctl3D = False
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = dbgrdshowDblClick
    end
    object GroupBox4: TGroupBox
      Left = 0
      Top = 112
      Width = 57
      Height = 137
      Caption = #20241#24687#29255#21051
      Color = cl3DDkShadow
      Ctl3D = False
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 4
      object BitBtn4: TBitBtn
        Left = 0
        Top = 24
        Width = 57
        Height = 25
        Caption = #29233#24773#21344#21340
        Default = True
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        OnClick = BitBtn4Click
      end
      object BitBtn5: TBitBtn
        Left = 0
        Top = 64
        Width = 57
        Height = 25
        Caption = #20116#23376#26827
        Default = True
        TabOrder = 1
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 0
        Top = 104
        Width = 57
        Height = 25
        Caption = #20420#32599#26031
        Default = True
        TabOrder = 2
        OnClick = BitBtn6Click
      end
    end
    object BitBtn1: TBitBtn
      Left = 0
      Top = 0
      Width = 57
      Height = 25
      Caption = #38899#20048#35270#21548
      Default = True
      TabOrder = 5
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 0
      Top = 40
      Width = 57
      Height = 25
      Caption = #30456#20851#24110#21161
      Default = True
      TabOrder = 6
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 0
      Top = 80
      Width = 57
      Height = 25
      Caption = #20851#20110#20316#32773
      Default = True
      TabOrder = 7
      OnClick = BitBtn3Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 560
    Top = 256
    Width = 113
    Height = 145
    Caption = #25968#25454#32500#25252
    Color = clGray
    Ctl3D = False
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 1
    object btnrepair: TButton
      Left = 10
      Top = 17
      Width = 95
      Height = 20
      Caption = #20462#25913#35760#24405'[&R]'
      Default = True
      TabOrder = 0
      OnClick = btnrepairClick
    end
    object btnsaverep: TButton
      Left = 10
      Top = 51
      Width = 95
      Height = 20
      Caption = #20445#23384#20462#25913'[&Y]'
      Default = True
      TabOrder = 1
      OnClick = btnsaverepClick
    end
    object btndelete: TButton
      Left = 10
      Top = 86
      Width = 95
      Height = 20
      Caption = #21024#38500#35760#24405'[&D]'
      Default = True
      TabOrder = 2
      OnClick = btndeleteClick
    end
    object BitBtn7: TBitBtn
      Left = 8
      Top = 120
      Width = 97
      Height = 25
      Caption = #23433#20840#25764#36864
      TabOrder = 3
      OnClick = BitBtn7Click
      Kind = bkClose
    end
  end
  object ComboBox1: TComboBox
    Left = 568
    Top = 112
    Width = 97
    Height = 20
    ItemHeight = 12
    TabOrder = 2
    Items.Strings = (
      #22995#21517
      #32534#21495
      'QQ'#21495#30721)
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\'#30005#23376 +
      #36890#35759'\db1.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
      'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
      'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
      '5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
      'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
      'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
      ':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
      'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
      'P=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 144
    Top = 24
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #34920'1'
    Left = 72
    Top = 80
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = #23398#21495
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from '#34920'1 order by '#23398#21495)
    Left = 144
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 64
    Top = 48
  end
end