unit7.dfm

本系统用于大学学生宿舍管理

object f_cxqs: Tf_cxqs
  Left = -19
  Top = 113
  Width = 808
  Height = 450
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #26597#35810#23517#23460#22522#26412#24773#20917
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 0
    Width = 785
    Height = 217
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = DBGrid1DrawDataCell
  end
  object GroupBox1: TGroupBox
    Left = 32
    Top = 224
    Width = 697
    Height = 193
    Caption = #26597#35810#23517#23460#20154#21592
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 140
      Height = 19
      Caption = #35831#36873#25321#26597#35810#26465#20214
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 248
      Top = 32
      Width = 102
      Height = 16
      Caption = #35831#36755#20837#26597#35810#20540
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 32
      Top = 104
      Width = 140
      Height = 19
      Caption = #35831#36873#25321#26597#35810#26041#24335
    end
    object e_cx: TEdit
      Left = 248
      Top = 72
      Width = 145
      Height = 27
      TabOrder = 0
    end
    object b_kscx: TButton
      Left = 488
      Top = 32
      Width = 121
      Height = 41
      Caption = #24320#22987#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = b_kscxClick
    end
    object b_jscx: TButton
      Left = 496
      Top = 120
      Width = 121
      Height = 41
      Caption = #32467#26463#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = b_jscxClick
    end
    object ComboBox1: TComboBox
      Left = 32
      Top = 64
      Width = 145
      Height = 27
      ItemHeight = 19
      TabOrder = 3
      Items.Strings = (
        'jsz'
        'jsm')
    end
    object ComboBox2: TComboBox
      Left = 40
      Top = 144
      Width = 145
      Height = 27
      ItemHeight = 19
      TabOrder = 4
      Items.Strings = (
        '>'
        '<'
        '='
        '<>'
        '<='
        '')
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 336
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from jsb')
    Left = 392
    Top = 16
    object ADOQuery1jsm: TWideStringField
      DisplayLabel = #23517#23460#21517
      DisplayWidth = 15
      FieldName = 'jsm'
      Size = 6
    end
    object ADOQuery1jsz: TWideStringField
      DisplayLabel = #23517#23460#38271
      DisplayWidth = 18
      FieldName = 'jsz'
      Size = 8
    end
    object ADOQuery1ry1: TWideStringField
      DisplayLabel = #23517#23460#20154#21592'1'
      DisplayWidth = 21
      FieldName = 'ry1'
      Size = 8
    end
    object ADOQuery1ry2: TWideStringField
      DisplayLabel = #23517#23460#20154#21592'2'
      DisplayWidth = 21
      FieldName = 'ry2'
      Size = 8
    end
    object ADOQuery1ry3: TWideStringField
      DisplayLabel = #23517#23460#20154#21592'3'
      DisplayWidth = 19
      FieldName = 'ry3'
      Size = 8
    end
    object ADOQuery1ry4: TWideStringField
      DisplayLabel = #23517#23460#20154#21592'4'
      DisplayWidth = 19
      FieldName = 'ry4'
      Size = 8
    end
    object ADOQuery1ry5: TWideStringField
      DisplayLabel = #23517#23460#20154#21592'5'
      DisplayWidth = 25
      FieldName = 'ry5'
      Size = 8
    end
    object ADOQuery1ry6: TWideStringField
      DisplayLabel = #23517#23460#20154#21592'6'
      DisplayWidth = 23
      FieldName = 'ry6'
      Size = 8
    end
  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 = 488
    Top = 24
  end
end