ydsfcx.dfm

来自「房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能」· DFM 代码 · 共 31 行

inherited YdSfCxForm: TYdSfCxForm
  Caption = #29992#30005#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 ADQ_SfCx: TADOQuery
    SQL.Strings = (
      
        'SELECT A.ID,A.fangno, A.manid, B.manname,A.Jkrq, A.Sybd, A.Bybd,' +
        ' A.Sys, A.Yddj, 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 Zf_YdSf A INNER JOIN'
      '      dbo.Zf_Man B ON A.manid = B.manid'
      '')
  end
end