f_main.pas

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

unit f_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzGroupBar, ExtCtrls, RzStatus, RzTabs,
  ActnList, RzButton, Menus, F_RDB, jpeg, RzAnimtr, RzBorder, ImgList;

type
  Tfm_main = class(TForm)
    rzstsbr_1: TRzStatusBar;
    rzgrpbr_1: TRzGroupBar;
    rztlbr_1: TRzToolbar;
    rzgrp_1: TRzGroup;
    rzgrp_2: TRzGroup;
    rzglyphsts_1: TRzGlyphStatus;
    rzclcksts_1: TRzClockStatus;
    rzmrqsts_1: TRzMarqueeStatus;
    rzglyphsts_2: TRzGlyphStatus;
    rzglyphsts_3: TRzGlyphStatus;
    actlst_hjgl: TActionList;
    act_peopleedit: TAction;
    actlst_sysaction: TActionList;
    act_exit: TAction;
    mm_Menu: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    act_pwdchange: TAction;
    act_specialperson: TAction;
    N20: TMenuItem;
    tab_hjgl: TRzPageControl;
    tbs_hjgl: TRzTabSheet;
    act_navigate: TAction;
    N2: TMenuItem;
    tbs_navigate: TRzTabSheet;
    img_navigate: TImage;
    rzgrp_basedata: TRzGroup;
    actlst_about: TActionList;
    act_reg: TAction;
    act_about: TAction;
    N9: TMenuItem;
    N10: TMenuItem;
    actreg1: TMenuItem;
    actlst_BaseData: TActionList;
    act_regType: TAction;
    act_EduDegree: TAction;
    act_Marriage: TAction;
    act_Escuage: TAction;
    act_health: TAction;
    act_RecordStatus: TAction;
    act_BloodType: TAction;
    act_religion: TAction;
    act_Nationlity: TAction;
    act_relation: TAction;
    act_polity: TAction;
    act_movetype: TAction;
    act_LownessDefendCause: TAction;
    act_WorkStatus: TAction;
    act_Conciliation: TAction;
    N3: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    act_basedata: TAction;
    N26: TMenuItem;
    rzspcr_1: TRzSpacer;
    btn_basedata: TRzToolButton;
    btn_hjgl: TRzToolButton;
    btn_search: TRzToolButton;
    rzspcr_2: TRzSpacer;
    act_Relogin: TAction;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    actlst_tools: TActionList;
    act_idcard: TAction;
    act_mobile: TAction;
    act_post: TAction;
    act_calculator: TAction;
    act_notebook: TAction;
    N31: TMenuItem;
    N32: TMenuItem;
    rzgrp_tools: TRzGroup;
    tbs_tools: TRzTabSheet;
    btn_notebook: TRzToolButton;
    btn_calculator: TRzToolButton;
    btn_idcard: TRzToolButton;
    btn_mobile: TRzToolButton;
    btn_post: TRzToolButton;
    rzspcr_3: TRzSpacer;
    btn_navigate: TRzToolButton;
    btn_changepsw: TRzToolButton;
    btn_Exit: TRzToolButton;
    rzgrp_ani: TRzGroup;
    LED_CENSUS: TRzLEDDisplay;
    tmr_ani: TTimer;
    procedure act_exitExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure act_peopleeditExecute(Sender: TObject);
    procedure actlst_hjglExecute(Action: TBasicAction;
      var Handled: Boolean);
    procedure act_navigateExecute(Sender: TObject);
    procedure act_regExecute(Sender: TObject);
    procedure act_aboutExecute(Sender: TObject);
    procedure act_specialpersonExecute(Sender: TObject);
    procedure act_regTypeExecute(Sender: TObject);
    procedure act_EduDegreeExecute(Sender: TObject);
    procedure act_MarriageExecute(Sender: TObject);
    procedure act_EscuageExecute(Sender: TObject);
    procedure act_healthExecute(Sender: TObject);
    procedure act_RecordStatusExecute(Sender: TObject);
    procedure act_BloodTypeExecute(Sender: TObject);
    procedure act_religionExecute(Sender: TObject);
    procedure act_NationlityExecute(Sender: TObject);
    procedure act_relationExecute(Sender: TObject);
    procedure act_polityExecute(Sender: TObject);
    procedure act_movetypeExecute(Sender: TObject);
    procedure act_LownessDefendCauseExecute(Sender: TObject);
    procedure act_WorkStatusExecute(Sender: TObject);
    procedure act_ConciliationExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure act_pwdchangeExecute(Sender: TObject);
    procedure actlst_BaseDataExecute(Action: TBasicAction;
      var Handled: Boolean);
    procedure act_basedataExecute(Sender: TObject);
    procedure act_notebookExecute(Sender: TObject);
    procedure act_calculatorExecute(Sender: TObject);
    procedure act_postExecute(Sender: TObject);
    procedure act_mobileExecute(Sender: TObject);
    procedure act_idcardExecute(Sender: TObject);
    procedure rzgrp_aniResize(Sender: TObject);
    procedure tmr_aniTimer(Sender: TObject);

  private
    { Private declarations }
  public
    procedure ActionOpen;
    { Public declarations }
  end;

var
  fm_main: Tfm_main;
  I: Integer;
implementation

uses frm_hjgl, f_reg, f_Login, f_commfun, f_tools, f_about;

var
  frm_hjgl: TFm_hjgl;
  fm_reg: Tfm_reg;
  fm_login: Tfm_login;
  fm_tool: Tfm_tool;
  fm_about: Tfm_about;
{$R *.dfm}

procedure Tfm_main.act_exitExecute(Sender: TObject);
begin
  frm_hjgl.Free;
  fm_login.Free;
  Application.Terminate;
end;

procedure Tfm_main.FormCreate(Sender: TObject);
begin
  fm_main.WindowState := wsMaximized;
  tab_hjgl.ActivePage := tbs_navigate;
  frm_hjgl := TFm_hjgl.create(nil);
  frm_hjgl.Align := alClient;
  if not RDB.dst_people.Active then
    RDB.dst_people.Active := True;
  if not rdb.dst_FieldShow.Active then
    RDB.dst_FieldShow.Active := True;
  if not rdb.dst_info_Conciliation.Active then
    RDB.dst_info_Conciliation.Active := True;
  frm_hjgl.tab_basedata.OnChange(nil);
  frm_hjgl.rzspltr_peopleedit.Position := 230;
  act_peopleedit.Enabled := False;
  act_navigate.Enabled := False;
  act_specialperson.Enabled := False;
  act_regType.Enabled := False;
  act_EduDegree.Enabled := False;
  act_Marriage.Enabled := False;
  act_Escuage.Enabled := False;
  act_health.Enabled := False;
  act_RecordStatus.Enabled := False;
  act_BloodType.Enabled := False;
  act_religion.Enabled := False;
  act_Nationlity.Enabled := False;
  act_relation.Enabled := False;
  act_polity.Enabled := False;
  act_movetype.Enabled := False;
  act_LownessDefendCause.Enabled := False;
  act_WorkStatus.Enabled := False;
  act_Conciliation.Enabled := False;
  act_basedata.Enabled := False;
  act_idcard.Enabled := False;
  act_mobile.Enabled := False;
  act_post.Enabled := False;
  fm_login := Tfm_login.Create(nil);
  fm_reg := Tfm_reg.create(nil);
end;

procedure Tfm_main.act_peopleeditExecute(Sender: TObject);
begin
  frm_hjgl.parent := tbs_hjgl;
  frm_hjgl.rzpgcntrl_hjgl.ActivePage := frm_hjgl.tbs_peopleedit;
end;

procedure Tfm_main.actlst_hjglExecute(Action: TBasicAction;
  var Handled: Boolean);
begin
  tab_hjgl.ActivePage := tbs_hjgl;
end;

procedure Tfm_main.act_navigateExecute(Sender: TObject);
begin
  tab_hjgl.ActivePage := tbs_navigate;
end;

procedure Tfm_main.act_regExecute(Sender: TObject);
begin
  fm_reg.Show;
  // 在此加入注册信息,修改人 linio 修改时间 2007.04.15
end;

procedure Tfm_main.act_aboutExecute(Sender: TObject);
begin
  // 在此加入关于信息和帮助,修改人 linio 修改时间 2007.04.15
  fm_about := Tfm_about.Create(nil);
  fm_about.Show;
end;

procedure Tfm_main.ActionOpen;
begin
  // 如果注册信息是正确的，在此将全部功能设为有效,修改人 linio 修改时间 2007.04.15
  act_peopleedit.Enabled := True;
  act_navigate.Enabled := True;
  act_specialperson.Enabled := True;
  act_regType.Enabled := True;
  act_EduDegree.Enabled := True;
  act_Marriage.Enabled := True;
  act_Escuage.Enabled := True;
  act_health.Enabled := True;
  act_RecordStatus.Enabled := True;
  act_BloodType.Enabled := True;
  act_religion.Enabled := True;
  act_Nationlity.Enabled := True;
  act_relation.Enabled := True;
  act_polity.Enabled := True;
  act_movetype.Enabled := True;
  act_LownessDefendCause.Enabled := True;
  act_WorkStatus.Enabled := True;
  act_Conciliation.Enabled := True;
  act_basedata.Enabled := True;
  act_idcard.Enabled := True;
  act_mobile.Enabled := True;
  act_post.Enabled := True;
end;

procedure Tfm_main.act_specialpersonExecute(Sender: TObject);
begin
  frm_hjgl.parent := tbs_hjgl;
  frm_hjgl.rzpgcntrl_hjgl.ActivePage := frm_hjgl.tbs_calculation;
  frm_hjgl.tab_infocaculate.ActivePage := frm_hjgl.tbs_info_Conciliation;
  frm_hjgl.ds_edit := frm_hjgl.ds_info_Conciliation;
end;

procedure Tfm_main.act_regTypeExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_regType;
end;

procedure Tfm_main.act_EduDegreeExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_EduDegree;
end;

procedure Tfm_main.act_MarriageExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_Marriage;
end;

procedure Tfm_main.act_EscuageExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_Escuage;
end;

procedure Tfm_main.act_healthExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_health;
end;

procedure Tfm_main.act_RecordStatusExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_RecordStatus;
end;

procedure Tfm_main.act_BloodTypeExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_BloodType;
end;

procedure Tfm_main.act_religionExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_religion;
end;

procedure Tfm_main.act_NationlityExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_Nationlity;
end;

procedure Tfm_main.act_relationExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_relation;
end;

procedure Tfm_main.act_polityExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_polity;
end;

procedure Tfm_main.act_movetypeExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_movetype;
end;

procedure Tfm_main.act_LownessDefendCauseExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_LownessDefendCause;
end;

procedure Tfm_main.act_WorkStatusExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_WorkStatus;
end;

procedure Tfm_main.act_ConciliationExecute(Sender: TObject);
begin
  frm_hjgl.tab_basedata.ActivePage := frm_hjgl.tbs_Conciliation;
end;

procedure Tfm_main.FormShow(Sender: TObject);
begin
  if RDB.regOK = True then
    ActionOpen;
  act_pwdchange.Execute;
end;

procedure Tfm_main.act_pwdchangeExecute(Sender: TObject);
begin
  // 更改密码,修改人 linio 修改时间 2007.04.15

  if fm_login.ShowModal = IDCancel then
  begin
    if user.islogin then
      Exit;
    Application.Terminate;
  end;
  rzglyphsts_2.Caption := user.Name + '   您好！';
end;

procedure Tfm_main.actlst_BaseDataExecute(Action: TBasicAction;
  var Handled: Boolean);
begin
  act_basedata.Execute;
end;

procedure Tfm_main.act_basedataExecute(Sender: TObject);
begin
  frm_hjgl.parent := tbs_hjgl;
  tab_hjgl.ActivePage := tbs_hjgl;
  frm_hjgl.rzpgcntrl_hjgl.ActivePage := frm_hjgl.tbs_basedata;
end;

procedure Tfm_main.act_notebookExecute(Sender: TObject);
var
  NotePad: string;
begin
  NotePad := ExtractFilePath(Application.ExeName) + '\tools\NOTEPAD.EXE';
  WinExec(PChar(NotePad), SW_SHOWNORMAL)
end;

procedure Tfm_main.act_calculatorExecute(Sender: TObject);
var
  calc: string;
begin
  calc := ExtractFilePath(Application.ExeName) + '\tools\calc.EXE';
  WinExec(PChar(calc), SW_SHOWNORMAL)
end;

procedure Tfm_main.act_postExecute(Sender: TObject);
begin
  if fm_tool = nil then
    fm_tool := Tfm_tool.Create(nil);
  //fm_tool.Parent:=tbs_navigate;
  //tab_hjgl.ActivePage := tbs_navigate;
  fm_tool.tab_tools.ActivePage := fm_tool.tbs_postcode;
  fm_tool.Show;
end;

procedure Tfm_main.act_mobileExecute(Sender: TObject);
begin
  if fm_tool = nil then
    fm_tool := Tfm_tool.Create(nil);
  //fm_tool.Parent:=tbs_navigate;
  //tab_hjgl.ActivePage := tbs_navigate;
  fm_tool.tab_tools.ActivePage := fm_tool.tbs_mobile;
  fm_tool.Show;
end;

procedure Tfm_main.act_idcardExecute(Sender: TObject);
begin
  if fm_tool = nil then
    fm_tool := Tfm_tool.Create(nil);
  //fm_tool.Parent:=tbs_navigate;
  //tab_hjgl.ActivePage := tbs_navigate;
  fm_tool.tab_tools.ActivePage := fm_tool.tbs_IDCard;
  fm_tool.Show;
end;

procedure Tfm_main.rzgrp_aniResize(Sender: TObject);
begin
  LED_CENSUS.Left := rzgrp_ani.Left - 15;
  LED_CENSUS.Width := rzgrp_ani.Width + 20;
end;

procedure Tfm_main.tmr_aniTimer(Sender: TObject);
begin
  case I of
    0: rzmrqsts_1.BlinkColor := clLime;
    1: rzmrqsts_1.BlinkColor := clMaroon;
    2: rzmrqsts_1.BlinkColor := clGreen;
    3: rzmrqsts_1.BlinkColor := clOlive;
    4: rzmrqsts_1.BlinkColor := clNavy;
    5: rzmrqsts_1.BlinkColor := clPurple;
    6: rzmrqsts_1.BlinkColor := clTeal;
    7: rzmrqsts_1.BlinkColor := clGray;
    8: rzmrqsts_1.BlinkColor := clSilver;
    9: rzmrqsts_1.BlinkColor := clRed;
    10: rzmrqsts_1.BlinkColor := clYellow;
    11: rzmrqsts_1.BlinkColor := clBlue;
    12: rzmrqsts_1.BlinkColor := clFuchsia;
    13: rzmrqsts_1.BlinkColor := clAqua;
    14: rzmrqsts_1.BlinkColor := clLtGray;
    15: rzmrqsts_1.BlinkColor := clDkGray;
  else
    I := -1;
  end;
  I := I + 1;
end;

end.