rssfcx.dfm

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

inherited RsSfCxForm: TRsSfCxForm
  Left = 210
  Top = 130
  Caption = #28909#27700#25910#36153#26597#35810
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BitBtn_find: TBitBtn
      OnClick = BitBtn_findClick
    end
    inherited BBtn_Ok: TBitBtn
      OnClick = BBtn_OkClick
    end
    inherited BBtn_Print: TBitBtn
      OnClick = BBtn_PrintClick
    end
  end
  inherited Panel1: TPanel
    inherited DBGrid1: TDBGrid
      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 = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'manid'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#32534#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'manname'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#22995#21517
          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 = 'Jkrq'
          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 = []
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sybd'
          Title.Alignment = taCenter
          Title.Caption = #19978#26376#34920#24213
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Bybd'
          Title.Alignment = taCenter
          Title.Caption = #26412#26376#34920#24213
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sys'
          Title.Alignment = taCenter
          Title.Caption = #23454#29992#25968
          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 = 'rsdj'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Yfj'
          Title.Alignment = taCenter
          Title.Caption = #24212#20184#37329#39069
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sfj'
          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 = 69
          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
  end
  inherited ADQ_SfCx: TADOQuery
    Active = True
    SQL.Strings = (
      
        'SELECT A.ID,A.fangno, A.manid, B.manname,A.Jkrq, A.Sybd, A.Bybd,' +
        ' A.Sys, A.rsdj, A.Yfj,'
      
        '       A.sfj,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_Reshui A INNER JOIN'
      '      dbo.Zf_Man B ON A.manid = B.manid'
      '')
  end
end