procedure TFInBarang.btnNewClick(Sender: TObject);
var
  sKode : String;
begin
  // ubah caption button sesuai fungsi
  case TComponent(Sender).Tag of
    1 : begin
          (Sender As TButton).Tag := 2;
          (Sender As TButton).Caption := '&Simpan';

          // check nomor jurnal kode
          with QJurnal do begin
            SQL.Clear;
            SQL.Append('SELECT * FROM TJurnal WHERE KdJurnal = :pKdJurnal');
            Parameters[0].Value := 'BR';
            Open;
            sKode := FieldByName('Prefix').AsString +
              FormatFloat('0000',FieldByName('Nomor').AsInteger) +
              FieldByName('Sufix').AsString;
            Close;
            edKdBarang.Text := sKode;
            edNmBarang.Clear;
            edSatuan.Clear;
            edJumlah.Text := '0';
            edNmBarang.SetFocus;
          end;
        end;
    2 : begin
          (Sender As TButton).Tag := 1;
          (Sender As TButton).Caption := '&New';

          // check kembali nomor jurnal (untuk program multiuser)
          with QJurnal do begin
            SQL.Clear;
            SQL.Append('SELECT * FROM TJurnal WHERE KdJurnal = :pKdJurnal');
            Parameters[0].Value := 'BR';
            Open;
            sKode := FieldByName('Prefix').AsString +
              FormatFloat('0000',FieldByName('Nomor').AsInteger) +
              FieldByName('Sufix').AsString;
            Close;

          // simpan data ke tabel barang
            SQL.Clear;
            SQL.Append(
              'INSERT INTO TBarang(KdBarang, NmBarang, Satuan, Jumlah) ' +
              'VALUES (:pKdBarang, :pNmBarang, :pSatuan, :pJumlah)'
              );
            Parameters[0].Value := sKode;
            Parameters[1].Value := edNmBarang.Text;
            Parameters[2].Value := edSatuan.Text;
            Parameters[3].Value := StrToInt(edJumlah.Text);
            ExecSQL;
            TBarang.Requery();

          // update TJurnal
            SQL.Clear;
            SQL.Append(
              'UPDATE TJurnal SET Nomor = Nomor + 1 WHERE KdJurnal = :pKdJurnal'
              );
            Parameters[0].Value := 'BR';
            ExecSQL;
          end;
        end;
  end;
end;