umain.dfm

简单的delphi数据库例子

object frmmain: Tfrmmain
  Left = 296
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #30005#23376#36890#35759#24405
  ClientHeight = 443
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000004440000000000000000000000
    0000004431400000000000000000000000000044334040000000000000000000
    0000040444404400000000000000000000000444000444000000000000000000
    0000447774077440000000000000000000004777740787700000000000000000
    0004447770778F740000000000000000000477774078FF774000000000000000
    004447770778FFF7744000000000000000477774078FF8FF8774400440000000
    04447770778F87FFF7777444000000000477774078FF78FF7F9F844400000000
    4447770778F87FFFF978444400000000477774078F878FF87FF8444000000004
    447770778F78FF877F8444400000000477774078FF7FFF778F84440000000044
    47770778878FF878F8444400000000477774078F77FFF777F844400000000444
    7770778F78FFF88F8444400000000477774047FF7FFF87FF8444000000000447
    7700048FFFF877F844441100000100777400047FFFF778F84440031013100000
    00000048FF877F844440003100000000000000478FF8FF844400000033100000
    0000000478FFF8444400000000000000000000004778F8444000000000000000
    0000000004477444400000000000000000000000000444440000000000000000
    000000000000044000000000000000000000000000000000000000000000FFE3
    FFFFFFC0FFFFFF807FFFFF803FFFFF001FFFFF001FFFFE000FFFFE000FFFFC00
    07FFFC0001FFF800007FF8000003F0000007F0000007E000000FE000000FC000
    001FC000001F8000003F8000003F0000007F0000007F0000003E81800091C380
    01CFFFC001F1FFC003FFFFE003FFFFF007FFFFFC07FFFFFF0FFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 419
    Align = alTop
    BorderStyle = bsSingle
    Caption = ' '
    TabOrder = 0
    object TreeView1: TTreeView
      Left = 1
      Top = 4
      Width = 135
      Height = 270
      Hint = #21452#20987#26377#20851#31867#22411#21487#20197#26597#30475#21040#27492#31867#22411#30340#25152#20197#20449#24687'!'
      BevelInner = bvLowered
      BevelOuter = bvSpace
      Images = ImageList1
      Indent = 19
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnDblClick = TreeView1DblClick
      Items.Data = {
        01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000007000000
        08B7D6D7E9C0E0D0CD1D0000000100000002000000FFFFFFFFFFFFFFFF000000
        000000000004C7D7C6DD1D0000000100000002000000FFFFFFFFFFFFFFFF0000
        00000000000004C5F3D3D11D0000000100000002000000FFFFFFFFFFFFFFFF00
        0000000000000004CDACD1A71D0000000100000002000000FFFFFFFFFFFFFFFF
        000000000000000004CDACCAC21D0000000100000002000000FFFFFFFFFFFFFF
        FF000000000000000004BFCDBBA71D0000000100000002000000FFFFFFFFFFFF
        FFFF000000000000000004C6E4CBFC210000000100000002000000FFFFFFFFFF
        FFFFFF000000000000000008C8ABB2BFBCC7C2BC}
    end
    object Panel2: TPanel
      Left = 139
      Top = 4
      Width = 361
      Height = 271
      BevelInner = bvSpace
      BevelOuter = bvLowered
      Caption = ' '
      TabOrder = 1
      object Label1: TLabel
        Left = 12
        Top = 8
        Width = 60
        Height = 12
        Caption = #22995'    '#21517#65306
      end
      object Label2: TLabel
        Left = 192
        Top = 33
        Width = 60
        Height = 12
        Caption = #31471'    '#21475#65306
      end
      object Label6: TLabel
        Left = 12
        Top = 33
        Width = 60
        Height = 12
        Caption = #30005#32518#23545#25968#65306
      end
      object Label7: TLabel
        Left = 12
        Top = 84
        Width = 60
        Height = 12
        Caption = #32852#31995#26041#24335#65306
      end
      object Label12: TLabel
        Left = 12
        Top = 109
        Width = 60
        Height = 12
        Caption = #30005#35805#21495#30721#65306
      end
      object Label15: TLabel
        Left = 12
        Top = 58
        Width = 60
        Height = 12
        Caption = #29992#25143#20303#22336#65306
      end
      object Label18: TLabel
        Left = 12
        Top = 134
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object edtname: TEdit
        Left = 70
        Top = 5
        Width = 275
        Height = 20
        TabOrder = 0
        Text = 'edtname'
      end
      object edtage: TEdit
        Left = 255
        Top = 30
        Width = 90
        Height = 20
        TabOrder = 1
        Text = 'edtage'
        OnKeyPress = edtageKeyPress
      end
      object edttel: TEdit
        Left = 70
        Top = 30
        Width = 90
        Height = 20
        MaxLength = 11
        TabOrder = 3
        Text = 'edttel'
        OnKeyPress = edtageKeyPress
      end
      object edtxlt: TEdit
        Left = 70
        Top = 81
        Width = 275
        Height = 20
        MaxLength = 7
        TabOrder = 4
        Text = 'edtxlt'
        OnKeyPress = edtageKeyPress
      end
      object edtworktel: TEdit
        Left = 70
        Top = 106
        Width = 275
        Height = 20
        MaxLength = 12
        TabOrder = 2
        Text = 'edtworktel'
        OnKeyPress = edtadrtelKeyPress
      end
      object edtaddress: TEdit
        Left = 70
        Top = 56
        Width = 275
        Height = 20
        TabOrder = 5
        Text = 'edtaddress'
      end
      object Memo1: TMemo
        Left = 14
        Top = 150
        Width = 331
        Height = 107
        Lines.Strings = (
          'Memo1')
        ScrollBars = ssVertical
        TabOrder = 6
      end
    end
    object Panel3: TPanel
      Left = 499
      Top = 3
      Width = 122
      Height = 410
      BevelInner = bvLowered
      BevelOuter = bvSpace
      Caption = ' '
      TabOrder = 2
      object GroupBox1: TGroupBox
        Left = 5
        Top = 17
        Width = 114
        Height = 77
        Caption = #28155#21152#25968#25454
        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 = 50
          Width = 95
          Height = 20
          Caption = #20445#23384#26032#32426#24405'[&S]'
          TabOrder = 1
          OnClick = btnsaveClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 5
        Top = 102
        Width = 114
        Height = 98
        Caption = #26597#35810#25968#25454
        TabOrder = 1
        object cbbcondition: TComboBox
          Left = 10
          Top = 20