unit7.dfm

用Delphi做一个公寓管理系统

object Form_config_xi: TForm_config_xi
  Left = 243
  Top = 158
  Width = 546
  Height = 410
  Caption = #27004#23618#35814#32454#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 96
    Top = 32
    Width = 48
    Height = 13
    Caption = #23517#23460#21495'    '
  end
  object Edit_Num_room: TEdit
    Left = 176
    Top = 24
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object Button1: TButton
    Left = 344
    Top = 40
    Width = 75
    Height = 25
    Caption = #26597'  '#30475
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 89
    Width = 545
    Height = 279
    Caption = 'GroupBox1'
    TabOrder = 2
    Visible = False
    object Label1: TLabel
      Left = 24
      Top = 56
      Width = 90
      Height = 13
      Caption = #25152#20303#20154#30340#24615#21035'      '
    end
    object Label2: TLabel
      Left = 24
      Top = 88
      Width = 75
      Height = 13
      Caption = #21487#23621#20303#20154#25968'     '
    end
    object Label3: TLabel
      Left = 26
      Top = 119
      Width = 75
      Height = 13
      Caption = #24050#23621#20303#20154#25968'     '
    end
    object Label4: TLabel
      Left = 312
      Top = 56
      Width = 60
      Height = 13
      Caption = #30005#35805#21495#30721'    '
    end
    object Label5: TLabel
      Left = 312
      Top = 88
      Width = 63
      Height = 13
      Caption = #23517#23460#29366#24577'     '
    end
    object Label6: TLabel
      Left = 24
      Top = 152
      Width = 36
      Height = 13
      Caption = #22791#27880'    '
    end
    object DBEdit1: TDBEdit
      Left = 128
      Top = 48
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 128
      Top = 80
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 128
      Top = 112
      Width = 121
      Height = 21
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 392
      Top = 48
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 392
      Top = 80
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBMemo1: TDBMemo
      Left = 88
      Top = 168
      Width = 161
      Height = 89
      DataSource = DataSource1
      TabOrder = 5
    end
    object Button2: TButton
      Left = 384
      Top = 200
      Width = 75
      Height = 25
      Caption = #20462#25913#23436#25104
      TabOrder = 6
      OnClick = Button2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = -8
    Top = 88
    Width = 545
    Height = 281
    Caption = 'GroupBox2'
    TabOrder = 3
    Visible = False
    object Label8: TLabel
      Left = 24
      Top = 56
      Width = 90
      Height = 13
      Caption = #25152#20303#20154#30340#24615#21035'      '
    end
    object Label9: TLabel
      Left = 24
      Top = 88
      Width = 75
      Height = 13
      Caption = #21487#23621#20303#20154#25968'     '
    end
    object Label10: TLabel
      Left = 26
      Top = 119
      Width = 75
      Height = 13
      Caption = #24050#23621#20303#20154#25968'     '
    end
    object Label11: TLabel
      Left = 312
      Top = 56
      Width = 60
      Height = 13
      Caption = #30005#35805#21495#30721'    '
    end
    object Label12: TLabel
      Left = 312
      Top = 88
      Width = 63
      Height = 13
      Caption = #23517#23460#29366#24577'     '
    end
    object Label13: TLabel
      Left = 24
      Top = 152
      Width = 36
      Height = 13
      Caption = #22791#27880'    '
    end
    object Button3: TButton
      Left = 384
      Top = 200
      Width = 75
      Height = 25
      Caption = #20462#25913#23436#25104
      TabOrder = 0
      OnClick = Button2Click
    end
    object Edit2: TEdit
      Left = 136
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 136
      Top = 104
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object Edit4: TEdit
      Left = 392
      Top = 48
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object Edit5: TEdit
      Left = 392
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 4
      Text = #20303' '#20154
    end
    object Memo1: TMemo
      Left = 80
      Top = 168
      Width = 185
      Height = 89
      Lines.Strings = (
        '')
      TabOrder = 5
    end
    object Edit1: TEdit
      Left = 136
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 6
    end
  end
  object Query1: TQuery
    DatabaseName = 'main'
    SQL.Strings = (
      'select * from room where Num_room=:Num_room')
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Num_room'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Top = 32
  end
  object Query2: TQuery
    DatabaseName = 'main'
    SQL.Strings = (
      
        'update room set sex=:sex,phone=:phone,state=:state,sum_a=:sum_a,' +
        'remark=:remark where Num_room=:Num_room')
    Left = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sex'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'phone'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'state'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'sum_a'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'remark'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Num_room'
        ParamType = ptUnknown
      end>
  end
end