czfcx.dfm

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

object CzfCxForm: TCzfCxForm
  Left = 228
  Top = 145
  BorderStyle = bsDialog
  Caption = #20986#31199#25151#22522#26412#24773#20917#26597#35810
  ClientHeight = 350
  ClientWidth = 531
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 531
    Height = 350
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 4
      Top = 106
      Width = 525
      Height = 236
      Color = clInfoBk
      DataSource = DS_CzFcx
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'fangno'
          Title.Alignment = taCenter
          Title.Caption = #25151#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'area'
          Title.Alignment = taCenter
          Title.Caption = #38754#31215
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'housetype'
          Title.Alignment = taCenter
          Title.Caption = #25143#22411
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'facetype'
          Title.Alignment = taCenter
          Title.Caption = #26397#21521
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sb'
          Title.Alignment = taCenter
          Title.Caption = #23478#20465#35774#22791
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 218
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangya'
          Title.Alignment = taCenter
          Title.Caption = #25276#37329
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangprice'
          Title.Alignment = taCenter
          Title.Caption = #26376#31199
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ljf'
          Title.Alignment = taCenter
          Title.Caption = #22403#22334#36153
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'status'
          Title.Alignment = taCenter
          Title.Caption = #29366#24577
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end>
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 5
      Width = 396
      Height = 89
      Caption = #32452#21512#26597#35810
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label1: TLabel
        Left = 11
        Top = 21
        Width = 48
        Height = 16
        Caption = #25151#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 165
        Top = 59
        Width = 48
        Height = 16
        Caption = #25143#22411#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 165
        Top = 25
        Width = 48
        Height = 16
        Caption = #26397#21521#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 11
        Top = 59
        Width = 48
        Height = 16
        Caption = #26376#31199#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Ed_Fh: TEdit
        Left = 52
        Top = 20
        Width = 100
        Height = 22
        TabOrder = 0
      end
      object Com_Fx: TComboBox
        Left = 208
        Top = 59
        Width = 100
        Height = 22
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        Items.Strings = (
          #21333#25151
          #19968#25151#19968#21381
          #20108#25151#19968#21381
          #19977#25151#19968#21381
          #19977#25151#20108#21381)
      end
      object Com_Cx: TComboBox
        Left = 208
        Top = 22
        Width = 100
        Height = 22
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 2
        Items.Strings = (
          #26397#21335
          #26397#21271
          #26397#35199
          #26397#19996)
      end
      object Ed_Yz: TEdit
        Left = 52
        Top = 56
        Width = 100
        Height = 22
        TabOrder = 3
      end
      object Rad_Yzf: TRadioButton
        Left = 327
        Top = 59
        Width = 60
        Height = 21
        Caption = #24050#20303#25151
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object Rad_Wzf: TRadioButton
        Left = 325
        Top = 24
        Width = 63
        Height = 23
        Caption = #26410#20303#25151
        Checked = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        TabStop = True
      end
    end
    object GroupBox2: TGroupBox
      Left = 408
      Top = 5
      Width = 115
      Height = 89
      TabOrder = 2
      object BitBtn_find: TBitBtn
        Left = 17
        Top = 19
        Width = 81
        Height = 25
        Caption = #26597'  '#35810
        TabOrder = 0
        OnClick = BitBtn_findClick
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000000000000000000000000000000000000000000000000000000000
          00000000000000007B6F396739677B6F39675A6B186318631863186339673967
          3967D65A00000000BD77BD77BD77BD775A6B3967B5569452945218635A6B9C73
          BD77396700000000BD77BD779C733967D65A1042CE396B2D4A298C31EF3D3967
          9C73396700000000BD77BD777B6F18639452F75EB5563146EF3D4A294A291042
          1863396700000000BD779C73D65AF75EDE7B1042A514A5144A29EF3DAD354A29
          1042D65A000000009C735A6B3967FF7F31460000630C841042082925524A2925
          0821EF3D00000000EF3D10429C73FF7FA514C618000000004208630C1042A514
          84102925000000001863AD358410D65A4A299452AD35000021042104A514630C
          8410E71C000000003967D65A524AA51421048410841021040000420842084208
          630CC618000000005A6BF75ED65A18633146E71C2925A514420842084208630C
          8410C61800000000BD777B6F1863D65A1042CE394A29A5144208841084108410
          C618C618000000009C737B6F9C737B6FF75E9452EF3DAD354A29292584108410
          C6184A2900000000B556D65A39675A6B7B6FF75E524A8C312925E71CC618E71C
          E71CAD3500000000B556EF3D524A734EB556734EEF3DAD356B2D8C31AD35EF3D
          3146524A00000000000000000000000000000000000000000000000000000000
          000000000000}
      end
      object BBtn_Print: TBitBtn
        Left = 18
        Top = 54
        Width = 80
        Height = 24
        Caption = '&P'#25171#21360
        TabOrder = 1
        OnClick = BBtn_PrintClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        NumGlyphs = 2
      end
    end
  end
  object ADQ_CzFcx: TADOQuery
    Connection = DB_module.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT A.fangno, A.area, A.housetype, A.facetype, A.Sb, A.fangya' +
        ',A.fangprice,A.Ljf,'
      'case B.status when '#39'1'#39' then '#39#24050#20986#31199#39' else '#39#26410#20986#31199#39' end as status'
      'FROM dbo.Zf_Fangjian A left OUTER JOIN'
      '      dbo.Zf_Rz B ON A.fangno = B.fangno')
    Left = 56
    Top = 216
  end
  object DS_CzFcx: TDataSource
    DataSet = ADQ_CzFcx
    Left = 88
    Top = 216
  end
end