tools.pas

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

unit tools;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzPanel, RzTabs, StdCtrls, Mask, RzEdit,
  ActnList, Grids, DBGrids, RzDBGrid, DB;

type
  Tfm_tool = class(TForm)
    tab_tools: TRzPageControl;
    tbs_mobile: TRzTabSheet;
    tbs_IDCard: TRzTabSheet;
    tbs_postcode: TRzTabSheet;
    actlst_tools: TActionList;
    act_mobile: TAction;
    act_IDCard: TAction;
    act_postcode: TAction;
    act_areacode: TAction;
    act_province: TAction;
    act_city: TAction;
    pnl_mobile: TPanel;
    edt_mobile: TRzNumericEdit;
    btn_mobile: TRzBitBtn;
    Panel1: TPanel;
    RzNumericEdit1: TRzNumericEdit;
    btn_IDCard: TRzBitBtn;
    Panel2: TPanel;
    edt_postcode: TRzNumericEdit;
    btn_postcode: TRzBitBtn;
    edt_province: TRzNumericEdit;
    btn_province: TRzBitBtn;
    edt_areacode: TRzNumericEdit;
    btn_areacode: TRzBitBtn;
    edt_city: TRzNumericEdit;
    btn_city: TRzBitBtn;
    mmo_mobile: TRzMemo;
    mmo_IDCard: TRzMemo;
    grd_postcode: TRzDBGrid;
    ds_postcode: TDataSource;
    procedure act_postcodeExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure act_areacodeExecute(Sender: TObject);
    procedure act_provinceExecute(Sender: TObject);
    procedure act_cityExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_tool: Tfm_tool;

implementation

uses F_RDB;

{$R *.dfm}

procedure Tfm_tool.act_postcodeExecute(Sender: TObject);
begin
  if RDB.dst_postalcode.Active then
     RDB.dst_postalcode.Active:=False;
  RDB.dst_postalcode.CommandText:='select * from data where 邮编 like'''+ Trim(edt_province.Text) +'''';
  RDB.dst_postalcode.Active:=True;
end;

procedure Tfm_tool.FormCreate(Sender: TObject);
begin
  rdb.dst_postalcode.Active:=True;
end;

procedure Tfm_tool.act_areacodeExecute(Sender: TObject);
begin
  if RDB.dst_postalcode.Active then
     RDB.dst_postalcode.Active:=False;
  RDB.dst_postalcode.CommandText:='select * from data where 区号 like'''+ Trim(edt_province.Text) +'''';
  RDB.dst_postalcode.Active:=True;
end;

procedure Tfm_tool.act_provinceExecute(Sender: TObject);
begin
  if RDB.dst_postalcode.Active then
     RDB.dst_postalcode.Active:=False;
  RDB.dst_postalcode.CommandText:='select * from data where 省名 like'''+ Trim(edt_province.Text) +'''';
  RDB.dst_postalcode.Active:=True;
end;

procedure Tfm_tool.act_cityExecute(Sender: TObject);
begin
  if RDB.dst_postalcode.Active then
     RDB.dst_postalcode.Active:=False;
  RDB.dst_postalcode.CommandText:='select * from data where 县市名 like'''+ Trim(edt_province.Text) +'''';
  RDB.dst_postalcode.Active:=True;
end;

end.