addremoveroom.~dfm

简易的患者监护系统

object Form25: TForm25
  Left = 333
  Top = 151
  Width = 282
  Height = 340
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #28155#21152#21024#38500#30149#25151
  Color = clBtnFace
  Constraints.MaxHeight = 340
  Constraints.MaxWidth = 282
  Constraints.MinHeight = 340
  Constraints.MinWidth = 282
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 274
    Height = 306
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 24
      Width = 180
      Height = 24
      Caption = #28155#21152#25110#21024#38500#30149#25151
      Constraints.MinWidth = 180
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 200
      Top = 80
      Width = 48
      Height = 13
      Caption = 'KittyHawk'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 24
      Top = 64
      Width = 153
      Height = 225
      TabOrder = 0
      object Label2: TLabel
        Left = 16
        Top = 16
        Width = 120
        Height = 13
        Caption = #28155#21152#25110#21024#38500#30149#25151#21495
        Constraints.MinWidth = 120
      end
      object Label3: TLabel
        Left = 16
        Top = 64
        Width = 100
        Height = 13
        Caption = #24050#23384#22312#30149#25151#21495
        Constraints.MinWidth = 100
      end
      object Edit1: TEdit
        Left = 16
        Top = 32
        Width = 121
        Height = 21
        TabOrder = 0
        OnKeyPress = Edit1KeyPress
      end
      object DBLookupListBox1: TDBLookupListBox
        Left = 16
        Top = 80
        Width = 121
        Height = 134
        KeyField = #30149#25151#21495
        ListField = #30149#25151#21495
        ListSource = DataSource1
        TabOrder = 1
        OnClick = DBLookupListBox1Click
      end
    end
    object BitBtn1: TBitBtn
      Left = 192
      Top = 120
      Width = 65
      Height = 25
      Caption = #28155#21152
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 192
      Top = 168
      Width = 65
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = BitBtn2Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 40
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct '#30149#25151#21495' from '#24739#32773#30417#25252#20449#24687' order by '#30149#25151#21495)
    Left = 8
    Top = 16
  end
  object ADOQuery2: TADOQuery
    Connection = Form1.ADOConnection2
    Parameters = <>
    SQL.Strings = (
      'select * from '#24739#32773#30417#25252#20449#24687)
    Left = 8
    Top = 56
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 40
    Top = 56
  end
end