unit4.~dfm

delphi7.0高校宿舍管理系统 delphi7.0高校宿舍管理系统

object Form4: TForm4
  Left = 276
  Top = 161
  BorderStyle = bsDialog
  Caption = #23487#33293#20303#23487#20449#24687#25805#20316
  ClientHeight = 462
  ClientWidth = 545
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 280
    Top = 8
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #23487#33293#27004#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 280
    Top = 40
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #23487' '#33293' '#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 8
    Width = 81
    Height = 17
    AutoSize = False
    Caption = #23398#29983#23398#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 16
    Top = 40
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #23398#29983#22995#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 16
    Top = 72
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #27665'    '#26063
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 16
    Top = 96
    Width = 129
    Height = 25
    Caption = #28155#21152
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 144
    Top = 96
    Width = 129
    Height = 25
    Caption = #21024#38500
    TabOrder = 1
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 128
    Width = 513
    Height = 281
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBEdit1: TDBEdit
    Left = 352
    Top = 8
    Width = 177
    Height = 21
    DataField = #23487#33293#27004#21495
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit2: TDBEdit
    Left = 352
    Top = 40
    Width = 177
    Height = 21
    DataField = #23487#33293#21495
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit3: TDBEdit
    Left = 88
    Top = 72
    Width = 177
    Height = 21
    DataField = #27665#26063
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit4: TDBEdit
    Left = 88
    Top = 40
    Width = 177
    Height = 21
    DataField = #22995#21517
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit5: TDBEdit
    Left = 88
    Top = 8
    Width = 177
    Height = 21
    DataField = #23398#21495
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 416
    Width = 510
    Height = 25
    DataSource = DataSource1
    TabOrder = 8
  end
  object Button3: TButton
    Left = 400
    Top = 96
    Width = 129
    Height = 25
    Caption = #20851#38381
    TabOrder = 9
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 272
    Top = 96
    Width = 129
    Height = 25
    Caption = #20445#23384#20462#25913
    TabOrder = 10
    OnClick = Button4Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSource1StateChange
    Left = 384
    Top = 280
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cx.mdb;Persist Secu' +
      'rity Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from zsxx')
    Left = 392
    Top = 232
  end
end