f_rdb.pas

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

unit f_rdb;

interface

uses
  SysUtils, Classes, DB, ADODB, Dialogs, ExtCtrls, Forms,
  cxClasses, cxStyles, cxGridTableView, ImgList, Controls, XPMan;

type
  TRDB = class(TDataModule)
    Timer1: TTimer;
    sql: TADOQuery;
    cmd: TADOCommand;
    GridStyle: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxStyle3: TcxStyle;
    cxStyle4: TcxStyle;
    cxStyle5: TcxStyle;
    cxStyle6: TcxStyle;
    cxStyle7: TcxStyle;
    cxStyle8: TcxStyle;
    cxStyle9: TcxStyle;
    cxStyle10: TcxStyle;
    cxStyle11: TcxStyle;
    cxStyle12: TcxStyle;
    cxStyle13: TcxStyle;
    cxStyle14: TcxStyle;
    cxStyle15: TcxStyle;
    cxStyle16: TcxStyle;
    cxStyle17: TcxStyle;
    cxStyle18: TcxStyle;
    cxStyle19: TcxStyle;
    cxStyle20: TcxStyle;
    cxStyle21: TcxStyle;
    cxStyle22: TcxStyle;
    cxStyle23: TcxStyle;
    cxStyle24: TcxStyle;
    cxStyle25: TcxStyle;
    cxStyle26: TcxStyle;
    Customer: TcxStyle;
    Num: TcxStyle;
    DrugNum: TcxStyle;
    GridTableViewStyleSheetWindowsStandard: TcxGridTableViewStyleSheet;
    dst_Escuage: TADODataSet;
    dst_Health: TADODataSet;
    dst_EduDegree: TADODataSet;
    dst_Polity: TADODataSet;
    dst_sex: TADODataSet;
    dst_Nationlity: TADODataSet;
    dst_people: TADODataSet;
    dtmfld__peopleBirthday: TDateTimeField;
    dtmfld__peopleQfDate: TDateTimeField;
    dst_regType: TADODataSet;
    atncfld__regTypeID: TAutoIncField;
    wdstrngfld__regTypeName: TWideStringField;
    wdstrngfld__regTypeType: TWideStringField;
    dst_Religion: TADODataSet;
    dst_Marriage: TADODataSet;
    dst_BloodType: TADODataSet;
    dst_RecordStatus: TADODataSet;
    dst_tmp: TADODataSet;
    intgrfld__HealthID: TIntegerField;
    wdstrngfld__HealthName: TWideStringField;
    wdstrngfld__HealthType: TWideStringField;
    strngfld__peopleSexName: TStringField;
    strngfld__peopleBloodTypeName: TStringField;
    strngfld__peopleNationlityName: TStringField;
    strngfld__peopleEscuageName: TWideStringField;
    strngfld__peopleregTypeName: TWideStringField;
    strngfld__peoplerecordStatusName: TWideStringField;
    strngfld__peopleReligionName: TWideStringField;
    strngfld__peoplePolityName: TWideStringField;
    strngfld__peopleEduDegreeName: TWideStringField;
    strngfld__peopleHealthName: TWideStringField;
    strngfld__peoplemarriageName: TWideStringField;
    intgrfld__peopleregType: TIntegerField;
    strngfld__peopleGroupName: TWideStringField;
    strngfld__peopledoorNumber: TWideStringField;
    strngfld__peopleCode: TWideStringField;
    strngfld__peopleName: TWideStringField;
    strngfld__peopleOldName: TWideStringField;
    strngfld__peopleHouseMaster: TWideStringField;
    strngfld__peoplerelation: TWideStringField;
    strngfld__peopleIDCard: TWideStringField;
    strngfld__peopleOrgan: TWideStringField;
    intgrfld__peopleRecordStatus: TIntegerField;
    dtmfld__peopleRecordDate: TDateTimeField;
    intgrfld__peopleEduDegree: TIntegerField;
    strngfld__peopleBirthAddress: TWideStringField;
    intgrfld__peopleSex: TIntegerField;
    intgrfld__peopleStature: TIntegerField;
    intgrfld__peopleBloodType: TIntegerField;
    intgrfld__peopleNationlity: TIntegerField;
    intgrfld__peopleHealth: TIntegerField;
    strngfld__peopleDwellingPlace: TWideStringField;
    strngfld__peopleTelephone: TWideStringField;
    strngfld__peopleOtherDwellingPlace: TWideStringField;
    intgrfld__peopleReligion: TIntegerField;
    intgrfld__peopleMarriage: TIntegerField;
    intgrfld__peopleEscuage: TIntegerField;
    strngfld__peopleWork: TWideStringField;
    strngfld__peopleService: TWideStringField;
    intgrfld__peoplePolity: TIntegerField;
    mfld__peopleRemark: TMemoField;
    blnfld__peopleLownessDefend: TBooleanField;
    blnfld__peopleArmyCorps: TBooleanField;
    blbfld__peoplePic: TBlobField;
    strngfld__peopleDoorRecordLocus: TWideStringField;
    strngfld__peopleNativePlace: TWideStringField;
    dtmfld__peopleIngoingDate: TDateTimeField;
    strngfld__peopleOriginalDwellingPlace: TWideStringField;
    intgrfld__peopleIngoingType: TIntegerField;
    strngfld__peopleIngoingCause: TWideStringField;
    dtmfld__peopleExceedDate: TDateTimeField;
    strngfld__peopleExceedAddress: TWideStringField;
    intgrfld__peopleExceedType: TIntegerField;
    strngfld__peopleExceedCause: TWideStringField;
    blnfld__peopleDeath: TBooleanField;
    blnfld__peopleLogout: TBooleanField;
    dtmfld__peopleDeathDate: TDateTimeField;
    strngfld__peopleDeathCause: TWideStringField;
    dtmfld__peopleLogoutDate: TDateTimeField;
    strngfld__peopleLogoutCause: TWideStringField;
    dst_relation: TADODataSet;
    intgrfld__relationID: TIntegerField;
    strngfld__relationName: TWideStringField;
    strngfld__relationType: TWideStringField;
    intgrfld__MarriageID: TIntegerField;
    strngfld__MarriageName: TWideStringField;
    strngfld__MarriageType: TWideStringField;
    intgrfld__EduDegreeID: TIntegerField;
    strngfld__EduDegreeName: TWideStringField;
    strngfld__EduDegreeType: TWideStringField;
    intgrfld__PolityID: TIntegerField;
    strngfld__PolityName: TWideStringField;
    strngfld__PolityType: TWideStringField;
    intgrfld__ReligionID: TIntegerField;
    strngfld__ReligionName: TWideStringField;
    strngfld__ReligionType: TWideStringField;
    intgrfld__RecordStatusID: TIntegerField;
    strngfld__RecordStatusName: TWideStringField;
    strngfld__RecordStatusType: TWideStringField;
    intgrfld__EscuageID: TIntegerField;
    strngfld__EscuageName: TWideStringField;
    strngfld__EscuageType: TWideStringField;
    intgrfld__NationlityID: TIntegerField;
    strngfld__NationlityName: TWideStringField;
    strngfld__NationlityType: TWideStringField;
    intgrfld__BloodTypeID: TIntegerField;
    strngfld__BloodTypeName: TWideStringField;
    strngfld__BloodTypeType: TWideStringField;
    intgrfld__sexID: TIntegerField;
    strngfld__sexName: TWideStringField;
    strngfld__sexType: TWideStringField;
    strngfld__peoplerelationName: TWideStringField;
    dst_IngoingType: TADODataSet;
    intgrfld__movetypeID: TIntegerField;
    strngfld__movetypeName: TWideStringField;
    strngfld__movetypeType: TWideStringField;
    intgrfld__peopleID: TIntegerField;
    dst_ExceedType: TADODataSet;
    IntegerField1: TIntegerField;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    fld__peopleIngoingTypeName: TStringField;
    fld__peopleExceedTypeName: TStringField;
    dst_FieldShow: TADODataSet;
    intgrfld__FieldShowid: TIntegerField;
    strngfld__FieldShowfield: TWideStringField;
    strngfld__FieldShowname: TWideStringField;
    blnfld__FieldShowshow: TBooleanField;
    intgrfld__FieldShowwidth: TIntegerField;
    intgrfld__FieldShowShowID: TIntegerField;
    strngfld__FieldShowTableName: TWideStringField;
    dst_reg: TADODataSet;
    strngfld__regregcode: TWideStringField;
    il_16: TImageList;
    dst_Person: TADODataSet;
    dst_PSN: TADODataSet;
    intgrfld__Personid: TIntegerField;
    strngfld__Personusername: TWideStringField;
    strngfld__Personpassword: TWideStringField;
    intgrfld__Personpermit: TIntegerField;
    blnfld__Personisuser: TBooleanField;
    strngfld__PersonPartName: TWideStringField;
    strngfld__PersonRemark: TWideStringField;
    intgrfld__PSNid: TIntegerField;
    strngfld__PSNusername: TWideStringField;
    strngfld__PSNpassword: TWideStringField;
    intgrfld__PSNpermit: TIntegerField;
    blnfld__PSNisuser: TBooleanField;
    strngfld__PSNPartName: TWideStringField;
    strngfld__PSNRemark: TWideStringField;
    con_ado: TADOConnection;
    dst_info_Conciliation: TADODataSet;
    strngfld__info_Conciliationcode: TWideStringField;
    strngfld__info_Conciliationname: TWideStringField;
    strngfld__info_ConciliationDoorNumber: TWideStringField;
    strngfld__info_Conciliationyfzh: TWideStringField;
    strngfld__info_Conciliationyflx: TWideStringField;
    strngfld__info_ConciliationWorkPower: TWideStringField;
    strngfld__info_Conciliationshnl: TWideStringField;
    strngfld__info_ConciliationWorkStatus: TWideStringField;
    fltfld__info_Conciliationincome: TFloatField;
    strngfld__info_Conciliationgyqk: TWideStringField;
    mfld__info_Conciliationmemo: TMemoField;
    dst_info_handicapped: TADODataSet;
    strngfld__info_handicappedcode: TWideStringField;
    strngfld__info_handicappedname: TWideStringField;
    strngfld__info_handicappedDoorNumber: TWideStringField;
    strngfld__info_handicappedHandicappedCard: TWideStringField;
    strngfld__info_handicappedDeformityStatus: TWideStringField;
    strngfld__info_handicappedGuardian: TWideStringField;
    strngfld__info_handicappedWorkPower: TWideStringField;
    strngfld__info_handicappedSkillSuit: TWideStringField;
    mfld__info_handicappedRemark: TMemoField;
    dst_info_jobless: TADODataSet;
    strngfld__info_joblesscode: TWideStringField;
    strngfld__info_joblessname: TWideStringField;
    strngfld__info_joblessDoorNumber: TWideStringField;
    dtmfld__info_joblesssydate: TDateTimeField;
    strngfld__info_joblesssyda: TWideStringField;
    strngfld__info_joblessjob: TWideStringField;
    strngfld__info_joblessjobplace: TWideStringField;
    strngfld__info_joblessWorkStatus: TWideStringField;
    strngfld__info_joblessqzyx: TWideStringField;
    fltfld__info_joblessincome: TFloatField;
    mfld__info_joblessmemo: TMemoField;
    dst_info_prisonPeople: TADODataSet;
    strngfld__info_prisonPeoplecode: TWideStringField;
    strngfld__info_prisonPeoplename: TWideStringField;
    dtmfld__info_prisonPeoplecydate: TDateTimeField;
    strngfld__info_prisonPeopleljcs: TWideStringField;
    strngfld__info_prisonPeoplexq: TWideStringField;
    strngfld__info_prisonPeopleay: TWideStringField;
    strngfld__info_prisonPeoplejob: TWideStringField;
    strngfld__info_prisonPeopleaddress: TWideStringField;
    dtmfld__info_prisonPeopleazdate: TDateTimeField;
    strngfld__info_prisonPeoplewazyy: TWideStringField;
    mfld__info_prisonPeoplememo: TMemoField;
    dst_info_LowEnsure: TADODataSet;
    strngfld__info_LowEnsurecode: TWideStringField;
    strngfld__info_LowEnsurename: TWideStringField;
    strngfld__info_LowEnsureDoorNumber: TWideStringField;
    strngfld__info_LowEnsureLowEnsureCard: TWideStringField;
    strngfld__info_LowEnsureLowEnsureCause: TWideStringField;
    dtmfld__info_LowEnsurebegindate: TDateTimeField;