saledetail.~dfm

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

  object dbeHouseEnv: TDBEdit
    Left = 214
    Top = 160
    Width = 371
    Height = 20
    DataField = #21608#22260#29615#22659
    DataSource = ds_Data
    TabOrder = 10
  end
  object dbeHousefitment: TDBEdit
    Left = 75
    Top = 184
    Width = 67
    Height = 20
    DataField = #35013#20462#24773#20917
    DataSource = ds_Data
    TabOrder = 11
  end
  object dbeHouseEstab: TDBEdit
    Left = 214
    Top = 184
    Width = 371
    Height = 20
    DataField = #25151#23627#35774#26045
    DataSource = ds_Data
    TabOrder = 12
  end
  object dbetraffic: TDBEdit
    Left = 75
    Top = 208
    Width = 350
    Height = 20
    DataField = #20132#36890#24773#20917
    DataSource = ds_Data
    TabOrder = 13
  end
  object dbeLinkName: TDBEdit
    Left = 75
    Top = 232
    Width = 67
    Height = 20
    DataField = #32852#31995#20154
    DataSource = ds_Data
    TabOrder = 14
  end
  object dbeLinkPhoto: TDBEdit
    Left = 243
    Top = 232
    Width = 67
    Height = 20
    DataField = #32852#31995#20154#30005#35805
    DataSource = ds_Data
    TabOrder = 15
  end
  object dbeLinkPassId: TDBEdit
    Left = 407
    Top = 232
    Width = 179
    Height = 20
    DataField = #32852#31995#20154#36523#20221#35777
    DataSource = ds_Data
    TabOrder = 16
  end
  object dbeMemo: TDBEdit
    Left = 75
    Top = 256
    Width = 510
    Height = 20
    DataField = #22791#27880
    DataSource = ds_Data
    TabOrder = 17
  end
  object pnlBargainProc: TPanel
    Left = 615
    Top = 190
    Width = 98
    Height = 153
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = clSilver
    TabOrder = 21
    object btnStatus_Lend: TSpeedButton
      Left = 9
      Top = 16
      Width = 81
      Height = 33
      Caption = #25151#23627#20986#21806
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = btnStatus_LendClick
    end
    object btnStatus_Rest: TSpeedButton
      Left = 9
      Top = 107
      Width = 81
      Height = 33
      Caption = #29366#24577#37325#32622
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      OnClick = btnStatus_LendClick
    end
    object btnStatus_Cancel: TSpeedButton
      Left = 9
      Top = 61
      Width = 81
      Height = 33
      Caption = #25151#23627#20316#24223
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      OnClick = btnStatus_LendClick
    end
  end
  object pnlBargain: TPanel
    Left = 8
    Top = 305
    Width = 585
    Height = 154
    BevelOuter = bvNone
    TabOrder = 18
    object Bevel2: TBevel
      Left = 11
      Top = 10
      Width = 573
      Height = 2
      Shape = bsTopLine
    end
    object Label32: TLabel
      Left = 8
      Top = 3
      Width = 80
      Height = 15
      Caption = #36141#20080#26041#20449#24687
      Color = clSkyBlue
      Font.Charset = GB2312_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label33: TLabel
      Left = 10
      Top = 31
      Width = 60
      Height = 12
      Caption = #36141#20080#20154#22995#21517
      FocusControl = dbeBargainName
    end
    object Label34: TLabel
      Left = 170
      Top = 31
      Width = 48
      Height = 12
      Caption = #32852#31995#30005#35805
      FocusControl = dbeBargainPhoto
    end
    object Label35: TLabel
      Left = 346
      Top = 31
      Width = 48
      Height = 12
      Caption = #36523#20221#35777#21495
      FocusControl = dbeBargainPassId
    end
    object Label36: TLabel
      Left = 10
      Top = 55
      Width = 48
      Height = 12
      Caption = #36141#20080#20215#26684
      FocusControl = dbeBargainPrice
    end
    object Label37: TLabel
      Left = 170
      Top = 55
      Width = 48
      Height = 12
      Caption = #36141#20080#26085#26399
      FocusControl = dbeBargainDate
    end
    object Label38: TLabel
      Left = 346
      Top = 55
      Width = 72
      Height = 12
      Caption = #25215#31199#25130#27490#26085#26399
      FocusControl = dbeBargainEndDate
    end
    object Label39: TLabel
      Left = 10
      Top = 79
      Width = 48
      Height = 12
      Caption = #36141#20080#22791#27880
      FocusControl = dbeBargainMemo
    end
    object Bevel3: TBevel
      Left = 11
      Top = 110
      Width = 573
      Height = 2
      Shape = bsTopLine
    end
    object Label40: TLabel
      Left = 8
      Top = 103
      Width = 64
      Height = 15
      Caption = #25104#20132#20449#24687
      Color = clSkyBlue
      Font.Charset = GB2312_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label41: TLabel
      Left = 10
      Top = 132
      Width = 48
      Height = 12
      Caption = #20323#37329#37329#39069
      FocusControl = dbeCommisionAmt
    end
    object Label42: TLabel
      Left = 170
      Top = 132
      Width = 36
      Height = 12
      Caption = #21512#21516#21495
      FocusControl = dbeBargainNo
    end
    object Label9: TLabel
      Left = 433
      Top = 129
      Width = 48
      Height = 12
      Caption = #25104#20132#26085#26399
      FocusControl = dbeProcDate
    end
    object dbeBargainName: TDBEdit
      Left = 73
      Top = 24
      Width = 67
      Height = 20
      DataField = #25104#20132#20154#22995#21517
      DataSource = ds_Data
      TabOrder = 0
    end
    object dbeBargainPhoto: TDBEdit
      Left = 226
      Top = 25
      Width = 106
      Height = 20
      DataField = #25104#20132#20154#30005#35805
      DataSource = ds_Data
      TabOrder = 1
    end
    object dbeBargainPassId: TDBEdit
      Left = 420
      Top = 25
      Width = 158
      Height = 20
      DataField = #25104#20132#20154#36523#20221#35777
      DataSource = ds_Data
      TabOrder = 2
    end
    object dbeBargainPrice: TDBEdit
      Left = 73
      Top = 48
      Width = 67
      Height = 20
      DataField = #25104#20132#20215#26684
      DataSource = ds_Data
      TabOrder = 3
    end
    object dbeBargainDate: TDBEdit
      Left = 226
      Top = 49
      Width = 106
      Height = 20
      DataField = #25104#20132#26085#26399
      DataSource = ds_Data
      TabOrder = 4
    end
    object dbeBargainEndDate: TDBEdit
      Left = 420
      Top = 49
      Width = 158
      Height = 20
      DataField = #25104#20132#25130#27490#26085#26399
      DataSource = ds_Data
      TabOrder = 5
    end
    object dbeBargainMemo: TDBEdit
      Left = 73
      Top = 72
      Width = 505
      Height = 20
      DataField = #25104#20132#22791#27880
      DataSource = ds_Data
      TabOrder = 6
    end
    object dbeCommisionAmt: TDBEdit
      Left = 73
      Top = 125
      Width = 67
      Height = 20
      DataField = #20323#37329#37329#39069
      DataSource = ds_Data
      TabOrder = 7
    end
    object dbeBargainNo: TDBEdit
      Left = 226
      Top = 126
      Width = 106
      Height = 20
      DataField = #21512#21516#21495
      DataSource = ds_Data
      TabOrder = 8
    end
    object dbeProcDate: TDBEdit
      Left = 487
      Top = 124
      Width = 90
      Height = 20
      DataField = #21463#29702#26085#26399
      DataSource = ds_Data
      ParentColor = True
      ReadOnly = True
      TabOrder = 9
    end
  end
  object dbrStatus: TDBRadioGroup
    Left = 375
    Top = 52
    Width = 209
    Height = 30
    Color = clSkyBlue
    Columns = 3
    Ctl3D = True
    DataField = #29366#24577
    DataSource = ds_Data
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    Items.Strings = (
      #26410#20986#21806
      #24050#20986#21806
      #24050#20316#24223)
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 19
    Values.Strings = (
      #26410#22788#29702
      #24050#22788#29702
      #24050#20316#24223)
  end
  object ds_Data: TDataSource
    DataSet = ADOQ_Data
    Left = 683
    Top = 408
  end
  object ADOQ_Data: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from '#20013#20171#20449#24687#34920' where '#32534#21495'=:ID')
    Left = 649
    Top = 409
  end
end