uperson_edit.pas

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

unit uperson_edit;

interface

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

type
  Tperson_edit = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    BitBtn4: TBitBtn;
    b_save: TBitBtn;
    b_append: TBitBtn;
    b_cancel: TBitBtn;
    edit2: TEdit;
    edit3: TFloatEdit;
    edit4: TFloatEdit;
    edit5: TFloatEdit;
    procedure CancelBtnClick(Sender: TObject);

    procedure Load_data;
    procedure save_data;

    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_appendClick(Sender: TObject);
    procedure b_cancelClick(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 Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  person_edit: Tperson_edit;

implementation

uses DB, uacount_new, u_dm, RICH_SYS;

{$R *.dfm}

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

procedure Tperson_edit.Load_data;
begin
  with dm1.A_Person do
  begin
    edit1.Text := trim(fieldbyname('pno').AsString);
    edit2.Text := trim(fieldbyname('name').AsString);
    edit3.Text := trim(fieldbyname('td').AsString);
    edit4.Text := trim(fieldbyname('rq').AsString);
    edit4.Text := trim(fieldbyname('ldl').AsString);
  end;
end;

procedure Tperson_edit.CheckBox1Click(Sender: TObject);
begin
  edit1.TabStop := CheckBox1.Checked;
end;

procedure Tperson_edit.CheckBox2Click(Sender: TObject);
begin
  edit2.TabStop := CheckBox2.Checked;
end;

procedure Tperson_edit.CheckBox3Click(Sender: TObject);
begin
  edit3.TabStop := CheckBox3.Checked;
end;

procedure Tperson_edit.CheckBox4Click(Sender: TObject);
begin
  edit4.TabStop := CheckBox4.Checked;
end;

procedure Tperson_edit.CheckBox5Click(Sender: TObject);
begin
  edit5.TabStop := CheckBox5.Checked;
end;

procedure Tperson_edit.FormCreate(Sender: TObject);
begin
  Load_data;
end;

procedure Tperson_edit.save_data;
var
  s: string;
begin
  s := Edit2.Text;
  try
    s := Get_HzPy(s);
  except
    s := 'Err';
  end;
  with dm1.A_Person do
  begin
    edit;
    fieldbyname('pno').AsString := Trim(Edit1.Text);
    fieldbyname('name').AsString := Trim(Edit2.Text);
    fieldbyname('py').AsString := s;
    if Edit3.Text <> '' then
      fieldbyname('td').AsFloat := StrToFloat(Edit3.Text);
    if Edit4.Text <> '' then
      fieldbyname('rq').AsFloat := StrToFloat(Edit4.Text);
    if Edit5.Text <> '' then
      fieldbyname('ldl').AsFloat := StrToFloat(Edit5.Text);
    try
      post;
    except
      MessageDlg('不能输入重复编号！操作已被取消！', mtWarning, [mbok], 0);
      Cancel;
    end;
  end;
end;

procedure Tperson_edit.b_saveClick(Sender: TObject);
var
  s: string;
begin
  s := Edit1.Text;
  if (Length(s) <> 6) then
  begin
    MessageDlg('错误的用户编号!', mtWarning, [mbok], 0);
    exit;
  end;

  save_data;
  b_append.SetFocus;
end;

procedure Tperson_edit.b_appendClick(Sender: TObject);
begin
  if Edit1.Text <> '' then
    edit1.Text := incno(Edit1.Text, 1);
  edit2.Text := '';
  edit3.Text := '0';
  edit4.Text := '0';
  edit5.Text := '0';
  dm1.A_Person.Append;
end;

procedure Tperson_edit.b_cancelClick(Sender: TObject);
begin
  edit1.Text := incno(Edit1.Text, 0);
  edit2.Text := '';
  edit3.Text := '0';
  edit4.Text := '0';
  edit5.Text := '0';
end;

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

end;

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

    if CheckBox2.Checked then
      edit2.SetFocus
    else
      if CheckBox3.Checked then
        edit3.SetFocus
      else
        if CheckBox4.Checked then
          edit4.SetFocus
        else
          if CheckBox5.Checked then
            edit5.SetFocus
          else
          begin
            b_save.Click;
            b_append.Click;
          end;

  end;
end;

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

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

procedure Tperson_edit.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if CheckBox3.Checked then
      edit3.SetFocus
    else
      if CheckBox4.Checked then
        edit4.SetFocus
      else
        if CheckBox5.Checked then
          edit5.SetFocus
        else
        begin
          b_save.Click;
          b_append.Click;
        end;
  end;
end;

procedure Tperson_edit.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if CheckBox4.Checked then
      edit4.SetFocus
    else
      if CheckBox5.Checked then
        edit5.SetFocus
      else
      begin
        b_save.Click;
        b_append.Click;
      end;
  end;
end;

procedure Tperson_edit.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin

    if CheckBox5.Checked then
      edit5.SetFocus
    else
    begin
      b_save.Click;
      b_append.Click;
    end;
  end;
end;

procedure Tperson_edit.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    b_save.Click;
    b_append.Click;
  end;
end;

end.