roominfofrm.dfm

delphi 编制的服务器程序

inherited RoomInfoForm: TRoomInfoForm
  Left = 48
  Top = 65
  Caption = #26426#25151#31649#29702
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    inherited sbquery: TSpeedButton
      Visible = False
    end
    inherited sbimport: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'RoomID'
            Title.Alignment = taCenter
            Width = 67
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'RoomName'
            Title.Alignment = taCenter
            Width = 139
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'FeeRate'
            Title.Alignment = taCenter
            Width = 74
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'IP'
            Title.Alignment = taCenter
            Width = 110
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ComputerNums'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Posite'
            Title.Alignment = taCenter
            Visible = True
          end>
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        BevelInner = bvLowered
        BevelOuter = bvLowered
        object Label1: TLabel
          Left = 72
          Top = 46
          Width = 30
          Height = 15
          Caption = #26631#35782
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 72
          Top = 94
          Width = 60
          Height = 15
          Caption = #26426#25151#21517#31216
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 72
          Top = 150
          Width = 129
          Height = 15
          Caption = #36153#29575'('#65311#65311#20803'/'#20998#38047')'
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Left = 72
          Top = 206
          Width = 91
          Height = 15
          Caption = #26381#21153#22120'IP'#22320#22336
          FocusControl = DBEdit4
        end
        object Label5: TLabel
          Left = 72
          Top = 254
          Width = 60
          Height = 15
          Caption = #26426#22120#25968#30446
          FocusControl = DBEdit5
        end
        object Label6: TLabel
          Left = 72
          Top = 302
          Width = 60
          Height = 15
          Caption = #25152#22312#20301#32622
          FocusControl = DBEdit6
        end
        object DBEdit1: TDBEdit
          Left = 72
          Top = 62
          Width = 154
          Height = 23
          DataField = 'RoomID'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 72
          Top = 110
          Width = 304
          Height = 23
          DataField = 'RoomName'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 72
          Top = 166
          Width = 154
          Height = 23
          DataField = 'FeeRate'
          DataSource = DataSource1
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 72
          Top = 222
          Width = 304
          Height = 23
          DataField = 'IP'
          DataSource = DataSource1
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 72
          Top = 270
          Width = 154
          Height = 23
          DataField = 'ComputerNums'
          DataSource = DataSource1
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 72
          Top = 318
          Width = 304
          Height = 23
          DataField = 'Posite'
          DataSource = DataSource1
          TabOrder = 5
        end
      end
    end
  end
  inherited ImageList1: TImageList
    Left = 260
    Top = 34
  end
  inherited ADOQuery1: TADOQuery
    Active = True
    Connection = DmMain.ADOConnection1
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Room')
    Left = 164
    Top = 32
    object ADOQuery1RoomID: TSmallintField
      DisplayLabel = #26631#35782
      FieldName = 'RoomID'
      ReadOnly = True
    end
    object ADOQuery1RoomName: TWideStringField
      DisplayLabel = #26426#25151#21517#31216
      FieldName = 'RoomName'
    end
    object ADOQuery1FeeRate: TFloatField
      DisplayLabel = #36153#29575
      FieldName = 'FeeRate'
    end
    object ADOQuery1IP: TWideStringField
      DisplayLabel = #26381#21153#22120'IP'#22320#22336
      FieldName = 'IP'
    end
    object ADOQuery1ComputerNums: TSmallintField
      DisplayLabel = #26426#22120#25968#30446
      FieldName = 'ComputerNums'
    end
    object ADOQuery1Posite: TWideStringField
      DisplayLabel = #25152#22312#20301#32622
      FieldName = 'Posite'
    end
  end
  inherited DataSource1: TDataSource
    Left = 212
    Top = 32
  end
end