unit1.dfm

用Delphi 开发的一个 户籍管理系统

    DataSet = dst_person
    Left = 100
    Top = 162
  end
  object ds_fieldshow: TDataSource
    DataSet = RDB.dst_FieldShow
    Left = 174
    Top = 165
  end
  object dst_person: TADODataSet
    Connection = RDB.con_ado
    CursorType = ctStatic
    CommandText = 'select * from info_People'
    Parameters = <>
    Left = 218
    Top = 139
    object strngfld__peopleCode: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'Code'
      Size = 10
    end
    object strngfld__peopleName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
    end
    object strngfld__peopleOldName: TWideStringField
      DisplayLabel = #26366#29992#21517
      FieldName = 'OldName'
    end
    object strngfld__peopleSexName: TStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 6
      FieldKind = fkLookup
      FieldName = 'SexName'
      LookupDataSet = RDB.dst_sex
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'Sex'
      Size = 4
      Lookup = True
    end
    object dtmfld__peopleBirthday: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      DisplayWidth = 27
      FieldName = 'Birthday'
    end
    object strngfld__peopleIDCard: TWideStringField
      DisplayLabel = #36523#20221#35777#21495#30721
      FieldName = 'IDCard'
    end
    object strngfld__peopledoorNumber: TWideStringField
      DisplayLabel = #25143#21495
      FieldName = 'doorNumber'
      Size = 16
    end
    object strngfld__peopleHouseMaster: TWideStringField
      DisplayLabel = #25143#20027#22995#21517
      FieldName = 'HouseMaster'
    end
    object strngfld__peoplerelationName: TWideStringField
      DisplayLabel = #19982#25143#20027#20851#31995
      FieldKind = fkLookup
      FieldName = 'relationName'
      LookupDataSet = RDB.dst_relation
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'relation'
      Size = 8
      Lookup = True
    end
    object strngfld__peoplemarriageName: TWideStringField
      DisplayLabel = #23130#23035#29366#20917
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'marriageName'
      LookupDataSet = RDB.dst_Marriage
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'marriage'
      Size = 4
      Lookup = True
    end
    object strngfld__peopleregTypeName: TWideStringField
      DisplayLabel = #25143#21475#31867#21035
      DisplayWidth = 18
      FieldKind = fkLookup
      FieldName = 'regTypeName'
      LookupDataSet = RDB.dst_regType
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'regType'
      Size = 12
      Lookup = True
    end
    object strngfld__peopleGroupName: TWideStringField
      DisplayLabel = #32452#21495
      FieldName = 'GroupName'
      Size = 16
    end
    object dtmfld__peopleQfDate: TDateTimeField
      DisplayLabel = #31614#21457#26085#26399
      DisplayWidth = 27
      FieldName = 'QfDate'
    end
    object strngfld__peoplerecordStatusName: TWideStringField
      DisplayLabel = #25143#31821#29366#24577
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'recordStatusName'
      LookupDataSet = RDB.dst_RecordStatus
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'recordStatus'
      Size = 10
      Lookup = True
    end
    object strngfld__peopleEduDegreeName: TWideStringField
      DisplayLabel = #25991#21270#31243#24230
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'EduDegreeName'
      LookupDataSet = RDB.dst_EduDegree
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'EduDegree'
      Size = 6
      Lookup = True
    end
    object strngfld__peopleBloodTypeName: TStringField
      DisplayLabel = #34880#22411
      DisplayWidth = 9
      FieldKind = fkLookup
      FieldName = 'BloodTypeName'
      LookupDataSet = RDB.dst_BloodType
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'BloodType'
      Size = 6
      Lookup = True
    end
    object strngfld__peopleNationlityName: TStringField
      DisplayLabel = #27665#26063
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'NationlityName'
      LookupDataSet = RDB.dst_Nationlity
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'Nationlity'
      Size = 10
      Lookup = True
    end
    object strngfld__peopleHealthName: TWideStringField
      DisplayLabel = #20581#24247#29366#20917
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'HealthName'
      LookupDataSet = RDB.dst_Health
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'Health'
      Size = 10
      Lookup = True
    end
    object strngfld__peopleReligionName: TWideStringField
      DisplayLabel = #23447#25945#20449#20208
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'ReligionName'
      LookupDataSet = RDB.dst_Religion
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'Religion'
      Size = 8
      Lookup = True
    end
    object strngfld__peopleEscuageName: TWideStringField
      DisplayLabel = #20853#24441#24773#20917
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'EscuageName'
      LookupDataSet = RDB.dst_Escuage
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'Escuage'
      Size = 10
      Lookup = True
    end
    object strngfld__peoplePolityName: TWideStringField
      DisplayLabel = #25919#27835#38754#35980
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'PolityName'
      LookupDataSet = RDB.dst_Polity
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'Polity'
      Size = 8
      Lookup = True
    end
    object intgrfld__peopleregType: TIntegerField
      FieldName = 'regType'
      Visible = False
    end
    object strngfld__peoplerelation: TWideStringField
      FieldName = 'relation'
      Visible = False
      Size = 10
    end
    object strngfld__peopleOrgan: TWideStringField
      DisplayLabel = #31614#21457#26426#20851
      FieldName = 'Organ'
      Size = 50
    end
    object intgrfld__peopleRecordStatus: TIntegerField
      FieldName = 'RecordStatus'
      Visible = False
    end
    object dtmfld__peopleRecordDate: TDateTimeField
      DisplayLabel = #31614#21457#26085#26399
      FieldName = 'RecordDate'
    end
    object intgrfld__peopleEduDegree: TIntegerField
      FieldName = 'EduDegree'
      Visible = False
    end
    object strngfld__peopleBirthAddress: TWideStringField
      DisplayLabel = #20986#29983#22320
      FieldName = 'BirthAddress'
      Size = 100
    end
    object intgrfld__peopleSex: TIntegerField
      FieldName = 'Sex'
      Visible = False
    end
    object intgrfld__peopleStature: TIntegerField
      DisplayLabel = #36523#39640
      FieldName = 'Stature'
    end
    object intgrfld__peopleBloodType: TIntegerField
      FieldName = 'BloodType'
      Visible = False
    end
    object intgrfld__peopleNationlity: TIntegerField
      FieldName = 'Nationlity'
      Visible = False
    end
    object intgrfld__peopleHealth: TIntegerField
      FieldName = 'Health'
      Visible = False
    end
    object strngfld__peopleDwellingPlace: TWideStringField
      DisplayLabel = #20303#22336
      FieldName = 'DwellingPlace'
      Size = 100
    end
    object strngfld__peopleTelephone: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'Telephone'
      Size = 50
    end
    object strngfld__peopleOtherDwellingPlace: TWideStringField
      DisplayLabel = #20854#23427#20303#22336
      FieldName = 'OtherDwellingPlace'
      Size = 100
    end
    object intgrfld__peopleReligion: TIntegerField
      FieldName = 'Religion'
      Visible = False
    end
    object intgrfld__peopleMarriage: TIntegerField
      FieldName = 'Marriage'
      Visible = False
    end
    object intgrfld__peopleEscuage: TIntegerField
      FieldName = 'Escuage'
      Visible = False
    end
    object strngfld__peopleWork: TWideStringField
      DisplayLabel = #32844#19994
      FieldName = 'Work'
      Size = 50
    end
    object strngfld__peopleService: TWideStringField
      DisplayLabel = #26381#21153#22788#25152
      FieldName = 'Service'
      Size = 100
    end
    object intgrfld__peoplePolity: TIntegerField
      FieldName = 'Polity'
      Visible = False
    end
    object mfld__peopleRemark: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      BlobType = ftMemo
    end
    object blnfld__peopleLownessDefend: TBooleanField
      DisplayLabel = #20302#20445
      FieldName = 'LownessDefend'
    end
    object blnfld__peopleArmyCorps: TBooleanField
      DisplayLabel = #20891#23646
      FieldName = 'ArmyCorps'
    end
    object blbfld__peoplePic: TBlobField
      DisplayLabel = #22270#29255
      FieldName = 'Pic'
      Visible = False
    end
    object strngfld__peopleDoorRecordLocus: TWideStringField
      DisplayLabel = #25143#31821#25152#22312#22320
      FieldName = 'DoorRecordLocus'
      Size = 50
    end
    object strngfld__peopleNativePlace: TWideStringField
      DisplayLabel = #31821#36143
      FieldName = 'NativePlace'
      Size = 50
    end
    object dtmfld__peopleIngoingDate: TDateTimeField
      DisplayLabel = #36801#20837#26085#26399
      FieldName = 'IngoingDate'
    end
    object strngfld__peopleOriginalDwellingPlace: TWideStringField
      DisplayLabel = #21407#20303#22320
      FieldName = 'OriginalDwellingPlace'
      Size = 100
    end
    object intgrfld__peopleIngoingType: TIntegerField
      FieldName = 'IngoingType'
      Visible = False
    end
    object fld__peopleIngoingTypeName: TStringField
      DisplayLabel = #36801#20837#31867#21035
      FieldKind = fkLookup
      FieldName = 'IngoingTypeName'
      LookupDataSet = RDB.dst_IngoingType
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'IngoingType'
      Size = 14
      Lookup = True
    end
    object strngfld__peopleIngoingCause: TWideStringField
      DisplayLabel = #36801#20837#21407#22240
      FieldName = 'IngoingCause'
      Size = 100
    end
    object dtmfld__peopleExceedDate: TDateTimeField
      DisplayLabel = #36801#20986#26085#26399
      FieldName = 'ExceedDate'
    end
    object strngfld__peopleExceedAddress: TWideStringField
      DisplayLabel = #36801#20986#22320
      FieldName = 'ExceedAddress'
      Size = 100
    end
    object intgrfld__peopleExceedType: TIntegerField
      FieldName = 'ExceedType'
      Visible = False
    end
    object fld__peopleExceedTypeName: TStringField
      DisplayLabel = #36801#20986#31867#21035
      FieldKind = fkLookup
      FieldName = 'ExceedTypeName'
      LookupDataSet = RDB.dst_ExceedType
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ExceedType'
      Size = 14
      Lookup = True
    end
    object strngfld__peopleExceedCause: TWideStringField
      DisplayLabel = #36801#20986#21407#22240
      FieldName = 'ExceedCause'
      Size = 100
    end
    object blnfld__peopleDeath: TBooleanField
      DisplayLabel = #26159#21542#27515#20129
      FieldName = 'Death'
    end
    object blnfld__peopleLogout: TBooleanField
      DisplayLabel = #25143#21475#26159#21542#24050#27880#38144
      FieldName = 'Logout'
    end
    object dtmfld__peopleDeathDate: TDateTimeField
      DisplayLabel = #27515#20129#26085#26399
      FieldName = 'DeathDate'
    end
    object strngfld__peopleDeathCause: TWideStringField
      DisplayLabel = #27515#20129#24773#20917
      FieldName = 'DeathCause'
      Size = 100
    end
    object dtmfld__peopleLogoutDate: TDateTimeField
      DisplayLabel = #25143#21475#27880#38144#26085#26399
      FieldName = 'LogoutDate'
    end
    object strngfld__peopleLogoutCause: TWideStringField
      DisplayLabel = #25143#21475#27880#38144#21407#22240
      FieldName = 'LogoutCause'
      Size = 200
    end
    object intgrfld__peopleID: TIntegerField
      FieldName = 'ID'
    end
    object blnfld__peopleisbmp: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'isbmp'
    end
  end
end