unit1.dfm

同学录第二版(源代码)

object Form1: TForm1
  Left = 129
  Top = 101
  Width = 642
  Height = 475
  Caption = #36890#35759#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 29
    Width = 449
    Height = 267
    Align = alClient
    Color = 16755370
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #23398#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29983#26085
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23429#30005
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20256#21628
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25163#26426
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Email'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OICQ'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OICQ'#26165#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24037#20316#21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36890#35759#22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20854#23427#32852#31995#26041#24335
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 634
    Height = 29
    ButtonHeight = 28
    Caption = 'ToolBar1'
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton18: TToolButton
      Left = 0
      Top = 2
      Action = acnew
    end
    object ToolButton19: TToolButton
      Left = 23
      Top = 2
      Width = 8
      Caption = 'ToolButton19'
      ImageIndex = 25
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 31
      Top = 2
      Action = DataSetInsert1
    end
    object ToolButton5: TToolButton
      Left = 54
      Top = 2
      Action = DataSetDelete1
    end
    object ToolButton6: TToolButton
      Left = 77
      Top = 2
      Action = DataSetEdit1
    end
    object ToolButton7: TToolButton
      Left = 100
      Top = 2
      Action = DataSetPost1
    end
    object ToolButton8: TToolButton
      Left = 123
      Top = 2
      Action = DataSetCancel1
    end
    object ToolButton9: TToolButton
      Left = 146
      Top = 2
      Action = DataSetFirst1
    end
    object ToolButton10: TToolButton
      Left = 169
      Top = 2
      Action = DataSetLast1
    end
    object ToolButton1: TToolButton
      Left = 192
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 200
      Top = 2
      Action = EditCopy1
    end
    object ToolButton12: TToolButton
      Left = 223
      Top = 2
      Action = EditCut1
    end
    object ToolButton13: TToolButton
      Left = 246
      Top = 2
      Action = EditPaste1
    end
    object ToolButton2: TToolButton
      Left = 269
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton14: TToolButton
      Left = 277
      Top = 2
      Action = achelp
    end
    object ToolButton15: TToolButton
      Left = 300
      Top = 2
      Action = accopyright
    end
    object ToolButton16: TToolButton
      Left = 323
      Top = 2
      Action = acabout
    end
    object ToolButton3: TToolButton
      Left = 346
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 354
      Top = 2
      Width = 145
      Height = 28
      Hint = #36873#25321#38656#35201#30340#36890#35759#24405
      Color = 16494766
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'Typename'
      ListField = 'Typename'
      ListSource = DataSource2
      ParentFont = False
      TabOrder = 0
    end
    object ToolButton20: TToolButton
      Left = 499
      Top = 2
      Width = 8
      Caption = 'ToolButton20'
      ImageIndex = 25
      Style = tbsSeparator
    end
    object ToolButton17: TToolButton
      Left = 507
      Top = 2
      Action = acclose
    end
  end
  object Panel1: TPanel
    Left = 449
    Top = 29
    Width = 185
    Height = 267
    Align = alRight
    TabOrder = 2
    object Bevel2: TBevel
      Left = 1
      Top = 295
      Width = 183
      Height = 76
      Align = alClient
    end
    object Label14: TLabel
      Left = 15
      Top = 301
      Width = 91
      Height = 16
      Caption = #35831#36755#20837#26597#35810#20869#23481
      FocusControl = DBEdit5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object RadioGroup1: TRadioGroup
      Left = 1
      Top = 1
      Width = 183
      Height = 294
      Align = alTop
      Caption = #35831#36873#25321#26597#35810#23383#27573
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 16
      Top = 318
      Width = 160
      Height = 24
      Color = 16757721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnKeyDown = Edit1KeyDown
    end
    object BitBtn1: TBitBtn
      Left = 16
      Top = 344
      Width = 75
      Height = 25
      Action = acquery
      Caption = #26597#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'