umain.~dfm

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

object frmmain: Tfrmmain
  Left = 206
  Top = 154
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #24076#26395#36890#35759#24405
  ClientHeight = 401
  ClientWidth = 677
  Color = clTeal
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000100E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000010000000100000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000CCCCCCCCCC00000000000000000000CCCCCCCCCCCCCC0000000000000
    000CCCCCCCCCCCCCCCCCC000000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    FFFFFFFCCCCFFCCCCFFFFFFF0000000FFFFFFFCCCCCFFCCCCCFFFFFFF00000CC
    CCCCCCFFFFFCCFFFFFCCCCCCCC0000CCCCCCCFFFFFFCCFFFFFFCCCCCCC000CCC
    CCCCFFFFFFFCCFFFFFFFCCCCCCC00CCCCCCFFFFFFFFCCFFFFFFFFCCCCCC0CCCC
    CCFFFFFFFFFCCFFFFFFFFFCCCCCCCCCCCFFFFFFFFFFCCFFFFFFFFFFCCCCCCCCC
    FFFFFFFFFFFCCFFFFFFFFFFFCCCCCCCFFFFFFFFFFFFFFFFFFFFFFFFFFCCCCCFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFCCCCCFFFFFFFFFFFFCCFFFFFFFFFFFFCCCCCCC
    FFFFFFFFFFFCCFFFFFFFFFFFCCCCCCCCCFFFFFFFFFFCCFFFFFFFFFFCCCCC0CCC
    CCFFFFFFFFFCCFFFFFFFFFCCCCC00CCCCCCFFFFFFFFCCFFFFFFFFCCCCCC000CC
    CCCCFFFFFFFCCFFFFFFFCCCCCC0000CCCCCCCFFFFFFCCFFFFFFCCCCCCC00000C
    CCCCCCFFFFFCCFFFFFCCCCCCC0000000CCCCCCCFFFFCCFFFFCCCCCCC00000000
    0CCCCCCCFFFCCFFFCCCCCCC000000000000CCCCCCFFCCFFCCCCCC00000000000
    00000CCCCCCCCCCCCCC00000000000000000000CCCCCCCCCC000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFE007FFFF8001FFFE00007FF800001FF000000FE0000007C000
    0003C00000038000000180000001000000000000000000000000000000000000
    00000000000000000000000000008000000180000001C0000003C0000003E000
    0007F000000FF800001FFE00007FFF8001FFFFE007FFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 677
    Height = 441
    Align = alTop
    BorderStyle = bsSingle
    Caption = ' '
    Color = clSilver
    TabOrder = 0
    object TreeView1: TTreeView
      Left = 56
      Top = 4
      Width = 129
      Height = 245
      Hint = #21452#20987#26377#20851#31867#22411#21487#20197#26597#30475#21040#27492#31867#22411#30340#25152#20197#20449#24687'!'
      BevelInner = bvLowered
      BevelOuter = bvSpace
      Color = clGray
      Ctl3D = False
      Indent = 19
      ParentCtl3D = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnDblClick = TreeView1DblClick
      Items.Data = {
        01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000007000000
        08B7D6D7E9C0E0D0CD1D0000000100000002000000FFFFFFFFFFFFFFFF000000
        000000000004C7D7C6DD1D0000000100000002000000FFFFFFFFFFFFFFFF0000
        00000000000004C5F3D3D11D0000000100000002000000FFFFFFFFFFFFFFFF00
        0000000000000004CDACD1A71D0000000100000002000000FFFFFFFFFFFFFFFF
        000000000000000004CDACCAC21D0000000100000002000000FFFFFFFFFFFFFF
        FF000000000000000004BFCDBBA71D0000000100000002000000FFFFFFFFFFFF
        FFFF000000000000000004C6E4CBFB210000000000000000000000FFFFFFFFFF
        FFFFFF000000000000000008C8ABB2BFBCC7C2BC}
    end
    object Panel2: TPanel
      Left = 184
      Top = -4
      Width = 369
      Height = 253
      BevelInner = bvSpace
      BevelOuter = bvLowered
      Caption = ' '
      Color = clGray
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 48
        Height = 16
        Caption = #22995#21517#65306
        Color = clBackground
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 16
        Top = 37
        Width = 48
        Height = 16
        Caption = #24180#40836#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 16
        Top = 58
        Width = 48
        Height = 16
        Caption = #24615#21035#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 16
        Top = 87
        Width = 48
        Height = 16
        Caption = #32593#21517#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 184
        Top = 124
        Width = 80
        Height = 16
        Caption = #20303#23429#30005#35805#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 16
        Top = 112
        Width = 48
        Height = 16
        Caption = #25163#26426#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 180
        Top = 8
        Width = 80
        Height = 16
        Caption = #20986#29983#24180#26376#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label9: TLabel
        Left = 204
        Top = 37
        Width = 48
        Height = 16
        Caption = #27665#26063#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 200
        Top = 63
        Width = 64
        Height = 16
        Caption = #65329#65329#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 180
        Top = 92
        Width = 80
        Height = 16
        Caption = #21333#20301#30005#35805#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 12
        Top = 165
        Width = 48
        Height = 16
        Caption = #37038#32534#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 8
        Top = 226
        Width = 80
        Height = 16
        Caption = #23478#24237#20303#22336#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 12
        Top = 196
        Width = 64
        Height = 16
        Caption = 'E_mail'#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 16
        Top = 136
        Width = 48
        Height = 16
        Caption = #32534#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 208
        Top = 152
        Width = 48
        Height = 16
        Caption = #31867#21035#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object edtname: TEdit
        Left = 64
        Top = 11
        Width = 90
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
      end
      object edtage: TEdit
        Left = 64
        Top = 33
        Width = 90
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
      end
      object edtename: TEdit
        Left = 64
        Top = 82
        Width = 90
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 3
      end
      object edtadrtel: TEdit
        Left = 272
        Top = 118
        Width = 89
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 12
        TabOrder = 5
      end
      object edttel: TEdit
        Left = 64
        Top = 108
        Width = 90
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 11
        TabOrder = 7
      end
      object edtnation: TEdit
        Left = 268
        Top = 32
        Width = 77
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 2
      end
      object edtqqnum: TEdit
        Left = 268
        Top = 58
        Width = 93
        Height = 20
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 15
        TabOrder = 4
      end
      object edtworktel: TEdit
        Left = 268
        Top = 86
        Width = 93