frm_hjgl.pas

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

    RzLabel80: TRzLabel;
    RzDBEdit49: TRzDBEdit;
    RzLabel82: TRzLabel;
    RzDBEdit50: TRzDBEdit;
    RzLabel83: TRzLabel;
    RzDBEdit51: TRzDBEdit;
    RzDBEdit53: TRzDBEdit;
    RzLabel85: TRzLabel;
    RzLabel86: TRzLabel;
    RzDBEdit54: TRzDBEdit;
    RzLabel87: TRzLabel;
    RzDBMemo4: TRzDBMemo;
    RzDBLookupComboBox19: TRzDBLookupComboBox;
    RzLabel88: TRzLabel;
    RzLabel89: TRzLabel;
    RzLabel90: TRzLabel;
    RzLabel91: TRzLabel;
    RzDBEdit57: TRzDBEdit;
    RzLabel93: TRzLabel;
    RzDBEdit58: TRzDBEdit;
    RzLabel94: TRzLabel;
    RzDBEdit59: TRzDBEdit;
    RzDBEdit60: TRzDBEdit;
    RzLabel95: TRzLabel;
    RzDBEdit61: TRzDBEdit;
    RzLabel96: TRzLabel;
    RzLabel97: TRzLabel;
    RzDBEdit62: TRzDBEdit;
    RzLabel98: TRzLabel;
    RzDBMemo5: TRzDBMemo;
    RzLabel99: TRzLabel;
    RzLabel100: TRzLabel;
    RzDBEdit63: TRzDBEdit;
    RzDBEdit64: TRzDBEdit;
    RzLabel101: TRzLabel;
    Tim_jobless: TRzDBDateTimePicker;
    RzDBDateTimePicker3: TRzDBDateTimePicker;
    RzDBEdit65: TRzDBEdit;
    RzLabel22: TRzLabel;
    RzDBDateTimePicker4: TRzDBDateTimePicker;
    ds_LowEnsure: TDataSource;
    RzDBDateTimePicker5: TRzDBDateTimePicker;
    RzDBDateTimePicker6: TRzDBDateTimePicker;
    RzLabel25: TRzLabel;
    RzDBDateTimePicker7: TRzDBDateTimePicker;
    RzLabel81: TRzLabel;
    RzDBDateTimePicker8: TRzDBDateTimePicker;
    RzLabel84: TRzLabel;
    RzDBEdit52: TRzDBEdit;
    RzDBEdit55: TRzDBEdit;
    pnl_Conciliation: TPanel;
    pnl_oldpeople: TPanel;
    pnl_LowEnsure: TPanel;
    pnl_prisonPeople: TPanel;
    pnl_jobless: TPanel;
    pnl_handicapped: TPanel;
    rzgrd_info_Conciliation: TRzDBGrid;
    rzgrd_info_handicapped: TRzDBGrid;
    rzgrd_info_oldpeople: TRzDBGrid;
    rzgrd_info_LowEnsure: TRzDBGrid;
    rzgrd_info_prisonPeople: TRzDBGrid;
    rzgrd_info_jobless: TRzDBGrid;
    cbb_condition: TRzComboBox;
    cbb_conditiontext: TRzComboBox;
    btn_find: TRzBitBtn;
    btn_search: TRzBitBtn;
    btn_showall: TRzBitBtn;
    procedure ds_peopleStateChange(Sender: TObject);
    procedure act_insertExecute(Sender: TObject);
    procedure act_editExecute(Sender: TObject);
    procedure act_postExecute(Sender: TObject);
    procedure act_reflashExecute(Sender: TObject);
    procedure act_firstExecute(Sender: TObject);
    procedure act_priorExecute(Sender: TObject);
    procedure act_nextExecute(Sender: TObject);
    procedure act_lastExecute(Sender: TObject);
    procedure ds_linkfationStateChange(Sender: TObject);
    procedure act_edit_linkfationExecute(Sender: TObject);
    procedure act_post_linkfationExecute(Sender: TObject);
    procedure act_reflash_linkfationExecute(Sender: TObject);
    procedure rzspltr_peopleeditChange(Sender: TObject);
    procedure rzgrpbx_hjinResize(Sender: TObject);
    procedure tab_basedataChange(Sender: TObject);
    procedure ds_basedataStateChange(Sender: TObject);
    procedure act_insert_basedataExecute(Sender: TObject);
    procedure act_edit_basedataExecute(Sender: TObject);
    procedure act_post_basedataExecute(Sender: TObject);
    procedure act_reflash_basedataExecute(Sender: TObject);
    procedure act_first_basedataExecute(Sender: TObject);
    procedure act_prior_basedataExecute(Sender: TObject);
    procedure act_next_basedataExecute(Sender: TObject);
    procedure act_last_basedataExecute(Sender: TObject);
    procedure ds_basedataDataChange(Sender: TObject; Field: TField);
    procedure ds_peopleDataChange(Sender: TObject; Field: TField);
    procedure act_findExecute(Sender: TObject);
    procedure img_picDblClick(Sender: TObject);
    procedure ds_FieldShowDataChange(Sender: TObject; Field: TField);
    procedure act_searchExecute(Sender: TObject);
    procedure act_showallExecute(Sender: TObject);
    procedure tab_infocaculateChange(Sender: TObject);
    procedure act_insert_tsryExecute(Sender: TObject);
    procedure act_edit_tsryExecute(Sender: TObject);
    procedure act_delete_tsryExecute(Sender: TObject);
    procedure act_post_tsryExecute(Sender: TObject);
    procedure act_cancel_tsryExecute(Sender: TObject);
    procedure act_first_tsryExecute(Sender: TObject);
    procedure act_prior_tsryExecute(Sender: TObject);
    procedure act_next_tsryExecute(Sender: TObject);
    procedure act_last_tsryExecute(Sender: TObject);
    procedure ds_info_prisonPeopleStateChange(Sender: TObject);
    procedure ds_info_LowEnsureStateChange(Sender: TObject);
    procedure ds_info_oldpeopleStateChange(Sender: TObject);
    procedure ds_info_joblessStateChange(Sender: TObject);
    procedure ds_info_ConciliationStateChange(Sender: TObject);
    procedure ds_info_handicappedStateChange(Sender: TObject);
    procedure ds_info_prisonPeopleDataChange(Sender: TObject;
      Field: TField);
    procedure ds_info_LowEnsureDataChange(Sender: TObject; Field: TField);
    procedure ds_info_oldpeopleDataChange(Sender: TObject; Field: TField);
    procedure ds_info_joblessDataChange(Sender: TObject; Field: TField);
    procedure ds_info_ConciliationDataChange(Sender: TObject;
      Field: TField);
    procedure ds_info_handicappedDataChange(Sender: TObject;
      Field: TField);
    procedure cbb_fieldClick(Sender: TObject);
  private
    { Private declarations }
  public
    function GetTableNewID(TableName: string): Integer;
    function isAttribute(TypeName: string): Boolean;
    { Public declarations }
  end;

implementation

uses f_sel_person;

{$R *.dfm}

function TFm_hjgl.GetTableNewID(TableName: string): Integer;
begin
  if RDB.dst_tmp.Active then
    RDB.dst_tmp.Active := False;
  RDB.dst_tmp.CommandText := 'select Max(id) as MaxID from ' + TableName + '';
  RDB.dst_tmp.Active := True;
  Result := RDB.dst_tmp.FieldByName('MaxID').AsInteger + 1;
end;

procedure TFm_hjgl.ds_peopleStateChange(Sender: TObject);
begin
  act_insert.Enabled := not (ds_people.DataSet.State in [dsEdit,
    dsinsert]);
  act_edit.Enabled := not (ds_people.DataSet.State in [dsEdit,
    dsinsert]);
  act_find.Enabled := not (ds_people.DataSet.FieldCount = 0);
  act_post.Enabled := ds_people.DataSet.State in [dsEdit, dsinsert];
  act_reflash.Enabled := ds_people.DataSet.State in [dsEdit, dsinsert];
  rzgrpbx_hjin.Enabled := ds_people.DataSet.State in [dsEdit, dsinsert];
  grpbox_CensusStatus.Enabled := ds_people.DataSet.State in [dsEdit, dsinsert];
  dst_linkfation.Active := not (ds_people.DataSet.State in [dsEdit,
    dsinsert]);
  act_edit_linkfation.Enabled := not (ds_people.DataSet.State in [dsEdit,
    dsinsert]);
end;

procedure TFm_hjgl.act_insertExecute(Sender: TObject);
begin
  rzpnl_PeopleEdit.Visible := true;
  RDB.dst_people.Append;
  RDB.dst_people.FieldByName('id').AsInteger := GetTableNewID('info_people');
  RDB.dst_people.FieldByName('Birthday').AsDateTime := Now;
  RDB.dst_people.FieldByName('QfDate').AsDateTime := Now;
  RDB.dst_people.FieldByName('RecordDate').AsDateTime := Now;
  RDB.dst_people.FieldByName('IngoingDate').AsDateTime := Now;
  RDB.dst_people.FieldByName('LogoutDate').AsDateTime := Now;
  RDB.dst_people.FieldByName('DeathDate').AsDateTime := Now;
  RDB.dst_people.FieldByName('LogoutDate').AsDateTime := Now;
end;

procedure TFm_hjgl.act_editExecute(Sender: TObject);
begin
  RDB.dst_people.Edit;
end;

procedure TFm_hjgl.act_postExecute(Sender: TObject);
begin
  RDB.dst_people.Post;
end;

procedure TFm_hjgl.act_reflashExecute(Sender: TObject);
begin
  RDB.dst_people.Cancel;
end;

procedure TFm_hjgl.act_firstExecute(Sender: TObject);
begin
  RDB.dst_people.First;
end;

procedure TFm_hjgl.act_priorExecute(Sender: TObject);
begin
  RDB.dst_people.Prior;
end;

procedure TFm_hjgl.act_nextExecute(Sender: TObject);
begin
  RDB.dst_people.Next;
end;

procedure TFm_hjgl.act_lastExecute(Sender: TObject);
begin
  RDB.dst_people.Last;
end;

procedure TFm_hjgl.ds_linkfationStateChange(Sender: TObject);
begin
  grpbox_linkfation.Enabled := (ds_linkfation.DataSet.State in [dsEdit,
    dsinsert]);
  act_edit_linkfation.Enabled := not (ds_linkfation.DataSet.State in [dsEdit,
    dsinsert]);
  act_post_linkfation.Enabled := ds_linkfation.DataSet.State in [dsEdit,
    dsinsert];
  act_reflash_linkfation.Enabled := ds_linkfation.DataSet.State in [dsEdit,
    dsinsert];
end;

procedure TFm_hjgl.act_edit_linkfationExecute(Sender: TObject);
begin
  dst_linkfation.Edit;
end;

procedure TFm_hjgl.act_post_linkfationExecute(Sender: TObject);
begin
  dst_linkfation.Post;
end;

procedure TFm_hjgl.act_reflash_linkfationExecute(Sender: TObject);
begin
  dst_linkfation.Cancel;
end;

procedure TFm_hjgl.rzspltr_peopleeditChange(Sender: TObject);
begin
  //  StaticText2.Caption := IntToStr(rzspltr_peopleedit.Position)
end;

procedure TFm_hjgl.rzgrpbx_hjinResize(Sender: TObject);
begin
  rzgrpbx_hjin.Width := tbs_people.Left + tbs_people.Width - rzgrpbx_hjin.Left -
    20;
end;

procedure TFm_hjgl.tab_basedataChange(Sender: TObject);
var
  tmpstr: string;
begin
  tmpstr := tab_basedata.ActivePage.Caption;
  strngfld_basedataName.DisplayLabel := tmpstr;
  rzpnl_tmp.Caption := '您现在编辑的是“' + tmpstr + '”！';
  tmpstr := tab_basedata.ActivePage.Name;
  tmpstr := Copy(tmpstr, 5, Length(tmpstr) - 4);
  tmpstr := 'SELECT * FROM Sys_attribute where type=''' + tmpstr + '''';
  dst_basedata.Active := False;
  dst_basedata.CommandText := tmpstr;
  dst_basedata.Active := True;
end;

procedure TFm_hjgl.ds_basedataStateChange(Sender: TObject);
begin
  act_insert_basedata.Enabled := not (ds_basedata.DataSet.State in [dsEdit,
    dsinsert]);
  act_edit_basedata.Enabled := not (ds_basedata.DataSet.State in [dsEdit,
    dsinsert]);
  act_post_basedata.Enabled := (ds_basedata.DataSet.State in [dsEdit,
    dsinsert]);
  act_reflash_basedata.Enabled := (ds_basedata.DataSet.State in [dsEdit,
    dsinsert]);
  { grd_regType.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit, dsinsert]);
   grd_EduDegree.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_Marriage.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_Escuage.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit, dsinsert]);
   grd_health.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit, dsinsert]);
   grd_RecordStatus.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_BloodType.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_Religion.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_Nationlity.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_relation.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_Polity.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit, dsinsert]);
   grd_movetype.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_LownessDefendCause.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_WorkStatus.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]);
   grd_Conciliation.ReadOnly := not (ds_basedata.DataSet.State in [dsEdit,
     dsinsert]); }
end;

procedure TFm_hjgl.act_insert_basedataExecute(Sender: TObject);
begin
  dst_basedata.Append;
end;

procedure TFm_hjgl.act_edit_basedataExecute(Sender: TObject);
begin
  dst_basedata.Edit;
end;

procedure TFm_hjgl.act_post_basedataExecute(Sender: TObject);
begin
  dst_basedata.Post;
end;

procedure TFm_hjgl.act_reflash_basedataExecute(Sender: TObject);
begin
  dst_basedata.Cancel;
end;

procedure TFm_hjgl.act_first_basedataExecute(Sender: TObject);
begin
  dst_basedata.First;
end;

procedure TFm_hjgl.act_prior_basedataExecute(Sender: TObject);
begin
  dst_basedata.Prior;
end;

procedure TFm_hjgl.act_next_basedataExecute(Sender: TObject);
begin
  dst_basedata.Next;
end;

procedure TFm_hjgl.act_last_basedataExecute(Sender: TObject);
begin
  dst_basedata.Last;
end;

procedure TFm_hjgl.ds_basedataDataChange(Sender: TObject; Field: TField);
begin
  act_first_basedata.Enabled := not ds_basedata.DataSet.Bof;
  act_prior_basedata.Enabled := not ds_basedata.DataSet.Bof;
  act_next_basedata.Enabled := not ds_basedata.DataSet.Eof;
  act_last_basedata.Enabled := not ds_basedata.DataSet.Eof;
end;

procedure TFm_hjgl.ds_peopleDataChange(Sender: TObject; Field: TField);
begin
  act_first.Enabled := not ds_people.DataSet.Bof;
  act_prior.Enabled := not ds_people.DataSet.Bof;
  act_next.Enabled := not ds_people.DataSet.Eof;
  act_last.Enabled := not ds_people.DataSet.Eof;
end;

procedure TFm_hjgl.img_picDblClick(Sender: TObject);
begin
  img_pic.Parent := pnl_pic;
  img_pic.Height := pnl_pic.Height - 3;
  img_pic.Width := pnl_pic.Width - 3;
  img_pic.Left := 0;
  img_pic.Top := 0;
end;

procedure TFm_hjgl.ds_FieldShowDataChange(Sender: TObject; Field: TField);
begin
  //StaticText2.Caption:=ds_FieldShow.DataSet.FieldByName('field').AsString;
end;

function TFm_hjgl.isAttribute(TypeName: string): Boolean;
begin
  Result := True;