unit_khfk.dfm

基本信息：房屋基本信息、客户基本信息、职工基本信息 房屋交易：客户订购、退房、购买 信息查询：销售、订购、结款、交易记录查询 报表查询：日报表、月报表

object Form_khfk: TForm_khfk
  Left = 223
  Top = 250
  Width = 702
  Height = 454
  Caption = #23458#25143#36141#35746#20184#27454#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 168
    Width = 681
    Height = 233
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object LabeledEdit1: TLabeledEdit
    Left = 16
    Top = 32
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #25151#23627#32534#21495'    '
    TabOrder = 1
    OnKeyPress = LabeledEdit1KeyPress
  end
  object LabeledEdit2: TLabeledEdit
    Left = 160
    Top = 32
    Width = 121
    Height = 21
    EditLabel.Width = 63
    EditLabel.Height = 13
    EditLabel.Caption = #25151#23627#21517#31216'     '
    Enabled = False
    TabOrder = 2
  end
  object LabeledEdit3: TLabeledEdit
    Left = 312
    Top = 32
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #23458#25143#32534#21495'    '
    Enabled = False
    TabOrder = 3
  end
  object LabeledEdit4: TLabeledEdit
    Left = 16
    Top = 80
    Width = 121
    Height = 21
    EditLabel.Width = 63
    EditLabel.Height = 13
    EditLabel.Caption = #23458#25143#22995#21517'     '
    Enabled = False
    TabOrder = 4
  end
  object LabeledEdit5: TLabeledEdit
    Left = 160
    Top = 80
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #36523#20221#35777#21495'    '
    Enabled = False
    TabOrder = 5
  end
  object LabeledEdit6: TLabeledEdit
    Left = 312
    Top = 80
    Width = 121
    Height = 21
    EditLabel.Width = 63
    EditLabel.Height = 13
    EditLabel.Caption = #24212#20184#37329#39069'     '
    Enabled = False
    TabOrder = 6
  end
  object LabeledEdit7: TLabeledEdit
    Left = 160
    Top = 128
    Width = 121
    Height = 21
    EditLabel.Width = 63
    EditLabel.Height = 13
    EditLabel.Caption = #24050#20184#37329#39069'     '
    TabOrder = 7
    OnKeyPress = LabeledEdit7KeyPress
  end
  object LabeledEdit8: TLabeledEdit
    Left = 312
    Top = 128
    Width = 121
    Height = 21
    EditLabel.Width = 66
    EditLabel.Height = 13
    EditLabel.Caption = #26410#20184#37329#39069'      '
    TabOrder = 8
  end
  object BitBtn1: TBitBtn
    Left = 576
    Top = 24
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 9
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 576
    Top = 72
    Width = 75
    Height = 25
    Caption = #22686#21152
    TabOrder = 10
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 576
    Top = 120
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 11
    OnClick = BitBtn3Click
  end
  object LabeledEdit9: TLabeledEdit
    Left = 16
    Top = 128
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #25805#20316#26102#38388'    '
    Enabled = False
    TabOrder = 12
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=fwxs'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 152
    Top = 256
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 176
    Top = 224
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from zhanghu;')
    Left = 192
    Top = 256
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dinggou;')
    Left = 96
  end
end