unit9.dfm

宿舍管理系统

object Form9: TForm9
  Left = 199
  Top = 104
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #23517#23460#24773#20917#26597#35810
  ClientHeight = 486
  ClientWidth = 566
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 56
    Top = 16
    Width = 449
    Height = 49
    TabOrder = 0
    object Label4: TLabel
      Left = 40
      Top = 16
      Width = 321
      Height = 25
      Alignment = taCenter
      AutoSize = False
      Caption = #23517' '#23460' '#24773' '#20917' '#26597' '#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 88
    Width = 529
    Height = 369
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #36755#20837#23517#23460#21495':'
    end
    object Label2: TLabel
      Left = 24
      Top = 224
      Width = 385
      Height = 13
      AutoSize = False
      Caption = '     '#21452#20987#23517#23460#20449#24687#34920#20013#30340#32426#24405','#24471#21040#30456#24212#23517#23460#25152#20303#30340#21516#23398#20449#24687
    end
    object Label3: TLabel
      Left = 24
      Top = 64
      Width = 305
      Height = 13
      AutoSize = False
      Caption = #23517#23460#20449#24687
    end
    object DBGrid1: TDBGrid
      Left = 24
      Top = 96
      Width = 473
      Height = 96
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = #23517#23460#21495
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24212#20303#20154#25968
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23454#20303#20154#25968
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23621#20303#24615#21035
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20215#26684
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29366#24577
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23517#23460#30005#35805
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22791#27880
          Width = 200
          Visible = True
        end>
    end
    object Edit1: TEdit
      Left = 104
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 288
      Top = 16
      Width = 75
      Height = 25
      Caption = #26597#35810
      Default = True
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333336633
        3333333333333FF3333333330000333333364463333333333333388F33333333
        00003333333E66433333333333338F38F3333333000033333333E66333333333
        33338FF8F3333333000033333333333333333333333338833333333300003333
        3333446333333333333333FF3333333300003333333666433333333333333888
        F333333300003333333E66433333333333338F38F333333300003333333E6664
        3333333333338F38F3333333000033333333E6664333333333338F338F333333
        0000333333333E6664333333333338F338F3333300003333344333E666433333
        333F338F338F3333000033336664333E664333333388F338F338F33300003333
        E66644466643333338F38FFF8338F333000033333E6666666663333338F33888
        3338F3330000333333EE666666333333338FF33333383333000033333333EEEE
        E333333333388FFFFF8333330000333333333333333333333333388888333333
        0000}
      NumGlyphs = 2
    end
    object GroupBox3: TGroupBox
      Left = 16
      Top = 208
      Width = 489
      Height = 5
      Color = clMenuHighlight
      ParentColor = False
      TabOrder = 3
    end
    object DBGrid2: TDBGrid
      Left = 16
      Top = 248
      Width = 489
      Height = 97
      DataSource = DataSource2
      ReadOnly = True
      TabOrder = 4
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #22995#21517
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29677#32423
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = #31995#21035
          Width = 200
          Visible = True
        end>
    end
    object GroupBox4: TGroupBox
      Left = 16
      Top = 48
      Width = 480
      Height = 9
      TabOrder = 5
    end
  end
  object ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 624
    Top = 208
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 632
    Top = 288
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 648
    Top = 352
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 672
    Top = 400
  end
end