unitpersonhealth.~dfm

社区服务系统

          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20813#30123#32467#26524#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 611
          Top = 102
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20581#24247#32467#35770#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 237
          Top = 95
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #26816#26597#26085#26399#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 249
          Top = 130
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #35760#24405#21592#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 239
          Top = 164
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #35760#24405#26102#38388#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object edtpid: TEdit
          Left = 77
          Top = 19
          Width = 144
          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 memPerson: TMemo
          Left = 360
          Top = 213
          Width = 214
          Height = 55
          Lines.Strings = (
            'memPerson')
          TabOrder = 1
        end
        object cbxHId: TComboBox
          Left = 78
          Top = 54
          Width = 145
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 2
        end
        object Edit1: TEdit
          Left = 77
          Top = 90
          Width = 144
          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 Edit2: TEdit
          Left = 76
          Top = 126
          Width = 144
          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 Edit3: TEdit
          Left = 74
          Top = 161
          Width = 144
          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 Edit4: TEdit
          Left = 303
          Top = 21
          Width = 144
          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 Edit5: TEdit
          Left = 304
          Top = 57
          Width = 144
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
        object Memo1: TMemo
          Left = 14
          Top = 218
          Width = 232
          Height = 50
          Lines.Strings = (
            '')
          TabOrder = 8
        end
        object Memo2: TMemo
          Left = 481
          Top = 41
          Width = 113
          Height = 55
          Lines.Strings = (
            '')
          TabOrder = 9
        end
        object Memo3: TMemo
          Left = 633
          Top = 40
          Width = 97
          Height = 55
          Lines.Strings = (
            '')
          TabOrder = 10
        end
        object Memo4: TMemo
          Left = 480
          Top = 134
          Width = 121
          Height = 55
          Lines.Strings = (
            '')
          TabOrder = 11
        end
        object Memo5: TMemo
          Left = 633
          Top = 133
          Width = 97
          Height = 55
          Lines.Strings = (
            '')
          TabOrder = 12
        end
        object DateTimePicker1: TDateTimePicker
          Left = 303
          Top = 92
          Width = 146
          Height = 21
          Date = 38686.627302511570000000
          Time = 38686.627302511570000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 13
        end
        object Edit6: TEdit
          Left = 305
          Top = 128
          Width = 144
          Height = 19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
        end
        object DateTimePicker2: TDateTimePicker
          Left = 304
          Top = 161
          Width = 146
          Height = 21
          Date = 38686.627302511570000000
          Time = 38686.627302511570000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 15
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810
      ImageIndex = 1
      object GroupBox4: TGroupBox
        Left = 0
        Top = 0
        Width = 481
        Height = 283
        Align = alLeft
        Caption = #26597#35810#26465#20214
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        DesignSize = (
          481
          283)
        object Label20: TLabel
          Left = 22
          Top = 62
          Width = 73
          Height = 16
          Anchors = [akTop]
          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 Label21: TLabel
          Left = 22
          Top = 109
          Width = 73
          Height = 16
          Anchors = [akTop]
          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 Label22: TLabel
          Left = 22
          Top = 151
          Width = 73
          Height = 16
          Anchors = [akTop]
          AutoSize = False
          Caption = #25104#21592#22995#21517#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object edtFname: TEdit
          Left = 100
          Top = 104
          Width = 139
          Height = 19
          Anchors = [akTop]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object edtpersonName: TEdit
          Left = 100
          Top = 147
          Width = 139
          Height = 19
          Anchors = [akTop]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object cbxFno: TComboBox
          Left = 99
          Top = 56
          Width = 142
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 2
        end
      end
      object GroupBox5: TGroupBox
        Left = 481
        Top = 0
        Width = 311
        Height = 283
        Align = alClient
        Caption = #25805#20316#21306
        TabOrder = 1
        DesignSize = (
          311
          283)
        object bbtnSearch: TBitBtn
          Left = 109
          Top = 52
          Width = 61
          Height = 51
          Anchors = [akTop]
          Caption = #26597#35810
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          Layout = blGlyphTop
        end
        object bbtngoto: TBitBtn
          Left = 109
          Top = 124
          Width = 61
          Height = 51
          Anchors = [akTop]
          Caption = #36820#22238
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Layout = blGlyphTop
        end
      end
    end
  end
  object adoHealth: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TPersonHealth')
    Left = 616
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = adoHealth
    Left = 648
    Top = 88
  end
  object ADOConnection1: 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 = 533
    Top = 88
  end
end