unit sdszz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ExtCtrls, Buttons, ComCtrls,
  ToolWin;

type
  Tsdszzfrm = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SpeedButton6: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure editvalue;
    procedure editclear;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    m:integer;
  end;
  const
  m=0;
var
  sdszzfrm: Tsdszzfrm;

implementation

uses dbdata;

{$R *.dfm}

procedure Tsdszzfrm.FormShow(Sender: TObject);
begin
with data.ADOQYsdszz do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 所得稅稅率表');
      open;
   end;
   data.ADOQYsdszz.Active:=true;
   if data.ADOQYsdszz.FieldByName('級別號').Value=null then
   begin
      application.MessageBox('數據庫中沒有數據，請向數據庫中添加數據！','提示',64);
      speedbutton1.Click;
   end
end;

procedure Tsdszzfrm.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet<>nil then
   if dbgrid1.DataSource.DataSet.RecordCount>0 then
   editvalue
end;

procedure Tsdszzfrm.editclear;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

procedure Tsdszzfrm.editvalue;
begin
edit1.Text:=data.ADOQYsdszz.FieldByName('級別號').Value;
edit2.Text:=data.ADOQYsdszz.FieldByName('應納所得稅金額下限').Value;
edit3.Text:=data.ADOQYsdszz.FieldByName('應納所得稅金額上限').Value;
edit4.Text:=data.ADOQYsdszz.FieldByName('稅率').Value;
end;

procedure Tsdszzfrm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_return) or (key=vk_down) then
edit4.SetFocus
end;

procedure Tsdszzfrm.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_return) or (key=vk_down) then
edit2.SetFocus
else
if key=vk_up then
edit1.SetFocus;
end;

procedure Tsdszzfrm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=vk_return) or (key=vk_down) then
edit3.SetFocus
else
if key=vk_up then
edit4.SetFocus;
end;

procedure Tsdszzfrm.SpeedButton1Click(Sender: TObject);
var
bh:string;
begin
with data.ADOpublic do
begin
   close;
   sql.Clear;
   sql.Add('select max(級別號) as ss from 所得稅稅率表 ');
   open;
end;
if data.ADOpublic.FieldByName('ss').Value=null then
bh:='0'
else
bh:=inttostr(data.ADOpublic.FieldByName('ss').Value+1);
editclear;
edit1.Text:=bh;
edit2.ReadOnly:=false;
edit3.ReadOnly:=false;
edit4.ReadOnly:=false;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
end;

procedure Tsdszzfrm.SpeedButton2Click(Sender: TObject);
begin
m:=1;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;
edit3.ReadOnly:=false;
edit4.ReadOnly:=false;
end;

procedure Tsdszzfrm.SpeedButton3Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要刪除嗎？','提示',mb_yesno+mb_iconquestion)=idyes then
   begin
   data.ADOQYsdszz.Delete;
   edit1.Clear;
   edit2.Clear;
   edit3.Clear;
   edit4.Clear;
   end;
end;

procedure Tsdszzfrm.SpeedButton4Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'') and (trim(edit4.Text)<>'') then
   if m=0 then
      try
      with data.ADOQYsdszz do
         begin
            close;
            sql.Clear;
            sql.Add('insert 所得稅稅率表 values (:a,:b,:c,:D)');
            parameters.ParamByName('a').Value:=trim(edit1.Text);
            parameters.ParamByName('b').Value:=trim(edit2.Text);
            parameters.ParamByName('c').Value:=trim(edit3.Text);
            parameters.ParamByName('d').Value:=trim(edit4.Text);
            execsql;
         end;
         editclear;
         application.MessageBox('添加成功','提示',64);
         speedbutton4.Enabled:=false;
         speedbutton5.Enabled:=false;
         edit1.ReadOnly:=true;
         edit2.ReadOnly:=true;
         edit3.ReadOnly:=true;
         edit4.ReadOnly:=true;
         edit1.Clear;
         edit2.Clear;
         edit3.Clear;
         edit4.Clear;
         self.OnShow(sender);
      except
         application.MessageBox('系統出錯！','提示',64);
      end
   else
      begin
         with data.ADOQYsdszz do
            begin
               edit;
               fieldbyname('級別號').Value:=trim(edit1.Text);
               fieldbyname('應納所得稅金額下限').Value:=trim(edit2.Text);
               fieldbyname('應納所得稅金額上限').Value:=trim(edit3.Text);
               fieldbyname('稅率').Value:=trim(edit4.Text);
               post;
            end;
            editclear;
            application.MessageBox('修改成功','提示',64);
            m:=0;
            speedbutton4.Enabled:=false;
            speedbutton5.Enabled:=false;
            edit1.ReadOnly:=true;
            edit2.ReadOnly:=true;
            edit3.ReadOnly:=true;
            edit4.ReadOnly:=true;
      end
else
   application.MessageBox('請完整的添寫信息！','提示',64);
end;

procedure Tsdszzfrm.SpeedButton5Click(Sender: TObject);
begin
editclear;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
edit3.ReadOnly:=true;
edit4.ReadOnly:=true;
end;

procedure Tsdszzfrm.SpeedButton6Click(Sender: TObject);
begin
close;
end;

end.