f_yhgl.dfm

宿舍管理系统

object Form4: TForm4
  Left = 186
  Top = 129
  Width = 530
  Height = 363
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gb_1: TGroupBox
    Left = 0
    Top = 176
    Width = 513
    Height = 73
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 24
      Height = 12
      Caption = #32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 120
      Top = 40
      Width = 42
      Height = 13
      Caption = #29992#25143#21517
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 256
      Top = 40
      Width = 28
      Height = 13
      Caption = #23494#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 376
      Top = 40
      Width = 28
      Height = 13
      Caption = #24615#21517
    end
    object e_bh: TEdit
      Left = 48
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 0
      OnKeyPress = e_bhKeyPress
    end
    object c_xb: TComboBox
      Left = 424
      Top = 40
      Width = 73
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnKeyPress = c_xbKeyPress
      OnSelect = c_xbSelect
      Items.Strings = (
        #30007
        #22899)
    end
    object e_password: TEdit
      Left = 312
      Top = 40
      Width = 57
      Height = 21
      TabOrder = 2
      OnKeyPress = e_passwordKeyPress
    end
    object e_user: TEdit
      Left = 184
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 3
      OnKeyPress = e_userKeyPress
    end
  end
  object gb_2: TGroupBox
    Left = 0
    Top = 248
    Width = 513
    Height = 65
    TabOrder = 1
    object b_xz: TBitBtn
      Left = 8
      Top = 24
      Width = 65
      Height = 33
      Caption = #22686#21152
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = b_xzClick
    end
    object b_xg: TBitBtn
      Left = 88
      Top = 24
      Width = 65
      Height = 33
      Caption = #20462#25913
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = b_xgClick
    end
    object b_gb: TBitBtn
      Left = 440
      Top = 24
      Width = 57
      Height = 33
      Caption = #20851#38381
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = b_gbClick
    end
    object b_qx: TBitBtn
      Left = 344
      Top = 24
      Width = 65
      Height = 33
      Caption = #21462#28040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = b_qxClick
    end
    object b_bc: TBitBtn
      Left = 168
      Top = 24
      Width = 65
      Height = 33
      Caption = #20445#23384
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = b_bcClick
    end
    object b_sc: TBitBtn
      Left = 256
      Top = 24
      Width = 65
      Height = 33
      Caption = #21024#38500
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = b_scClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 0
    Width = 505
    Height = 169
    DataSource = DataSource1
    FixedColor = clGradientActiveCaption
    Options = [dgTitles, dgIndicator, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object stb: TStatusBar
    Left = 0
    Top = 317
    Width = 522
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 150
      end>
    SimplePanel = False
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\DELPHI'#23487#33293#31649#29702#31995#32479'\data\' +
      'ssgl.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 416
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from username')
    Left = 344
    Top = 24
    object ADOQuery1bh: TStringField
      DisplayLabel = #21592#24037#32534#21495
      DisplayWidth = 17
      FieldName = 'bh'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1username: TStringField
      DisplayLabel = #21592#24037#22995#21517
      DisplayWidth = 18
      FieldName = 'username'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1password: TStringField
      DisplayLabel = #21592#24037#23494#30721
      DisplayWidth = 19
      FieldName = 'password'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1xb: TStringField
      DisplayLabel = #21592#24037#24615#21035
      DisplayWidth = 16
      FieldName = 'xb'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSource1StateChange
    OnDataChange = DataSource1DataChange
    Left = 380
    Top = 32
  end
end