kfdj.dfm

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

      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 236
      Top = 56
      Width = 48
      Height = 16
      Caption = #21333#20301#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 8
      Top = 55
      Width = 80
      Height = 16
      Caption = #36523#20221#35777#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 7
      Top = 93
      Width = 80
      Height = 16
      Caption = #32852#31995#30005#35805#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 18
      Width = 80
      Height = 16
      Caption = #23458#25143#32534#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Com_Xb: TComboBox
      Left = 433
      Top = 12
      Width = 71
      Height = 22
      BevelKind = bkFlat
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      Items.Strings = (
        #30007
        #22899)
    end
    object Ed_Kubh: TEdit
      Left = 80
      Top = 16
      Width = 140
      Height = 21
      Enabled = False
      TabOrder = 1
    end
    object Ed_Xm: TEdit
      Left = 276
      Top = 13
      Width = 104
      Height = 21
      Enabled = False
      TabOrder = 2
    end
    object Ed_Dw: TEdit
      Left = 276
      Top = 50
      Width = 234
      Height = 21
      Enabled = False
      TabOrder = 3
    end
    object Ed_Dz: TEdit
      Left = 276
      Top = 90
      Width = 234
      Height = 21
      Enabled = False
      TabOrder = 4
    end
    object Ed_Sfzh: TEdit
      Left = 80
      Top = 51
      Width = 140
      Height = 21
      Enabled = False
      TabOrder = 5
    end
    object Ed_Lxdh: TEdit
      Left = 80
      Top = 88
      Width = 140
      Height = 21
      Enabled = False
      TabOrder = 6
    end
  end
  object DS_Kudj: TDataSource
    DataSet = ADQ_Kudj
    Left = 344
    Top = 264
  end
  object ADQ_Kudj: TADOQuery
    Connection = DB_module.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select manid,manname, case sex when '#39'1'#39' then '#39#30007#39'  else '#39#22899#39' end a' +
        's sex,'
      'idcard,iddress,handset,company from zf_man')
    Left = 384
    Top = 264
  end
  object ADOQry_insert: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <
      item
        Name = 'manid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'manname'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'zjm'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'sex'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'idcard'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 18
        Value = Null
      end
      item
        Name = 'iddress'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'handset'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'company'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end>
    SQL.Strings = (
      'insert into Zf_Man'
      '      (manid,manname,zjm,sex,idcard,iddress,handset,company)'
      
        'values(:manid,:manname,:zjm,:sex,:idcard,:iddress,:handset,:comp' +
        'any)')
    Left = 72
    Top = 216
  end
  object ADOQry_update: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <
      item
        Name = 'manid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'manname'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'zjm'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'sex'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'idcard'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 18
        Value = Null
      end
      item
        Name = 'iddress'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'handset'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'company'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'oldmanid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'update Zf_Man'
      'set manID = :manid,'
      '    manname= :manname,'
      '    zjm    = :zjm,'
      '    sex    = :sex,'
      '    idcard = :idcard,'
      '    iddress= :iddress,'
      '    handset= :handset,'
      '    company= :company'
      'where '
      '     manid=:oldmanid  ')
    Left = 108
    Top = 216
  end
end