main.dfm

学生通讯录信息系统,可以记录学生的详细信息,并可以进行查询,添加等功能

          Width = 75
          Height = 25
          Action = DataSetEdit1
          Caption = #20462#25913#35760#24405
          TabOrder = 2
        end
        object BtnSave: TButton
          Left = 8
          Top = 168
          Width = 75
          Height = 25
          Action = DataSetPost1
          Caption = #20445#23384#20462#25913
          TabOrder = 3
        end
        object BtnAll: TButton
          Left = 8
          Top = 216
          Width = 75
          Height = 25
          Caption = #26174#31034#25152#26377
          TabOrder = 4
          OnClick = BtnAllClick
        end
      end
      object BtnExit: TButton
        Left = 430
        Top = 284
        Width = 75
        Height = 25
        Caption = #36864#20986#31995#32479
        TabOrder = 3
        OnClick = BtnExitClick
      end
    end
    object TabSheet1: TTabSheet
      Caption = #35760#24405#26597#35810
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 417
        Height = 273
        BevelOuter = bvLowered
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 8
          Top = 8
          Width = 401
          Height = 257
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = Action1Execute
        end
      end
      object Panel5: TPanel
        Left = 422
        Top = 0
        Width = 89
        Height = 129
        BevelOuter = bvLowered
        TabOrder = 1
        object Label14: TLabel
          Left = 4
          Top = 24
          Width = 72
          Height = 13
          Caption = #20849#26377#35760#24405#26465#25968
        end
        object Label15: TLabel
          Left = 56
          Top = 48
          Width = 34
          Height = 13
          Caption = 'label15'
        end
        object Label16: TLabel
          Left = 9
          Top = 72
          Width = 60
          Height = 13
          Caption = #26597#35810#21040#35760#24405
        end
        object Label17: TLabel
          Left = 56
          Top = 96
          Width = 3
          Height = 13
        end
      end
      object Panel6: TPanel
        Left = 0
        Top = 280
        Width = 417
        Height = 33
        BevelOuter = bvLowered
        TabOrder = 2
        object Label12: TLabel
          Left = 8
          Top = 8
          Width = 48
          Height = 13
          Caption = #26597#35810#23383#27573
        end
        object Label13: TLabel
          Left = 152
          Top = 8
          Width = 60
          Height = 13
          Caption = #26597#35810#23383#27573#20540
        end
        object Edit1: TEdit
          Left = 224
          Top = 6
          Width = 97
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 1
          Text = '994401'
          OnKeyPress = Edit1KeyPress
        end
        object ComboBox1: TComboBox
          Left = 64
          Top = 6
          Width = 73
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ItemHeight = 0
          TabOrder = 0
        end
      end
      object Button3: TButton
        Left = 352
        Top = 284
        Width = 57
        Height = 25
        Caption = #26597#35810
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 430
        Top = 284
        Width = 75
        Height = 25
        Caption = #36864#20986#31995#32479
        TabOrder = 4
        OnClick = Button4Click
      end
      object Panel7: TPanel
        Left = 422
        Top = 152
        Width = 89
        Height = 121
        BevelOuter = bvLowered
        Caption = 'Panel7'
        TabOrder = 5
        object Button5: TButton
          Left = 6
          Top = 32
          Width = 75
          Height = 57
          Caption = #26174#31034#25152#26377
          TabOrder = 0
          OnClick = Button5Click
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DataModule2.ADOQuery1
    Left = 232
    Top = 168
  end
  object ActionList1: TActionList
    Left = 392
    Top = 40
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = '&First'
      Hint = 'First'
      ImageIndex = 0
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = '&Prior'
      Hint = 'Prior'
      ImageIndex = 1
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = '&Next'
      Hint = 'Next'
      ImageIndex = 2
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = '&Last'
      Hint = 'Last'
      ImageIndex = 3
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = '&Insert'
      Hint = 'Insert'
      ImageIndex = 4
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = '&Delete'
      Hint = 'Delete'
      ImageIndex = 5
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = '&Edit'
      Hint = 'Edit'
      ImageIndex = 6
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'P&ost'
      Hint = 'Post'
      ImageIndex = 7
    end
  end
  object XPMenu1: TXPMenu
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = True
    AutoDetect = True
    Active = True
    Left = 336
    Top = 168
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    OwnerDraw = True
    Left = 240
    Top = 56
    object N1: TMenuItem
      Caption = #25991#20214
      object N12: TMenuItem
        Caption = #35760#24405#32534#36753
        ImageIndex = 0
        OnClick = Action1Execute
      end
      object N13: TMenuItem
        Caption = #35760#24405#26597#35810
        ImageIndex = 1
        OnClick = N13Click
      end
      object N11: TMenuItem
        Caption = #36864#20986#31995#32479
        ImageIndex = 2
        OnClick = N11Click
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object N6: TMenuItem
        Action = DataSetInsert1
        Caption = #28155#21152#35760#24405
        ImageIndex = 3
      end
      object N7: TMenuItem
        Action = DataSetDelete1
        Caption = #21024#38500#35760#24405
        ImageIndex = 4
      end
      object N8: TMenuItem
        Action = DataSetEdit1
        Caption = #20462#25913#35760#24405
        ImageIndex = 5
      end
      object N9: TMenuItem
        Action = DataSetPost1
        Caption = #20445#23384#20462#25913
        ImageIndex = 6
      end
      object N10: TMenuItem
        Caption = #26174#31034#25152#26377
        ImageIndex = 7
        OnClick = BtnAllClick
      end
    end
    object N14: TMenuItem
      Caption = #24037#20855
      object N15: TMenuItem
        Caption = #25968#25454#22791#20221
        ImageIndex = 10
        OnClick = N15Click
      end
      object N16: TMenuItem