unithouse.dfm

社区服务系统

object frmHouse: TfrmHouse
  Left = 225
  Top = 217
  Width = 764
  Height = 529
  Caption = #20154#21592#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 756
    Height = 248
    Align = alClient
    Caption = #23478#24237#21015#34920
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 752
      Height = 186
      Align = alTop
      Color = clBtnFace
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'HId'
          Title.Alignment = taCenter
          Title.Caption = #23478#24237#32534#21495
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CId'
          Title.Alignment = taCenter
          Title.Caption = #31038#21306#32534#21495
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Hname'
          Title.Alignment = taCenter
          Title.Caption = #23478#24237#31616#31216
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HAddress'
          Title.Alignment = taCenter
          Title.Caption = #23478#24237#22320#22336
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Hphone'
          Title.Alignment = taCenter
          Title.Caption = #23478#24237#30005#35805
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Htelephone'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#25163#26426#21495
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Householder'
          Title.Alignment = taCenter
          Title.Caption = #25143#20027#21517
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Hmemo'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 201
      Width = 752
      Height = 45
      Align = alClient
      TabOrder = 1
      DesignSize = (
        752
        45)
      object bbtnAdd: TBitBtn
        Left = 78
        Top = 8
        Width = 75
        Height = 33
        Anchors = [akTop]
        Caption = #28155#21152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = bbtnAddClick
      end
      object bbtnModify: TBitBtn
        Left = 420
        Top = 8
        Width = 75
        Height = 33
        Anchors = [akTop]
        Caption = #20462#25913
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = bbtnModifyClick
      end
      object bbtnDel: TBitBtn
        Left = 190
        Top = 8
        Width = 75
        Height = 33
        Anchors = [akTop]
        Caption = #21024#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = bbtnDelClick
      end
      object bbtnSave: TBitBtn
        Left = 532
        Top = 8
        Width = 75
        Height = 33
        Anchors = [akTop]
        Caption = #20445#23384
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = bbtnSaveClick
      end
      object bbtnCancel: TBitBtn
        Left = 310
        Top = 8
        Width = 75
        Height = 33
        Anchors = [akTop]
        Caption = #21462#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = bbtnCancelClick
      end
      object bbtnExit: TBitBtn
        Left = 644
        Top = 8
        Width = 75
        Height = 33
        Anchors = [akTop]
        Caption = #36864#20986
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = bbtnExitClick
      end
    end
  end
  object pclHouse: TPageControl
    Left = 0
    Top = 248
    Width = 756
    Height = 254
    ActivePage = TabSheet1
    Align = alBottom
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #32534#36753
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object GroupBox2: TGroupBox
        Left = 0
        Top = 17
        Width = 748
        Height = 209
        Align = alBottom
        Caption = #23478#24237#36164#26009#32534#36753#21306
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 22
          Top = 46
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #31038#21306#32534#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 22
          Top = 81
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #23478#24237#32534#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 22
          Top = 114
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #23478#24237#31616#31216#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 23
          Top = 150
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #25143#20027#21517#31216#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 276
          Top = 51
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #23478#24237#22320#22336#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 276
          Top = 85
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #23478#24237#30005#35805#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 276
          Top = 120
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #32852#31995#25163#26426#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 534
          Top = 28
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #22791'          '#27880#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object edtCId: TEdit
          Left = 100
          Top = 44
          Width = 139
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object edtHId: TEdit
          Left = 100
          Top = 78
          Width = 139
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object edtHname: TEdit
          Left = 100
          Top = 112
          Width = 139
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object edtHouseholder: TEdit
          Left = 100
          Top = 148
          Width = 139
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object edtHAddress: TEdit
          Left = 358
          Top = 47
          Width = 145
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object edtHphone: TEdit
          Left = 358
          Top = 80
          Width = 145
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object edtHtelephone: TEdit
          Left = 358
          Top = 113
          Width = 145
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object memHouse: TMemo
          Left = 538
          Top = 48
          Width = 183
          Height = 121
          Lines.Strings = (
            'Memo1')
          TabOrder = 7
        end
      end
    end
  end
  object adoHouse: TADOQuery
    Active = True
    Connection = ADOHouseConn
    CursorType = ctStatic
    AfterScroll = adoHouseAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from THouse where HState='#39'1'#39)
    Left = 608
    Top = 96
    object adoHouseHId: TWideStringField
      FieldName = 'HId'
      Size = 10
    end
    object adoHouseCId: TWideStringField
      FieldName = 'CId'
      Size = 4
    end
    object adoHouseHname: TWideStringField
      FieldName = 'Hname'
      Size = 30
    end
    object adoHouseHAddress: TWideStringField
      FieldName = 'HAddress'
      Size = 40
    end
    object adoHouseHphone: TWideStringField
      FieldName = 'Hphone'
    end
    object adoHouseHtelephone: TWideStringField
      FieldName = 'Htelephone'
    end
    object adoHouseHouseholder: TWideStringField
      FieldName = 'Householder'
    end
    object adoHouseHUserWC: TWideStringField
      FieldName = 'HUserWC'
    end
    object adoHouseHmemo: TWideStringField
      FieldName = 'Hmemo'
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = adoHouse
    Left = 568
    Top = 96
  end
  object ADOHouseConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\sqzlj\community.' +
      'mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 520
    Top = 96
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOHouseConn
    CursorType = ctStatic
    IndexFieldNames = 'Hid'
    MasterFields = 'HId'
    MasterSource = DataSource1
    TableName = 'TPerson'
    Left = 312
    Top = 88
  end
end