unit5.dfm

用Delphi做一个公寓管理系统

object Form_infos_s: TForm_infos_s
  Left = 224
  Top = 116
  Width = 632
  Height = 556
  Caption = #28155#21152#23398#29983#20449#24687
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 310
    Height = 399
    Align = alCustom
    Caption = #22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 43
      Top = 48
      Width = 33
      Height = 13
      Caption = #23398#21495'   '
    end
    object Label2: TLabel
      Left = 47
      Top = 88
      Width = 36
      Height = 13
      Caption = #31995#21035'    '
    end
    object Label3: TLabel
      Left = 47
      Top = 128
      Width = 57
      Height = 13
      Caption = #20837#23398#26102#38388'   '
    end
    object Label4: TLabel
      Left = 47
      Top = 168
      Width = 36
      Height = 13
      Caption = #22995#21517'    '
    end
    object Label5: TLabel
      Left = 47
      Top = 210
      Width = 33
      Height = 13
      Caption = #24615#21035'   '
    end
    object Label6: TLabel
      Left = 47
      Top = 264
      Width = 48
      Height = 13
      Caption = #23517#23460#21495'    '
    end
    object Label7: TLabel
      Left = 47
      Top = 304
      Width = 48
      Height = 13
      Caption = #24202#20301#21495'    '
    end
    object Edit1: TEdit
      Left = 135
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 0
      OnExit = Edit1Exit
      OnKeyPress = Edit1KeyPress
    end
    object ComboBox1: TComboBox
      Left = 135
      Top = 80
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = #35745#31639#26426#31185#23398#23398#38498
      Items.Strings = (
        #35745#31639#26426#31185#23398#23398#38498
        #20449#24687#31649#29702#23398#38498
        #22806#35821#31995
        #33402#26415#35774#35745#23398#38498
        #32442#32455#24037#31243#23398#38498
        #20154#25991#31185#23398#23398#38498
        #29615#22659#21270#23398#31995)
    end
    object ComboBox2: TComboBox
      Left = 135
      Top = 120
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 2
      TabOrder = 2
      Text = '2002'#24180'9'#26376
      Items.Strings = (
        '2000'#24180'9'#26376
        '2001'#24180'9'#26376
        '2002'#24180'9'#26376
        '2003'#24180'9'#26376
        '2004'#24180'9'#26376)
    end
    object Edit2: TEdit
      Left = 135
      Top = 160
      Width = 121
      Height = 21
      TabOrder = 3
      OnExit = Edit2Exit
    end
    object RadioButton1: TRadioButton
      Left = 134
      Top = 208
      Width = 46
      Height = 17
      Caption = #30007
      Checked = True
      TabOrder = 4
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 199
      Top = 208
      Width = 48
      Height = 17
      Caption = #22899
      TabOrder = 5
    end
    object Edit3: TEdit
      Left = 135
      Top = 260
      Width = 121
      Height = 21
      TabOrder = 6
      OnExit = Edit3Exit
    end
    object Edit4: TEdit
      Left = 135
      Top = 304
      Width = 121
      Height = 21
      TabOrder = 7
      OnChange = Edit4Change
      OnExit = Edit4Exit
      OnKeyPress = Edit4KeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 312
    Top = 1
    Width = 313
    Height = 232
    Align = alCustom
    Caption = #23398#29983#29031#29255
    TabOrder = 1
    object Image1: TImage
      Left = 16
      Top = 16
      Width = 124
      Height = 177
      Picture.Data = {
        0A544A504547496D616765D5060000FFD8FFE000104A46494600010101006000
        600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
        0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
        3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
        3232323232323232323232323232323232323232323232323232323232323232
        32323232323232323232323232FFC000110800B1007C03012200021101031101
        FFC4001F0000010501010101010100000000000000000102030405060708090A
        0BFFC400B5100002010303020403050504040000017D01020300041105122131
        410613516107227114328191A1082342B1C11552D1F02433627282090A161718
        191A25262728292A3435363738393A434445464748494A535455565758595A63
        6465666768696A737475767778797A838485868788898A92939495969798999A
        A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
        D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
        01010101010101010000000000000102030405060708090A0BFFC400B5110002
        0102040403040705040400010277000102031104052131061241510761711322
        328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
        292A35363738393A434445464748494A535455565758595A636465666768696A
        737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
        A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
        E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F7FA
        28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
        28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
        28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A28A2800A
        28A2800A2B27C48F2A68D27933F93216501BCC09DF9193ED9AE4BFB62E5B4B66
        86EEE84A2E12301AE4312B83D3B8FAF4AEBA38495587327D6C7978CCD6185ABE
        CE516F4B9E87457162EAE4687ABDC2B5EC6F1BAC7E64B741C86560085C018EBF
        8D32C6EEE9E49A35D5EE550DDAC11B9026CEE071C93C0E3B557D49D9BBEDFF00
        03B5FB99FF006C439A31E47EF2BF6EAFBDBB1DBD15C9E912CD1FF6CB5F6A570D
        0C2E632C01DC0FF797AE3E82B367D4AD86A90450EB5A90B3DA4CD233B641EC00
        C7D39C77A238294A4E29EDE4FB5C279C4214E33946D7E8DABEF6FBBCCEFA8AE5
        EDEF6C8DB5EFD8F55BFB89BECB232898B61703390768E6B1ECB50BA60FBAE6F8
        E6CB79F3AE0A02FBC0DCAC7A0FFEB8A238294AFADADDD582A6714E1CAAD7BDF6
        69EDE87A0515C8E8125DB6AB0AC9A899D0404C80DD0932FECB9EDC51A3CBAEDC
        E9B2880DBC91348EBBE7762E294B08E37F79696FC6FF00E45D3CD14D47DC7ADF
        CF6B7F99D751585A45BEB7651C16D71F657B74CEE7DCC5CE493FD6B76B9EA414
        2564EE7761EB3AB0E671717D9851451599B85145140191E259AE60D1DE4B55DD
        2875C0F2C3F19F420D722AD300A3EC9F75FCC1F22FDEF5FF00575E8B457650C5
        2A50E5E5B9E56332C9626AFB4551AD2D6B5CE16392EE5F0E6B7E746CA8644751
        E5E32C586E3D067B549A5E9EDA85B5FBDAB7D9C25DA4F0318F8F941E31F8D76D
        4553C6BB3518DAEEFF0097F91947275CD1739DEC9AF37F175BE9F17E08E5FC3F
        7291C7ABDF48AE2DDA7DE18A1E47D3F1AA6B03EA16BAF6A6216DB2A98E01B792
        A3BE3F2FD6BB4A2A7EB5693925ABB75E8ADFE46BFD997A71A729DD46FD3ABBEB
        BF4BEDF89CED86A7A7DCE886CC9903476589B111C801406C71CD73EB69B2DA1F
        36DAED85DDAB2460C99D986DC17EEF19C03F8D7A1514E18B506F963BEBB93572
        B75A31539ABA56F87D3BB7D3F3B9C5E82F0AEAB14CF1DCE4DA1F2DDF91C755E1
        474E6A5D0341B7BED34DC4E6E519E46202C850119E0E2BAFA294F19277E556BD
        BAF6BFF9851CA611E5551A9257E9DEDE7E47316D62BA778BA082079CC2D6C5CF
        98E5867247F4AE9E8A2B0AB55D469BE88EEC361A387528C766EFE9E414514564
        7485145140051451400514514005145140051451400514514005145140051451
        4005145140051451400514514005145140051451400514514005145140051451
        4005145140051451400514514005145140051451400514514005145140051451
        4005145140051451400514514005145140051451400514514005145140051451
        4005145140051451400514514005145140051451400514514005145140051451
        4005145140051451400514514005145140051451400514514005145140051451
        4005145140051451400514514005145140051451400514514005145140051451
        401FFFD9}
    end
    object But_loadpic: TButton
      Left = 184
      Top = 152
      Width = 75
      Height = 25
      Caption = #36733#20837#22270#29255
      TabOrder = 0
      OnClick = But_loadpicClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 310
    Top = 232
    Width = 314
    Height = 167
    Align = alCustom
    Caption = #22791#27880
    TabOrder = 2
    object Memo1: TMemo
      Left = 2
      Top = 16
      Width = 310
      Height = 147
      TabOrder = 0
    end
  end
  object Button1: TButton
    Left = 320
    Top = 424
    Width = 70
    Height = 25
    Caption = #28155'  '#21152
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 432
    Top = 424
    Width = 70
    Height = 25
    Caption = #21462'  '#28040
    TabOrder = 4
    OnClick = Button2Click
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Left = 520
    Top = 33
  end
  object Query1: TQuery
    DatabaseName = 'main'
    SQL.Strings = (
      'select * from student')
    Left = 8
    Top = 400
  end
  object Query2: TQuery
    DatabaseName = 'main'
    SQL.Strings = (
      'update room set sum_p=sum_p+1 where Num_room=:Num_room')
    Left = 48
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Num_room'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'main'
    SQL.Strings = (
      'select * from student where sno=:sno')
    Left = 88
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sno'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    AutoCalcFields = False
    DatabaseName = 'main'
    SQL.Strings = (
      'select * from room where Num_room=:Num_room')
    Left = 128
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Num_room'
        ParamType = ptUnknown
      end>
  end
  object Query5: TQuery
    DatabaseName = 'main'
    SQL.Strings = (
      
        'select * from student where Num_room=:Num_room and Num_bed=:Num_' +
        'bed')
    Left = 168
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Num_room'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Num_bed'
        ParamType = ptUnknown
      end>
  end
end