uwizard_edit2.pas

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

unit uwizard_edit2;

interface

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

type
  Twizard_edit2 = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    b_save: TBitBtn;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    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);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wizard_edit2: Twizard_edit2;

implementation

uses DB, uacount_new, u_dm, RICH_SYS, ADODB;

{$R *.dfm}

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

procedure Twizard_edit2.Load_data;
begin
  with dm1.A_rw_she do
  begin
    edit1.Text := trim(fieldbyname('s1').AsString);
    edit3.Text := trim(fieldbyname('s1_td').AsString);
    edit4.Text := trim(fieldbyname('s1_rq').AsString);
    edit5.Text := trim(fieldbyname('s1_ldl').AsString);
  end;
  if edit1.Text = '' then edit1.Text := '0';
  if edit3.Text = '' then edit3.Text := '0';
  if edit4.Text = '' then edit4.Text := '0';
  if edit5.Text = '' then edit5.Text := '0';
end;

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

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

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

procedure Twizard_edit2.save_data;
var
  s: string;
  Mid: integer;
begin
  mid := dm1.A_rw_she.fieldbyname('she_rw_id').AsInteger;
  s := 'exec p_update_she_rw_s1 ' +
    inttostr(mid) + ',' +
    edit1.Text + ',' +
    edit3.Text + ',' + edit4.Text + ',' + edit5.Text;
  //  MessageDlg(s, mtWarning, [mbok], 0);
  dm1.EXE_SQL(s);
  with dm1.A_rw_she do
  begin
    Requery();
    Locate('she_rw_id', Mid, []);
  end;
  Button1.Click;
end;

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

procedure Twizard_edit2.b_appendClick(Sender: TObject);
begin

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

end;

procedure Twizard_edit2.b_cancelClick(Sender: TObject);
begin

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

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

end;

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

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

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

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

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

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

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

procedure Twizard_edit2.FormActivate(Sender: TObject);
begin
  Load_data;
  edit1.SelectAll;
  edit1.SetFocus;
end;

procedure Twizard_edit2.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_edit2.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_edit2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    b_save.Click;
    key := #0;
  end;
end;

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

procedure Twizard_edit2.BitBtn1Click(Sender: TObject);
var
  s: string;
  Mid, macount_id: integer;
begin
  with dm1.A_rw_she do
  begin
    mid := fieldbyname('she_rw_id').AsInteger;
    macount_id := fieldbyname('acount_id').AsInteger;
    s := 'exec p_update_she_rw_s1_all ' +
      IntToStr(macount_id) + ',' +
      edit3.Text + ',' + edit4.Text + ',' + edit5.Text;
    dm1.EXE_SQL(s);
    Requery();
  end;
  close;
end;

end.