uwizard_edit1.pas

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

unit uwizard_edit1;

interface

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

type
  Twizard_edit1 = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    b_save: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    edit3: TFloatEdit;
    edit4: TFloatEdit;
    edit5: TFloatEdit;
    procedure CancelBtnClick(Sender: TObject);

    procedure Load_data;
    procedure save_data;
    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 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
  wizard_edit1: Twizard_edit1;

implementation

uses DB, uacount_new, u_dm, RICH_SYS, ADODB;

{$R *.dfm}

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

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

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

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

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

procedure Twizard_edit1.save_data;
var
  s: string;
  Mid: integer;
begin
  mid := dm1.A_rw_she.fieldbyname('she_rw_id').AsInteger;
  s := 'exec p_update_she_rw_base ' +
    inttostr(mid) + ',' +
    edit3.Text + ',' + edit4.Text + ',' + edit5.Text;
  dm1.EXE_SQL(s);
  with dm1.A_rw_she do
  begin
    Requery();
    Locate('she_rw_id', Mid, []);
  end;
  Button1.Click;
end;

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

procedure Twizard_edit1.b_appendClick(Sender: TObject);
begin

  edit3.Text := '0';
  edit4.Text := '0';
  edit5.Text := '0';
  dm1.A_Person.Append;

end;

procedure Twizard_edit1.b_cancelClick(Sender: TObject);
begin

  edit3.Text := '0';
  edit4.Text := '0';
  edit5.Text := '0';
end;

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

end;

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

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

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

procedure Twizard_edit1.Button1Click(Sender: TObject);
begin
  dm1.A_rw_she.Prior;
  Load_data;

  if CheckBox3.Checked then
    edit3.SetFocus
  else
    if CheckBox4.Checked then
      edit4.SetFocus
    else
      if CheckBox5.Checked then
        edit5.SetFocus;
end;

procedure Twizard_edit1.Button2Click(Sender: TObject);
begin
  dm1.A_rw_she.Next;
  Load_data;

  if CheckBox3.Checked then
    edit3.SetFocus
  else
    if CheckBox4.Checked then
      edit4.SetFocus
    else
      if CheckBox5.Checked then
        edit5.SetFocus;
end;

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

procedure Twizard_edit1.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
        b_save.Click;
    key := #0;
  end;
end;

procedure Twizard_edit1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if CheckBox5.Checked then
      edit5.SetFocus
    else
      b_save.Click;
    key := #0;
  end;

end;

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

end.