f_rdb.dfm

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

      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 = 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 = 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 = 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
  object dst_regType: TADODataSet
    Connection = con_ado
    CursorType = ctStatic
    CommandText = 'select * from Sys_attribute where type='#39'regType'#39
    Parameters = <>
    Left = 89
    Top = 90
    object atncfld__regTypeID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object wdstrngfld__regTypeName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object wdstrngfld__regTypeType: TWideStringField
      FieldName = 'Type'
      Size = 50
    end
  end
  object dst_Religion: TADODataSet
    Connection = con_ado
    CursorType = ctStatic
    CommandText = 'select * from Sys_attribute where type='#39'Religion'#39
    Parameters = <>
    Left = 93
    Top = 192
    object intgrfld__ReligionID: TIntegerField
      FieldName = 'ID'
    end
    object strngfld__ReligionName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object strngfld__ReligionType: TWideStringField
      FieldName = 'Type'
      Size = 50
    end
  end
  object dst_Marriage: TADODataSet
    Connection = con_ado
    CursorType = ctStatic
    CommandText = 'select * from Sys_attribute where type='#39'Marriage'#39
    Parameters = <>
    Left = 174
    Top = 139
    object intgrfld__MarriageID: TIntegerField
      FieldName = 'ID'
    end
    object strngfld__MarriageName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object strngfld__MarriageType: TWideStringField
      FieldName = 'Type'
      Size = 50
    end
  end
  object dst_BloodType: TADODataSet
    Connection = con_ado
    CursorType = ctStatic
    CommandText = 'select * from Sys_attribute where type='#39'BloodType'#39
    Parameters = <>
    Left = 16
    Top = 195
    object intgrfld__BloodTypeID: TIntegerField
      FieldName = 'ID'
    end
    object strngfld__BloodTypeName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object strngfld__BloodTypeType: TWideStringField
      FieldName = 'Type'
      Size = 50
    end
  end
  object dst_RecordStatus: TADODataSet
    Connection = con_ado
    CursorType = ctStatic