zfsfcx.dfm

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

object ZfSfcxForm: TZfSfcxForm
  Left = 195
  Top = 109
  BorderStyle = bsDialog
  Caption = #31199#25151#25910#36153#24773#20917#26597#35810
  ClientHeight = 417
  ClientWidth = 616
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 96
    Width = 616
    Height = 321
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 614
      Height = 319
      Align = alClient
      Color = clInfoBk
      DataSource = DS_Zjgl
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      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'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          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 = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'manid'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#32534#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'manname'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#22995#21517
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Jkrq'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #20132#27454#26085#26399
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangya'
          Title.Alignment = taCenter
          Title.Caption = #25151#25276
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 37
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangprice'
          Title.Alignment = taCenter
          Title.Caption = #25151#31199
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 34
          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 = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Yf'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #24212#20184#31199#37329
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sf'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #23454#25910#37329#39069
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'begindate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #36215#31199#26085#26399
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'enddate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #25130#27490#26085#26399
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'status'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          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 = []
          Width = 58
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 616
    Height = 96
    Align = alTop
    BevelInner = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Lbl_query_term: TLabel
      Left = 12
      Top = 8
      Width = 119
      Height = 14
      Caption = #35831#36873#25321#26597#35810#26465#20214'   '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Com_first: TComboBox
      Left = 24
      Top = 36
      Width = 139
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = Com_firstChange
    end
    object Com_term: TComboBox
      Left = 177
      Top = 36
      Width = 80
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '<'
        '<='
        '='
        '>'
        '>='
        '<>'
        'like')
    end
    object DateTP: TDateTimePicker
      Left = 274
      Top = 35
      Width = 105
      Height = 20
      CalAlignment = dtaLeft
      Date = 37725.4396623148
      Time = 37725.4396623148
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
      Visible = False
    end
    object Com_result: TComboBox
      Left = 273
      Top = 36
      Width = 105
      Height = 20
      ItemHeight = 12
      TabOrder = 3
    end
    object BitBtn_find: TBitBtn
      Left = 408
      Top = 14
      Width = 90
      Height = 24
      Caption = #26597'  '#35810
      TabOrder = 4
      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 bitbtn_quit: TBitBtn
      Left = 512
      Top = 56
      Width = 90
      Height = 25
      Caption = #36864#20986
      TabOrder = 5
      OnClick = bitbtn_quitClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object BBtn_Ok: TBitBtn
      Left = 409
      Top = 56
      Width = 90
      Height = 25
      Caption = '&S'#39640#32423#26597#35810
      TabOrder = 6
      OnClick = BBtn_OkClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BBtn_Print: TBitBtn
      Left = 511
      Top = 14
      Width = 90
      Height = 25
      Caption = '&P'#25171#21360
      TabOrder = 7
      OnClick = BBtn_PrintClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object fieldname: TComboBox
      Left = 635
      Top = 40
      Width = 84
      Height = 20
      ItemHeight = 12
      TabOrder = 8
      Visible = False
    end
  end
  object DS_Zjgl: TDataSource
    DataSet = ADQ_Zjgl
    Left = 200
    Top = 176
  end
  object ADQ_Zjgl: TADOQuery
    Connection = DB_module.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT A.id,A.fangno, A.manid, B.manname, '
      '      A.Jkrq, A.fangya, A.fangprice, A.Ljf, '
      '      A.Yf,A.sf, A.begindate, A.enddate,       '
      'case A.status when '#39'1'#39' then '#39#24050#20132#27454#39' else '#39#26410#20132#27454#39' end as status '
      'FROM dbo.Zf_Zujin A INNER JOIN'
      '      dbo.Zf_Man B ON A.manid = B.manid')
    Left = 160
    Top = 176
  end
end