uperson_edit2.pas

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

unit uperson_edit2;

interface

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

type
  Tperson_edit2 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    b_save: TBitBtn;
    edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    edit3: TFloatEdit;
    edit4: TFloatEdit;
    edit5: TFloatEdit;
    procedure CancelBtnClick(Sender: TObject);

    procedure Load_data;
    procedure save_data;
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(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_edit2: Tperson_edit2;

implementation

uses DB, uacount_new, u_dm, RICH_SYS;

{$R *.dfm}

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

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

end;

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

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

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

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

procedure Tperson_edit2.save_data;
var
  s: string;
begin
  s := trim(Edit2.Text);
  try
    s := Get_HzPy(s);
  except
    s := 'Err';
  end;
  with dm1.A_Person do
  begin
    edit;
    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);
    post;
  end;
end;

procedure Tperson_edit2.b_saveClick(Sender: TObject);
begin
  save_data;
  Button2.Click;

end;

procedure Tperson_edit2.b_appendClick(Sender: TObject);
begin
  edit2.Text := '';
  edit3.Text := '0';
  edit4.Text := '0';
  edit5.Text := '0';
  dm1.A_Person.Append;

end;

procedure Tperson_edit2.b_cancelClick(Sender: TObject);
begin
  edit2.Text := '';
  edit3.Text := '0';
  edit4.Text := '0';
  edit5.Text := '0';
end;

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

end;

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

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

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

procedure Tperson_edit2.Button1Click(Sender: TObject);
begin
  dm1.A_Person.Prior;
  Load_data;

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

procedure Tperson_edit2.Button2Click(Sender: TObject);
begin
  dm1.A_Person.Next;
  Load_data;

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

procedure Tperson_edit2.FormActivate(Sender: TObject);
begin
  Load_data;
end;

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

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

    if CheckBox4.Checked then
    begin
      edit4.SelectAll;
      edit4.SetFocus;
    end
    else
    begin
      if CheckBox5.Checked then
      begin
        edit5.SelectAll;
        edit5.SetFocus;
      end
      else
        b_save.Click;
    end;
  end;
end;

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

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

  end;
end;

procedure Tperson_edit2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin

  if key = #13 then
  begin
    b_save.Click;
  end;
end;

end.