fangbasic.~dfm

房屋出租管理系统,管理方便

        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 517
    Height = 26
    Align = alTop
    TabOrder = 2
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 515
      Height = 24
      DataSource = DS_FangBasic
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Align = alClient
      Flat = True
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 188
    Width = 517
    Height = 157
    Align = alClient
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 515
      Height = 155
      Align = alClient
      Color = clInfoBk
      DataSource = DS_FangBasic
      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 = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'fangno'
          Title.Alignment = taCenter
          Title.Caption = #25151#21495
          Title.Font.Charset = ANSI_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 = 'area'
          Title.Alignment = taCenter
          Title.Caption = #38754#31215
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'housetype'
          Title.Alignment = taCenter
          Title.Caption = #25143#22411
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'facetype'
          Title.Alignment = taCenter
          Title.Caption = #26397#21521
          Title.Font.Charset = ANSI_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 = 'sb'
          Title.Alignment = taCenter
          Title.Caption = #23478#20855#35774#22791
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 178
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangya'
          Title.Alignment = taCenter
          Title.Caption = #25276#37329
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangprice'
          Title.Alignment = taCenter
          Title.Caption = #26376#31199
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ljf'
          Title.Caption = #22403#22334#36153
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 43
          Visible = True
        end>
    end
  end
  object ADOQry_insert: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <
      item
        Name = 'fangno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'area'
        Attributes = [paSigned, paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 9
        Size = 19
        Value = Null
      end
      item
        Name = 'housetype'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'facetype'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'sb'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'fangya'
        Attributes = [paSigned, paNullable]
        DataType = ftBCD
        Precision = 18
        Size = 19
        Value = Null
      end
      item
        Name = 'fangprice'
        Attributes = [paSigned]
        DataType = ftBCD
        NumericScale = 2
        Precision = 11
        Size = 19
        Value = Null
      end
      item
        Name = 'ljf'
        Attributes = [paSigned, paNullable]
        DataType = ftBCD
        Precision = 18
        Size = 19
        Value = Null
      end>
    SQL.Strings = (
      'insert into Zf_Fangjian'
      '       (fangno,area,housetype,facetype,sb,fangya,fangprice,ljf)'
      
        'values (:fangno,:area,:housetype,:facetype,:sb,:fangya,:fangpric' +
        'e,:ljf)'
      '')
    Left = 104
    Top = 72
  end
  object ADOQry_update: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <
      item
        Name = 'fangno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'area'
        Attributes = [paSigned, paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 9
        Size = 19
        Value = Null
      end
      item
        Name = 'housetype'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'facetype'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'sb'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = Null
      end
      item
        Name = 'fangya'
        Attributes = [paSigned, paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'fangprice'
        Attributes = [paSigned]
        DataType = ftBCD
        NumericScale = 2
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'Ljf'
        Attributes = [paSigned]
        DataType = ftBCD
        NumericScale = 2
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'oldfangno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end>
    SQL.Strings = (
      'update Zf_Fangjian'
      'set fangno   =:fangno,'
      '    area     =:area,'
      '    housetype=:housetype,'
      '    facetype =:facetype,'
      '    sb       =:sb,'
      '    fangya   =:fangya,'
      '    fangprice=:fangprice,'
      '    Ljf      =:Ljf   '
      'where '
      '    fangNO   =:oldfangno')
    Left = 132
    Top = 72
  end
  object DS_FangBasic: TDataSource
    DataSet = ADQ_FangBasic
    Left = 344
    Top = 264
  end
  object ADQ_FangBasic: TADOQuery
    Connection = DB_module.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select fangno,area,housetype,facetype,sb,fangya,fangprice,ljf'
      'from dbo.Zf_Fangjian'
      'order by fangno')
    Left = 384
    Top = 264
  end
  object ADQ_Ljf: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <>
    SQL.Strings = (
      'select price from dbo.Zf_Dj where djid=4')
    Left = 368
    Top = 120
  end
end