unitroom.dfm

来自「教务管理系统」· DFM 代码 · 共 92 行

object frmRoom: TfrmRoom
  Left = 223
  Top = 264
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #25945#23460#31649#29702
  ClientHeight = 152
  ClientWidth = 333
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 168
    Top = 11
    Width = 24
    Height = 12
    Caption = #21517#31216
  end
  object dbg: TDBGrid
    Left = 0
    Top = 0
    Width = 164
    Height = 152
    Align = alLeft
    DataSource = ds
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = dbgCellClick
  end
  object edtName: TEdit
    Left = 200
    Top = 8
    Width = 129
    Height = 20
    MaxLength = 10
    TabOrder = 1
    OnChange = edtNameChange
  end
  object btnAdd: TButton
    Left = 168
    Top = 40
    Width = 161
    Height = 25
    Caption = '<< '#28155#21152
    Enabled = False
    TabOrder = 2
    OnClick = btnAddClick
  end
  object btnDel: TButton
    Left = 168
    Top = 80
    Width = 161
    Height = 25
    Caption = #21024#38500' >>'
    TabOrder = 3
    OnClick = btnDelClick
  end
  object btnClose: TButton
    Left = 168
    Top = 120
    Width = 161
    Height = 25
    Cancel = True
    Caption = #20851#38381
    TabOrder = 4
    OnClick = btnCloseClick
  end
  object ds: TDataSource
    DataSet = qry
    Left = 104
    Top = 48
  end
  object qry: TADOQuery
    Connection = data.adoc
    Parameters = <>
    Left = 136
    Top = 48
  end
end