frm_hjgl.pas

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

unit frm_hjgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzGroupBar, RzTabs, DB, ADODB, f_rdb, RzButton, ExtCtrls,
  DBCtrls, RzDBNav, RzPanel, Grids, DBGrids, RzDBGrid, StdCtrls, RzLabel,
  Mask, RzEdit, RzDBEdit, RzCmboBx, RzDBCmbo, RzRadChk, ActnList, ComCtrls,
  RzDTP, RzDBDTP, RzDBChk, RzSplit, cxControls, cxContainer, cxEdit,
  cxImage, cxDBEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit;

type
  TFm_hjgl = class(TFrame)
    rzpgcntrl_hjgl: TRzPageControl;
    tbs_basedata: TRzTabSheet;
    tbs_peopleedit: TRzTabSheet;
    tbs_calculation: TRzTabSheet;
    StaticText1: TStaticText;
    actlst_hjgl: TActionList;
    act_find: TAction;
    act_insert: TAction;
    act_edit: TAction;
    act_post: TAction;
    act_reflash: TAction;
    act_first: TAction;
    act_prior: TAction;
    act_next: TAction;
    act_last: TAction;
    ds_people: TDataSource;
    ds_regType: TDataSource;
    ds_sex: TDataSource;
    ds_Nationlity: TDataSource;
    ds_BloodType: TDataSource;
    ds_RecordStatus: TDataSource;
    ds_Religion: TDataSource;
    ds_Marriage: TDataSource;
    ds_Escuage: TDataSource;
    ds_Polity: TDataSource;
    ds_EduDegree: TDataSource;
    ds_Health: TDataSource;
    ds_relation: TDataSource;
    ds_ExceedType: TDataSource;
    ds_linkfation: TDataSource;
    dst_linkfation: TADODataSet;
    intgrfld__linkfationid: TIntegerField;
    strngfld__linkfationmobil: TWideStringField;
    strngfld__linkfationfmtel: TWideStringField;
    strngfld__linkfationoftel: TWideStringField;
    strngfld__linkfationfax: TWideStringField;
    strngfld__linkfationweb: TWideStringField;
    strngfld__linkfationemail: TWideStringField;
    strngfld__linkfationaddress: TWideStringField;
    actlst_linkfation: TActionList;
    act_edit_linkfation: TAction;
    act_post_linkfation: TAction;
    act_reflash_linkfation: TAction;
    ds_IngoingType: TDataSource;
    actlst_basedata: TActionList;
    act_edit_basedata: TAction;
    act_post_basedata: TAction;
    act_reflash_basedata: TAction;
    act_insert_basedata: TAction;
    act_first_basedata: TAction;
    act_prior_basedata: TAction;
    act_next_basedata: TAction;
    act_last_basedata: TAction;
    dst_basedata: TADODataSet;
    ds_basedata: TDataSource;
    intgrfld__basedataID: TIntegerField;
    strngfld_basedataName: TWideStringField;
    strngfld__basedataType: TWideStringField;
    ds_FieldShow: TDataSource;
    tab_basedata: TRzPageControl;
    tbs_regType: TRzTabSheet;
    grd_regType: TRzDBGrid;
    tbs_EduDegree: TRzTabSheet;
    grd_EduDegree: TRzDBGrid;
    tbs_Marriage: TRzTabSheet;
    grd_Marriage: TRzDBGrid;
    tbs_Escuage: TRzTabSheet;
    grd_Escuage: TRzDBGrid;
    tbs_health: TRzTabSheet;
    grd_health: TRzDBGrid;
    tbs_RecordStatus: TRzTabSheet;
    grd_RecordStatus: TRzDBGrid;
    tbs_BloodType: TRzTabSheet;
    grd_BloodType: TRzDBGrid;
    tbs_Religion: TRzTabSheet;
    grd_Religion: TRzDBGrid;
    tbs_Nationlity: TRzTabSheet;
    grd_Nationlity: TRzDBGrid;
    tbs_relation: TRzTabSheet;
    grd_relation: TRzDBGrid;
    tbs_Polity: TRzTabSheet;
    grd_Polity: TRzDBGrid;
    tbs_movetype: TRzTabSheet;
    grd_movetype: TRzDBGrid;
    tbs_LownessDefendCause: TRzTabSheet;
    grd_LownessDefendCause: TRzDBGrid;
    tbs_WorkStatus: TRzTabSheet;
    grd_WorkStatus: TRzDBGrid;
    tbs_Conciliation: TRzTabSheet;
    grd_Conciliation: TRzDBGrid;
    rzpnl_tmp: TRzPanel;
    StaticText4: TStaticText;
    RzToolbar4: TRzToolbar;
    rzspltr_peopleedit: TRzSplitter;
    StaticText2: TStaticText;
    rzpnl_1: TRzPanel;
    RzLabel39: TRzLabel;
    RzDBGrid1: TRzDBGrid;
    RzToolbar1: TRzToolbar;
    btn_insert: TRzToolButton;
    btn_edit: TRzToolButton;
    btn_post: TRzToolButton;
    btn_cancel: TRzToolButton;
    btn_first: TRzToolButton;
    btn_prior: TRzToolButton;
    btn_next: TRzToolButton;
    btn_last: TRzToolButton;
    rzpnl_PeopleEdit: TRzPanel;
    tab_people: TRzPageControl;
    tbs_people: TRzTabSheet;
    rzgrpbx_hjin: TRzGroupBox;
    RzLabel8: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel32: TRzLabel;
    RzLabel45: TRzLabel;
    RzLabel56: TRzLabel;
    RzLabel15: TRzLabel;
    RzLabel33: TRzLabel;
    RzLabel57: TRzLabel;
    RzLabel58: TRzLabel;
    RzLabel59: TRzLabel;
    RzLabel60: TRzLabel;
    RzLabel61: TRzLabel;
    RzLabel62: TRzLabel;
    RzLabel63: TRzLabel;
    RzLabel64: TRzLabel;
    RzLabel65: TRzLabel;
    RzLabel66: TRzLabel;
    RzLabel67: TRzLabel;
    RzLabel68: TRzLabel;
    RzLabel69: TRzLabel;
    RzLabel70: TRzLabel;
    RzLabel71: TRzLabel;
    RzLabel72: TRzLabel;
    RzLabel73: TRzLabel;
    RzLabel74: TRzLabel;
    RzLabel75: TRzLabel;
    RzLabel76: TRzLabel;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit22: TRzDBEdit;
    edt_id_CODE: TRzDBEdit;
    RzDBEdit32: TRzDBEdit;
    RzDBEdit33: TRzDBEdit;
    cbb_hktype: TRzDBLookupComboBox;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit34: TRzDBEdit;
    RzDBEdit35: TRzDBEdit;
    RzDBEdit36: TRzDBEdit;
    RzDBEdit37: TRzDBEdit;
    edt_remark: TRzDBRichEdit;
    RzDBEdit38: TRzDBEdit;
    RzDBEdit39: TRzDBEdit;
    Tim_Qfdate: TRzDBDateTimePicker;
    RzDBDateTimePicker1: TRzDBDateTimePicker;
    RzDBDateTimePicker2: TRzDBDateTimePicker;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzDBLookupComboBox9: TRzDBLookupComboBox;
    RzDBLookupComboBox10: TRzDBLookupComboBox;
    RzDBLookupComboBox11: TRzDBLookupComboBox;
    RzDBLookupComboBox12: TRzDBLookupComboBox;
    RzDBLookupComboBox13: TRzDBLookupComboBox;
    RzDBLookupComboBox14: TRzDBLookupComboBox;
    chk_LownessDefend: TRzDBCheckBox;
    chk_ArmyCorps: TRzDBCheckBox;
    RzDBLookupComboBox15: TRzDBLookupComboBox;
    RzDBLookupComboBox16: TRzDBLookupComboBox;
    RzDBLookupComboBox17: TRzDBLookupComboBox;
    tbs_status: TRzTabSheet;
    grpbox_CensusStatus: TRzGroupBox;
    grpbox_move: TRzGroupBox;
    lbl_1: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Tim_in: TRzDBDateTimePicker;
    Tim_out: TRzDBDateTimePicker;
    cbb_IngoingType: TRzDBLookupComboBox;
    cbb_ExceedType: TRzDBLookupComboBox;
    edt_address: TRzDBEdit;
    edt_logincause: TRzDBEdit;
    edt_outaddress: TRzDBEdit;
    edt_logoutcause: TRzDBEdit;
    grpbox_death: TRzGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Tim_death: TRzDBDateTimePicker;
    Tim_delete: TRzDBDateTimePicker;
    edt_dead: TRzDBEdit;
    edt_deletecause: TRzDBEdit;
    chk_dead: TRzDBCheckBox;
    chk_delete: TRzDBCheckBox;
    tbs_linkfation: TRzTabSheet;
    grpbox_linkfation: TRzGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    edt_mobile: TRzDBEdit;
    edt_tel: TRzDBEdit;
    edt_worktel: TRzDBEdit;
    edt_fax: TRzDBEdit;
    edt_web: TRzDBEdit;
    edt_email: TRzDBEdit;
    RzDBEdit40: TRzDBEdit;
    RzToolbar5: TRzToolbar;
    btn_edit_linkfation: TRzToolButton;
    btn_post_linkfation: TRzToolButton;
    btn_reflash_linkfation: TRzToolButton;
    RzLabel1: TRzLabel;
    pnl_pic: TPanel;
    img_pic: TcxDBImage;
    rztlbr_info_caculate: TRzToolbar;
    tab_infocaculate: TRzPageControl;
    tbs_info_Conciliation: TRzTabSheet;
    tbs_info_handicapped: TRzTabSheet;
    tbs_info_jobless: TRzTabSheet;
    tbs_info_prisonPeople: TRzTabSheet;
    tbs_info_LowEnsure: TRzTabSheet;
    tbs_info_oldpeople: TRzTabSheet;
    ds_info_Conciliation: TDataSource;
    ds_info_handicapped: TDataSource;
    ds_info_jobless: TDataSource;
    ds_info_prisonPeople: TDataSource;
    ds_info_LowEnsure: TDataSource;
    ds_info_oldpeople: TDataSource;
    cbb_field: TRzDBLookupComboBox;
    act_search: TAction;
    act_showall: TAction;
    ds_edit: TDataSource;
    actlst_tsry: TActionList;
    act_insert_tsry: TAction;
    act_edit_tsry: TAction;
    act_post_tsry: TAction;
    act_delete_tsry: TAction;
    act_cancel_tsry: TAction;
    act_first_tsry: TAction;
    act_prior_tsry: TAction;
    act_next_tsry: TAction;
    act_last_tsry: TAction;
    btn_insert_tsry: TRzToolButton;
    btn_edit_tsry: TRzToolButton;
    btn_delete_tsry: TRzToolButton;
    btn_post_tsry: TRzToolButton;
    btn_reflash_tsry: TRzToolButton;
    btn_first_tsry: TRzToolButton;
    btn_prior_tsry: TRzToolButton;
    btn_next_tsry: TRzToolButton;
    btn_last_tsry: TRzToolButton;
    btn_insert_basedata: TRzToolButton;
    btn_edit_basedata: TRzToolButton;
    btn_post_basedata: TRzToolButton;
    btn_reflash_basedata: TRzToolButton;
    btn_first_basedata: TRzToolButton;
    btn_prior_basedata: TRzToolButton;
    btn_next_basedata: TRzToolButton;
    btn_last_basedata: TRzToolButton;
    pnl_info_Conciliation: TPanel;
    pnl_info_handicapped: TPanel;
    pnl_info_jobless: TPanel;
    pnl_info_prisonPeople: TPanel;
    pnl_info_LowEnsure: TPanel;
    pnl_info_oldpeople: TPanel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBEdit9: TRzDBEdit;
    RzLabel5: TRzLabel;
    RzDBEdit10: TRzDBEdit;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzDBEdit12: TRzDBEdit;
    RzLabel16: TRzLabel;
    RzDBEdit13: TRzDBEdit;
    RzLabel17: TRzLabel;
    RzLabel18: TRzLabel;
    RzDBEdit15: TRzDBEdit;
    RzLabel19: TRzLabel;
    RzDBEdit16: TRzDBEdit;
    RzLabel21: TRzLabel;
    mmo_memo: TRzDBMemo;
    cbb_yflx: TRzDBLookupComboBox;
    ds_Conciliation: TDataSource;
    ds_WorkStatus: TDataSource;
    cbb_workstatus: TRzDBLookupComboBox;
    RzLabel20: TRzLabel;
    RzDBEdit11: TRzDBEdit;
    RzLabel23: TRzLabel;
    RzDBEdit14: TRzDBEdit;
    RzLabel24: TRzLabel;
    RzDBEdit17: TRzDBEdit;
    RzDBEdit18: TRzDBEdit;
    RzDBEdit19: TRzDBEdit;
    RzLabel26: TRzLabel;
    RzLabel27: TRzLabel;
    RzDBEdit20: TRzDBEdit;
    RzLabel28: TRzLabel;
    RzDBMemo1: TRzDBMemo;
    RzLabel29: TRzLabel;
    RzLabel30: TRzLabel;
    RzDBEdit21: TRzDBEdit;
    RzDBEdit23: TRzDBEdit;
    RzLabel31: TRzLabel;
    RzLabel34: TRzLabel;
    RzDBEdit24: TRzDBEdit;
    RzLabel35: TRzLabel;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzLabel36: TRzLabel;
    RzDBEdit25: TRzDBEdit;
    RzLabel37: TRzLabel;
    RzDBEdit26: TRzDBEdit;
    RzDBEdit27: TRzDBEdit;
    RzLabel38: TRzLabel;
    RzDBEdit28: TRzDBEdit;
    RzLabel41: TRzLabel;
    RzLabel42: TRzLabel;
    RzDBEdit29: TRzDBEdit;
    RzLabel43: TRzLabel;
    RzDBMemo2: TRzDBMemo;
    RzLabel44: TRzLabel;
    RzLabel46: TRzLabel;
    RzDBEdit30: TRzDBEdit;
    RzDBEdit31: TRzDBEdit;
    RzLabel47: TRzLabel;
    RzLabel48: TRzLabel;
    RzDBEdit41: TRzDBEdit;
    RzLabel49: TRzLabel;
    RzLabel50: TRzLabel;
    RzDBEdit42: TRzDBEdit;
    RzLabel51: TRzLabel;
    RzDBEdit43: TRzDBEdit;
    RzDBEdit44: TRzDBEdit;
    RzLabel52: TRzLabel;
    RzDBEdit45: TRzDBEdit;
    RzLabel53: TRzLabel;
    RzLabel54: TRzLabel;
    RzDBEdit46: TRzDBEdit;
    RzLabel55: TRzLabel;
    RzDBMemo3: TRzDBMemo;
    RzLabel77: TRzLabel;
    RzLabel78: TRzLabel;
    RzDBEdit47: TRzDBEdit;
    RzDBEdit48: TRzDBEdit;
    RzLabel79: TRzLabel;