urw_edit.pas

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

unit urw_edit;

interface

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

type
  Trw_edit = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    Edit3: TEdit;
    Edit4: TEdit;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    b_save: TBitBtn;
    b_next: TBitBtn;
    b_prior: TBitBtn;
    BitBtn1: TBitBtn;
    procedure CancelBtnClick(Sender: TObject);

    procedure Load_data;
    procedure save_data;
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure b_nextClick(Sender: TObject);
    procedure b_priorClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rw_edit: Trw_edit;

implementation

uses DB, uacount_new, u_dm, RICH_SYS, ADODB;

{$R *.dfm}

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

procedure Trw_edit.Load_data;
begin
  with dm1.A_rw do
  begin
    edit3.Text := trim(fieldbyname('s1').AsString);
    edit4.Text := trim(fieldbyname('s2').AsString);
    if edit3.Text = '' then edit3.Text := '0';
    if edit4.Text = '' then edit4.Text := '0';
  end;
end;

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

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

procedure Trw_edit.save_data;
var
  s: string;
begin
  with dm1.A_rw do
  begin
    s := 'update rw set s1=' + Edit3.Text + ',s2=' + edit4.Text +
      ' where rw_id=' + trim(fieldbyname('rw_id').AsString);
    dm1.EXE_SQL(s);
    s := fieldbyname('rw_id').AsString;
    Requery();
    Locate('rw_id', s, []);
  end;
end;

procedure Trw_edit.b_saveClick(Sender: TObject);
var
  s: string;
begin
  save_data;
  b_next.Click;
end;

procedure Trw_edit.b_nextClick(Sender: TObject);
begin
  dm1.A_rw.Next;
  Load_data;

  if CheckBox3.Checked then
  begin
    Edit3.SelectAll;
    edit3.SetFocus;
  end
  else
  begin
    if CheckBox4.Checked then
    begin
      Edit4.SelectAll;
      edit4.SetFocus;
    end;
  end;
end;

procedure Trw_edit.b_priorClick(Sender: TObject);
begin
  dm1.A_rw.Prior;
  Load_data;

  if CheckBox3.Checked then
  begin
    Edit3.SelectAll;
    edit3.SetFocus;
  end
  else
  begin
    if CheckBox4.Checked then
    begin
      Edit4.SelectAll;
      edit4.SetFocus;
    end;
  end;
end;

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

end;

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

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

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

procedure Trw_edit.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if CheckBox4.Checked then
      Edit4.SetFocus
    else
      b_save.Click;
  end;
end;

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

procedure Trw_edit.BitBtn1Click(Sender: TObject);
begin
  Load_data;
end;

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

end.