unit1.dfm

同学录第二版(源代码)

    end
    object DBEdit10: TDBEdit
      Left = 224
      Top = 64
      Width = 240
      Height = 21
      Color = 16622784
      DataField = #24037#20316#21333#20301
      DataSource = DataSource1
      TabOrder = 9
    end
    object DBEdit11: TDBEdit
      Left = 467
      Top = 64
      Width = 195
      Height = 21
      Color = 16622784
      DataField = #36890#35759#22320#22336
      DataSource = DataSource1
      TabOrder = 10
    end
    object DBEdit12: TDBEdit
      Left = 8
      Top = 104
      Width = 211
      Height = 21
      Color = 16622784
      DataField = #20854#23427#32852#31995#26041#24335
      DataSource = DataSource1
      TabOrder = 11
    end
    object DBEdit13: TDBEdit
      Left = 224
      Top = 104
      Width = 439
      Height = 21
      Color = 16622784
      DataField = #22791#27880
      DataSource = DataSource1
      TabOrder = 12
    end
    object DBImage1: TDBImage
      Left = 687
      Top = 4
      Width = 70
      Height = 93
      DataField = 'Tp'
      DataSource = DataSource1
      Stretch = True
      TabOrder = 13
      OnDblClick = acloadExecute
    end
    object BitBtn3: TBitBtn
      Left = 686
      Top = 101
      Width = 80
      Height = 25
      Action = acload
      Caption = #21152#36733#22270#29255
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      Glyph.Data = {
        36020000424D3602000000000000360000002800000010000000100000000100
        1000000000000002000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000843C843C841C
        0929A61C4110411441184110841CA530844C6D2D6D2D6D2D00004D296D2DA61C
        84246120E534895D685168592641A4206D2D6D2D4C296C2D00004C296C2D6D2D
        82242645AA618961685968596855253D6D2D6D2D4C296D2D00006D2D4C296C2D
        474D6859684DE440264D054547492645292D6D2D6D2D6D2D00004B294C29052D
        68556859CA690B6E2641253DEB69895D26396D2D6D2D6D2D00004B29AA612641
        6859AA652C72CA69AA65AA690B6EEB69464D6C2D4D296C2D00004C29A961E534
        6859CA69EB650B72AA65EB69A961064568516C2D4D294D2900004C2926458318
        6851253DA2204939253D0C6EA2246949A428C5184C294D2900004C2982186110
        C4286849263969490D664D720B6EAA65474962106D2D4C2900004C29630C6210
        82144749684DEB654D72AE764D720A6E684D62106D2D4C2900004C2909216310
        84142639A9610C6EAE76B07A0C6E0A6E685162104D294C2900004C294C29420C
        8414A4206849EB610C6E4D720C6E8951C51C83104C294C2900004C294C294210
        A514420C8318A31C8318611062106210C618C6186D2D4C2900004B254C292A21
        841442106210C5180821C5188310C618A5144C294C294C2900004B254C294C29
        4C294C29C518E61C0821E61CE71C4B254C294C296D2D4B250000}
    end
  end
  object Table1: TTable
    DatabaseName = 'tempdb'
    Filtered = True
    FieldDefs = <
      item
        Name = #36890#35759#24405#31867#22411
        DataType = ftSmallint
      end
      item
        Name = #23398#21495
        DataType = ftString
        Size = 2
      end
      item
        Name = #22995#21517
        DataType = ftString
        Size = 7
      end
      item
        Name = #29983#26085
        DataType = ftDate
      end
      item
        Name = #23429#30005
        DataType = ftString
        Size = 14
      end
      item
        Name = #20256#21628
        DataType = ftString
        Size = 14
      end
      item
        Name = #25163#26426
        DataType = ftString
        Size = 11
      end
      item
        Name = 'Email'
        DataType = ftString
        Size = 25
      end
      item
        Name = 'OICQ'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'OICQ'#26165#31216
        DataType = ftString
        Size = 12
      end
      item
        Name = #24037#20316#21333#20301
        DataType = ftString
        Size = 40
      end
      item
        Name = #36890#35759#22320#22336
        DataType = ftString
        Size = 50
      end
      item
        Name = #20854#23427#32852#31995#26041#24335
        DataType = ftString
        Size = 40
      end
      item
        Name = #22791#27880
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Tp'
        DataType = ftGraphic
      end>
    IndexFieldNames = #36890#35759#24405#31867#22411
    MasterFields = 'Typeid'
    MasterSource = DataSource2
    StoreDefs = True
    TableName = '001.DB'
    Left = 176
    Top = 16
    object Table1BDEDesigner11: TSmallintField
      FieldName = #36890#35759#24405#31867#22411
    end
    object Table1BDEDesigner: TStringField
      FieldName = #23398#21495
      Size = 2
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #22995#21517
      Size = 7
    end
    object Table1BDEDesigner3: TDateField
      FieldName = #29983#26085
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #23429#30005
      Size = 14
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #20256#21628
      Size = 14
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #25163#26426
      Size = 11
    end
    object Table1Email: TStringField
      FieldName = 'Email'
      Size = 25
    end
    object Table1OICQ: TStringField
      FieldName = 'OICQ'
      Size = 10
    end
    object Table1OICQ2: TStringField
      FieldName = 'OICQ'#26165#31216
      Size = 12
    end
    object Table1BDEDesigner7: TStringField
      FieldName = #24037#20316#21333#20301
      Size = 40
    end
    object Table1BDEDesigner8: TStringField
      FieldName = #36890#35759#22320#22336
      Size = 50
    end
    object Table1BDEDesigner9: TStringField
      FieldName = #20854#23427#32852#31995#26041#24335
      Size = 40
    end
    object Table1BDEDesigner10: TStringField
      FieldName = #22791#27880
      Size = 40
    end
    object Table1Tp: TGraphicField
      FieldName = 'Tp'
      BlobType = ftGraphic
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 208
    Top = 16
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 456
    Top = 40
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = #22797#21046
      Hint = #22797#21046
      ImageIndex = 20
      ShortCut = 16451
    end
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = #21098#20999
      Hint = #21098#20999
      ImageIndex = 18
      ShortCut = 16472
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = #31896#36148
      Hint = #31896#36148
      ImageIndex = 22
      ShortCut = 16470
    end
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = #31532#19968#26465
      Hint = #21040#31532#19968#26465
      ImageIndex = 2
      OnExecute = DataSetFirst1Execute
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = #21462#28040
      Hint = #21462#28040
      ImageIndex = 0
      OnExecute = DataSetCancel1Execute
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = #21024#38500
      Hint = #21024#38500
      ImageIndex = 16
      OnExecute = DataSetDelete1Execute
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = #32534#36753
      Hint = #32534#36753
      ImageIndex = 12
      OnExecute = DataSetEdit1Execute
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = #25554#20837
      Hint = #25554#20837
      ImageIndex = 14
      OnExecute = DataSetInsert1Execute
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = #26368#21518#19968#26465
      Hint = #26368#21518#19968#26465
      ImageIndex = 6
      OnExecute = DataSetLast1Execute
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = #20445#23384
      Hint = #20445#23384
      ImageIndex = 10
      OnExecute = DataSetPost1Execute
    end
    object acclose: TAction
      Caption = #20851#38381
      Hint = #36864#20986#31243#24207
      ImageIndex = 24
      OnExecute = accloseExecute
    end
    object acquery: TAction
      Caption = #26597#35810
      Hint = #26681#25454#36755#20837#26465#20214#26597#35810
      ImageIndex = 5
      OnExecute = acqueryExecute
    end