deladdunit1.dfm

这是一个Delphi很好很全面知识的实例

object DelAddForm: TDelAddForm
  Left = 650
  Top = 126
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21024#38500#20010#20154#25910#20837#31649#29702
  ClientHeight = 293
  ClientWidth = 324
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000009
    D9D9D9D9D9D9D9D0900000000000009999999999999999080900000000000000
    000000000000000000900000000000000FFF08FFF08FFFFF0809000000000000
    08F870FFF708F8FF0D809000000000000F8F8FFFFFFF8F8F0DD8090000000000
    0FF78787878FF8FF00000090000000000FFF8F8FFFFFFF8F0FFF080900000000
    0FF787878FFFFFFF0FFF0000900000000FFFFF8FFFFFFFFF0FFF0F0800000000
    0FF78787878FFFFF0FFF0F00000000000FFFFFFF8FFFFFFF000F0F0D90000000
    0FFFFFFFFFFFFFFF0F0F0F09D90000000000000000000000FF0F0F0000000000
    000FFFFFFFFFFFFFFF0F0F0000000000000F8888888F8FFFFF0F0F0000000000
    000FFFFFFFFFFFFFFF0F0F0000000000000F88888FFFFFFFFF00FF0000000000
    000FFFFFFFFFFFFFFF0FFF0000000000000F888888888FFFFF00000000000000
    000FFFFFFFFFFFFFFF00000000000000000FFFFF000FFFFFFF00000000000000
    00000000FF00000000000000000000000000000FF00F00000000000000000000
    0000FFFF000F00000000000000000000000FFFFF000F00000000000000000FF0
    0FFFFFFF00FF00000000000000000FF00FFFFFFFFFF000000000000000000FF0
    0FFFFFFFFF000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000C00007FFC00003FF800001FF800000FFF000
    007FF000003FF000001FF000000FF0000007F0000003F0000003F0000003F000
    0003F0000001F8000001FC00001FFC00001FFC00001FFC00001FFC00001FFC00
    003FFC0001FFFC0001FFFE0003FFFF007FFFE6047FFF80047FFF80007FFF8000
    FFFF8001FFFF8003FFFFE7FFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000777777770000000000
    00000090000000080F80FF090000000FFFFFFF089000000F88888F000000000F
    8888FF000F00000FFFFFFF0F0F090000000000FF0F000000FFF8888F0F000000
    F8888FFF00000000F000FFF0000000000FF0000000000000FF00F0000000F0FF
    F00F00000000F0FFFFF0000000000000000000000000801F0000000F0000C007
    0000C0030000C0010000C0000000C0000000C0000000E0010000E0030000E007
    0000B01F0000003F0000003F0000007F000000FF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 324
    Height = 293
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 268
      Width = 32
      Height = 19
      Caption = #32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 320
      Height = 33
      Align = alTop
      Caption = #20010#20154#25910#20837#31649#29702
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -29
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBNavigator1: TDBNavigator
      Left = 9
      Top = 51
      Width = 280
      Height = 25
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 80
      Width = 305
      Height = 177
      DataSource = DataSource1
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Edit1: TEdit
      Left = 56
      Top = 264
      Width = 81
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      TabOrder = 3
      OnKeyPress = Edit1KeyPress
    end
  end
  object BitBtn1: TBitBtn
    Left = 152
    Top = 264
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000D2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFF000000FF0000CCFF000000FFD2CABFFFD2CABFFFD2CABFFF0000
      00FF0000CCFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFF000000FF8282FFFF5050FFFF0000CCFF000000FFD2CABFFF000000FF0000
      CCFF1D1DFFFF0000ADFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFF000000FF8282FFFF5050FFFF0000CCFF000000FF0000F1FF1D1D
      FFFF6E6EFFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFF000000FF8282FFFF5050FFFF0000F1FF1D1DFFFF6E6E
      FFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFF000000FF8282FFFF5050FFFF1D1DFFFF0000
      00FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFF000000FF8282FFFF5050FFFF5050FFFF5050FFFF0000
      F1FF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFF000000FF8282FFFF5050FFFF8282FFFF000000FF8282FFFF5050
      FFFF0000F1FF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFF000000FF8282FFFF5050FFFF8282FFFF000000FFD2CABFFF000000FF8282
      FFFF5050FFFF0000CCFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFF000000FFBBBBFFFF000000FFD2CABFFFD2CABFFFD2CABFFF0000
      00FF8282FFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFF000000FFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFFD2CABFFF}
  end
  object BitBtn2: TBitBtn
    Left = 232
    Top = 264
    Width = 81
    Height = 25
    Caption = #27983#35272
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000C9C4BDFF3C69
      AEFF2579CCFF255AADFF2557A8FF2557A8FF2557A8FF2557A8FF0D5FBFFF2579
      CCFF2579CCFF0756B9FF0747AAFF1358A9FF9DA4B6FFD2CABFFFA3A8B6FF8FC8
      E6FFCCFFFFFFAEE8F7FFA7E3F6FFA7E3F6FFA7E3F6FFA7E3F6FFAEE8F7FFCCFF
      FFFF96CBE5FF072A58FF072A4CFF43575BFF99CAE3FF9DA4B6FFA3A8B6FFA7DA
      ECFFCCFFFFFFCCFFFFFFCCFFFFFFCCFFFFFFCCFFFFFFCCFFFFFFCCFFFFFFCCFF
      FFFF255FB3FF075EC0FF2561B5FF2C4661FFB4E2E2FF5882BBFFABAEB7FF90BC
      DCFFE7F8FCFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFF6FFFFFFDBFF
      FFFF4475BDFF0762C5FF8FD0EEFF3D68A1FF3D4C4CFF89B4C6FFD2CABFFFB2B3
      B9FF5979B0FF5A7DB9FFCBDAECFFD1DAECFFD1DAECFFD1DAECFFD1DAECFFD1DA
      ECFFC3D3E9FF2F68B3FF366FB7FFA0CACDFF99C0C0FF9AC9DBFFD2CABFFFD2CA
      BFFFD2CABFFFCBC5BDFF1F51A6FF1E73CAFF2579CCFF8FC8E7FF8FBDCFFF789F
      B1FF25384AFF546B6EFF5B7272FF7F9E9EFF3D4C4CFFA0D2E4FFD2CABFFFD2CA
      BFFFD2CABFFFD2CABFFF446EB1FFAEDDE0FF4A5D5DFF4A5D5DFF4A5D5DFF4A5D
      5DFF4A5D5DFF4A5D5DFF4A5D5DFF4A5D5DFFB4E2E2FFA7DAECFFD2CABFFFD2CA
      BFFFD2CABFFFCBC5BDFF5882BBFF5B7272FF8FB3B3FF7F9E9EFF85A6A6FF4A5D
      5DFF96BCBCFFA7D1D1FF96BCBCFF2C3737FFAED9D9FF5882BBFFD2CABFFFD2CA
      BFFFCBC5BDFF5D80B8FFA0CAF5FFBFEEF6FFB8E6E6FFA7D1D1FFB4E2E2FFB4E2
      E2FFAED9D9FFBFEEEEFFAED9D9FFAED9D9FFA7D8E7FF959FB4FFD2CABFFFCBC5
      BDFF5D80B8FF6580EBFF89ABF4FF3D4CE7FF739090FF6C8787FFA7D1D1FF5B72
      72FF5B7272FFAED9D9FFCCFFFFFFC5F8FCFF6286B9FFCBC5BDFFC9C4BDFF6286
      B9FFA7D3F7FF96BCF6FFA7D1F9FF3D4CE7FFB4E2E2FFAED9D9FFA0C8C8FFBFEE
      EEFFAED9D9FFAED9D9FFC5F8FCFF6286B9FFCBC5BDFFD2CABFFFA3A8B6FFA7DA
      ECFFCCFFFFFFAED9FAFF6C87EFFF96BCC3FF7F9E9EFF8FB3B3FF6C8787FF96BC
      BCFF7F9E9EFFAED9D9FF527EBAFFA4A9B6FFCBC5BDFFD2CABFFFA3A8B6FFA0D2
      EBFF5B72ECFF7895F1FFA7D1F9FF4A5D5DFF96BCBCFF252E2EFF2C3737FF9DC4
      C4FF739090FFA7D8E7FF075CBFFF6AABDCFF4D77B5FF9DA4B6FFC9C4BDFF547B
      BAFF7C90F0FFB7D9FAFF7490F0FF9DC4C4FFB4E2E2FFB4E2E2FFB4E2E2FFCCFF
      FFFFCCFFFFFFA7DAECFF0042A8FF1E5BB2FF5B8EC7FF4A73B2FFD2CABFFF9EA4
      B6FF5473B2FF5F7DB9FFC9DAECFFB0BCCFFFC7DAECFFC7DAECFFC7DAECFFC7DA
      ECFFC7DAECFFC1D3E9FF1D58B2FF1E73CAFF3E6EB3FF9DA4B6FFD2CABFFFD2CA
      BFFFD2CABFFFC9C4BDFFA3A8B6FFA3A8B6FFA3A8B6FFA3A8B6FFA3A8B6FFA3A8
      B6FFA3A8B6FFA3A8B6FFA3A8B6FFA3A8B6FFC9C4BDFFD2CABFFF}
  end
  object ADOTable1: TADOTable
    Connection = MD.ADOConnection1
    TableName = #20010#20154#25910#20837#31649#29702#34920
    Left = 72
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 136
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Connection = MD.ADOConnection1
    Parameters = <>
    Left = 168