uperson_append.pas

一个地方税务征收管理系统

unit uperson_append;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, dialogs, Grids, DBGridEh, Menus, DBCtrlsEh, Mask,
  DosMove;

type
  Tperson_append = class(TForm)
    Label2: TLabel;
    b_save: TBitBtn;
    edit2: TEdit;
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure CancelBtnClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure edit2KeyPress(Sender: TObject; var Key: Char);
    procedure b_saveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  person_append: Tperson_append;

implementation

uses DB, uacount_new, u_dm, RICH_SYS;

{$R *.dfm}

procedure Tperson_append.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure Tperson_append.BitBtn4Click(Sender: TObject);
begin
  close;

end;

procedure Tperson_append.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', '.', #13, #8]) then
    key := #0;
end;

procedure Tperson_append.Edit1Enter(Sender: TObject);
begin
  (Sender as TEdit).Color := clAqua;
end;

procedure Tperson_append.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).Color := clWhite;
end;

procedure Tperson_append.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', '.', #13, #8]) then
    key := #0;
end;

procedure Tperson_append.b_saveClick(Sender: TObject);
var
  s, Mhead: string;
  i: integer;
  min, max: integer;
begin
  min := StrToInt(RightStr(Edit1.Text, 3));
  max := StrToInt(RightStr(Edit2.Text, 3));
  Mhead := LeftStr(edit1.Text, 3);
  for i := min to max do
  begin
    s := Mhead + string_qd0str(3, i);
    s := 'exec p_add_person ' + string_sqlText(s);

    dm1.EXE_SQL(s);
  end;
  dm1.A_Person.Requery();
  MessageDlg('批量添加' + LeftStr(Mhead, 2) + '村' + copy(Mhead, 3, 1) +
    '社农户成功！', mtWarning, [mbok], 0);
end;

end.